- Timestamp:
- 01/26/16 18:19:09 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/grid_interface_attr.F90
r791 r817 31 31 32 32 33 SUBROUTINE cxios_set_grid_mask 1(grid_hdl, mask1, extent) BIND(C)33 SUBROUTINE cxios_set_grid_mask_1d(grid_hdl, mask_1d, extent) BIND(C) 34 34 USE ISO_C_BINDING 35 35 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 36 LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask 136 LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask_1d 37 37 INTEGER (kind = C_INT), DIMENSION(*) :: extent 38 END SUBROUTINE cxios_set_grid_mask 138 END SUBROUTINE cxios_set_grid_mask_1d 39 39 40 SUBROUTINE cxios_get_grid_mask 1(grid_hdl, mask1, extent) BIND(C)40 SUBROUTINE cxios_get_grid_mask_1d(grid_hdl, mask_1d, extent) BIND(C) 41 41 USE ISO_C_BINDING 42 42 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 43 LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask 143 LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask_1d 44 44 INTEGER (kind = C_INT), DIMENSION(*) :: extent 45 END SUBROUTINE cxios_get_grid_mask 145 END SUBROUTINE cxios_get_grid_mask_1d 46 46 47 FUNCTION cxios_is_defined_grid_mask 1(grid_hdl) BIND(C)47 FUNCTION cxios_is_defined_grid_mask_1d(grid_hdl) BIND(C) 48 48 USE ISO_C_BINDING 49 LOGICAL(kind=C_BOOL) :: cxios_is_defined_grid_mask 149 LOGICAL(kind=C_BOOL) :: cxios_is_defined_grid_mask_1d 50 50 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 51 END FUNCTION cxios_is_defined_grid_mask 151 END FUNCTION cxios_is_defined_grid_mask_1d 52 52 53 53 54 SUBROUTINE cxios_set_grid_mask 2(grid_hdl, mask2, extent) BIND(C)54 SUBROUTINE cxios_set_grid_mask_2d(grid_hdl, mask_2d, extent) BIND(C) 55 55 USE ISO_C_BINDING 56 56 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 57 LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask 257 LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask_2d 58 58 INTEGER (kind = C_INT), DIMENSION(*) :: extent 59 END SUBROUTINE cxios_set_grid_mask 259 END SUBROUTINE cxios_set_grid_mask_2d 60 60 61 SUBROUTINE cxios_get_grid_mask 2(grid_hdl, mask2, extent) BIND(C)61 SUBROUTINE cxios_get_grid_mask_2d(grid_hdl, mask_2d, extent) BIND(C) 62 62 USE ISO_C_BINDING 63 63 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 64 LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask 264 LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask_2d 65 65 INTEGER (kind = C_INT), DIMENSION(*) :: extent 66 END SUBROUTINE cxios_get_grid_mask 266 END SUBROUTINE cxios_get_grid_mask_2d 67 67 68 FUNCTION cxios_is_defined_grid_mask 2(grid_hdl) BIND(C)68 FUNCTION cxios_is_defined_grid_mask_2d(grid_hdl) BIND(C) 69 69 USE ISO_C_BINDING 70 LOGICAL(kind=C_BOOL) :: cxios_is_defined_grid_mask 270 LOGICAL(kind=C_BOOL) :: cxios_is_defined_grid_mask_2d 71 71 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 72 END FUNCTION cxios_is_defined_grid_mask 272 END FUNCTION cxios_is_defined_grid_mask_2d 73 73 74 74 75 SUBROUTINE cxios_set_grid_mask 3(grid_hdl, mask3, extent) BIND(C)75 SUBROUTINE cxios_set_grid_mask_3d(grid_hdl, mask_3d, extent) BIND(C) 76 76 USE ISO_C_BINDING 77 77 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 78 LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask 378 LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask_3d 79 79 INTEGER (kind = C_INT), DIMENSION(*) :: extent 80 END SUBROUTINE cxios_set_grid_mask 380 END SUBROUTINE cxios_set_grid_mask_3d 81 81 82 SUBROUTINE cxios_get_grid_mask 3(grid_hdl, mask3, extent) BIND(C)82 SUBROUTINE cxios_get_grid_mask_3d(grid_hdl, mask_3d, extent) BIND(C) 83 83 USE ISO_C_BINDING 84 84 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 85 LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask 385 LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask_3d 86 86 INTEGER (kind = C_INT), DIMENSION(*) :: extent 87 END SUBROUTINE cxios_get_grid_mask 387 END SUBROUTINE cxios_get_grid_mask_3d 88 88 89 FUNCTION cxios_is_defined_grid_mask 3(grid_hdl) BIND(C)89 FUNCTION cxios_is_defined_grid_mask_3d(grid_hdl) BIND(C) 90 90 USE ISO_C_BINDING 91 LOGICAL(kind=C_BOOL) :: cxios_is_defined_grid_mask 391 LOGICAL(kind=C_BOOL) :: cxios_is_defined_grid_mask_3d 92 92 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 93 END FUNCTION cxios_is_defined_grid_mask 393 END FUNCTION cxios_is_defined_grid_mask_3d 94 94 95 95
Note: See TracChangeset
for help on using the changeset viewer.