H5Block_model.f90 3.53 KB
Newer Older
gsell's avatar
gsell committed
1
!
gsell's avatar
gsell committed
2
!  Copyright (c) 2006-2016, The Regents of the University of California,
gsell's avatar
gsell committed
3 4 5 6 7 8 9
!  through Lawrence Berkeley National Laboratory (subject to receipt of any
!  required approvals from the U.S. Dept. of Energy) and the Paul Scherrer
!  Institut (Switzerland).  All rights reserved.!
!
!  License: see file COPYING in top level of source distribution.
!
  INTERFACE
gsell's avatar
gsell committed
10 11 12 13
     !> \ingroup h5block_f90_api
     !! \addtogroup h5block_model_f
     !! @{
     
gsell's avatar
gsell committed
14 15 16 17 18
     !      _       _                              _      _ 
     !   __| | __ _| |_ __ _   _ __ ___   ___   __| | ___| |
     !  / _` |/ _` | __/ _` | | '_ ` _ \ / _ \ / _` |/ _ \ |
     ! | (_| | (_| | || (_| | | | | | | | (_) | (_| |  __/ |
     !  \__,_|\__,_|\__\__,_| |_| |_| |_|\___/ \__,_|\___|_|
19 20


gsell's avatar
gsell committed
21
     !>
gsell's avatar
gsell committed
22
     !! See \ref H5Block3dSetView()
gsell's avatar
gsell committed
23
     !! \return 0 on success or error code
gsell's avatar
gsell committed
24
 
gsell's avatar
gsell committed
25 26 27 28 29 30 31 32 33
     INTEGER*8 FUNCTION h5bl_3d_setview ( filehandle, i_start, i_end, j_start, j_end, k_start, k_end )
       INTEGER*8, INTENT(IN) :: filehandle
       INTEGER*8, INTENT(IN) :: i_start
       INTEGER*8, INTENT(IN) :: i_end
       INTEGER*8, INTENT(IN) :: j_start
       INTEGER*8, INTENT(IN) :: j_end
       INTEGER*8, INTENT(IN) :: k_start
       INTEGER*8, INTENT(IN) :: k_end
     END FUNCTION h5bl_3d_setview
34

gsell's avatar
gsell committed
35
     !>
gsell's avatar
gsell committed
36
     !! See \ref H5Block3dGetView()
gsell's avatar
gsell committed
37
     !! \return 0 on success or error code
gsell's avatar
gsell committed
38
 
gsell's avatar
gsell committed
39 40 41 42 43 44 45 46 47
     INTEGER*8 FUNCTION h5bl_3d_getview ( filehandle, i_start, i_end, j_start, j_end, k_start, k_end )
       INTEGER*8, INTENT(IN) :: filehandle
       INTEGER*8, INTENT(OUT) :: i_start
       INTEGER*8, INTENT(OUT) :: i_end
       INTEGER*8, INTENT(OUT) :: j_start
       INTEGER*8, INTENT(OUT) :: j_end
       INTEGER*8, INTENT(OUT) :: k_start
       INTEGER*8, INTENT(OUT) :: k_end
     END FUNCTION h5bl_3d_getview
48

gsell's avatar
gsell committed
49
     !>
gsell's avatar
gsell committed
50
     !! See \ref H5Block3dGetReducedView()
gsell's avatar
gsell committed
51
     !! \return 0 on success or error code
gsell's avatar
gsell committed
52

gsell's avatar
gsell committed
53 54 55 56 57 58 59 60 61
     INTEGER*8 FUNCTION h5bl_3d_getreducedview ( filehandle, i_start, i_end, j_start, j_end, k_start, k_end )
       INTEGER*8, INTENT(IN) :: filehandle
       INTEGER*8, INTENT(OUT) :: i_start
       INTEGER*8, INTENT(OUT) :: i_end
       INTEGER*8, INTENT(OUT) :: j_start
       INTEGER*8, INTENT(OUT) :: j_end
       INTEGER*8, INTENT(OUT) :: k_start
       INTEGER*8, INTENT(OUT) :: k_end
     END FUNCTION h5bl_3d_getreducedview
62

gsell's avatar
gsell committed
63
     !>
gsell's avatar
gsell committed
64
     !! See \ref H5Block3dHasView()
gsell's avatar
gsell committed
65
     !! \return rank of processor error code
gsell's avatar
gsell committed
66

gsell's avatar
gsell committed
67 68 69
     INTEGER*8 FUNCTION h5bl_3d_hasview ( filehandle )
       INTEGER*8, INTENT(IN) :: filehandle
     END FUNCTION h5bl_3d_hasview
70

gsell's avatar
gsell committed
71
     !>
gsell's avatar
gsell committed
72
     !! See \ref H5Block3dSetChunkSize()
gsell's avatar
gsell committed
73
     !! \return 0 on success or error code
gsell's avatar
gsell committed
74

gsell's avatar
gsell committed
75 76 77 78 79 80 81 82 83 84
     INTEGER*8 FUNCTION h5bl_3d_setchunk ( filehandle, i, j, k )
       INTEGER*8, INTENT(IN) :: filehandle
       INTEGER*8, INTENT(IN) :: i
       INTEGER*8, INTENT(IN) :: j
       INTEGER*8, INTENT(IN) :: k
     END FUNCTION h5bl_3d_setchunk

     !>
     !! See \ref H5BlockGetNumFields
     !! \return number of fields or error code
gsell's avatar
gsell committed
85

gsell's avatar
gsell committed
86 87 88 89 90 91 92
     INTEGER*8 FUNCTION h5bl_getnumfields ( filehandle )
       INTEGER*8, INTENT(IN) :: filehandle
     END FUNCTION h5bl_getnumfields

     !>
     !! See \ref H5BlockGetFieldInfo
     !! \return 0 on success or error code
gsell's avatar
gsell committed
93

gsell's avatar
gsell committed
94 95 96 97 98 99 100 101 102
     INTEGER*8 FUNCTION h5bl_getfieldinfo ( filehandle, idx, field_name, grid_rank, grid_dims, field_dims )
       INTEGER*8, INTENT(IN) :: filehandle
       INTEGER*8, INTENT(IN) :: idx
       CHARACTER(LEN=*), INTENT(OUT) :: field_name
       INTEGER*8, INTENT(OUT) :: grid_rank
       INTEGER*8, INTENT(OUT) :: grid_dims(*)
       INTEGER*8, INTENT(OUT) :: field_dims
     END FUNCTION h5bl_getfieldinfo

gsell's avatar
gsell committed
103 104
     !> @}
     
gsell's avatar
gsell committed
105
  END INTERFACE