- Timestamp:
- 01/26/16 18:19:09 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/gridgroup_interface_attr.F90
r791 r817 52 52 53 53 54 SUBROUTINE cxios_set_gridgroup_mask 1(gridgroup_hdl, mask1, extent) BIND(C)54 SUBROUTINE cxios_set_gridgroup_mask_1d(gridgroup_hdl, mask_1d, extent) BIND(C) 55 55 USE ISO_C_BINDING 56 56 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 57 LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask 157 LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask_1d 58 58 INTEGER (kind = C_INT), DIMENSION(*) :: extent 59 END SUBROUTINE cxios_set_gridgroup_mask 159 END SUBROUTINE cxios_set_gridgroup_mask_1d 60 60 61 SUBROUTINE cxios_get_gridgroup_mask 1(gridgroup_hdl, mask1, extent) BIND(C)61 SUBROUTINE cxios_get_gridgroup_mask_1d(gridgroup_hdl, mask_1d, extent) BIND(C) 62 62 USE ISO_C_BINDING 63 63 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 64 LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask 164 LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask_1d 65 65 INTEGER (kind = C_INT), DIMENSION(*) :: extent 66 END SUBROUTINE cxios_get_gridgroup_mask 166 END SUBROUTINE cxios_get_gridgroup_mask_1d 67 67 68 FUNCTION cxios_is_defined_gridgroup_mask 1(gridgroup_hdl) BIND(C)68 FUNCTION cxios_is_defined_gridgroup_mask_1d(gridgroup_hdl) BIND(C) 69 69 USE ISO_C_BINDING 70 LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_mask 170 LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_mask_1d 71 71 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 72 END FUNCTION cxios_is_defined_gridgroup_mask 172 END FUNCTION cxios_is_defined_gridgroup_mask_1d 73 73 74 74 75 SUBROUTINE cxios_set_gridgroup_mask 2(gridgroup_hdl, mask2, extent) BIND(C)75 SUBROUTINE cxios_set_gridgroup_mask_2d(gridgroup_hdl, mask_2d, extent) BIND(C) 76 76 USE ISO_C_BINDING 77 77 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 78 LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask 278 LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask_2d 79 79 INTEGER (kind = C_INT), DIMENSION(*) :: extent 80 END SUBROUTINE cxios_set_gridgroup_mask 280 END SUBROUTINE cxios_set_gridgroup_mask_2d 81 81 82 SUBROUTINE cxios_get_gridgroup_mask 2(gridgroup_hdl, mask2, extent) BIND(C)82 SUBROUTINE cxios_get_gridgroup_mask_2d(gridgroup_hdl, mask_2d, extent) BIND(C) 83 83 USE ISO_C_BINDING 84 84 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 85 LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask 285 LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask_2d 86 86 INTEGER (kind = C_INT), DIMENSION(*) :: extent 87 END SUBROUTINE cxios_get_gridgroup_mask 287 END SUBROUTINE cxios_get_gridgroup_mask_2d 88 88 89 FUNCTION cxios_is_defined_gridgroup_mask 2(gridgroup_hdl) BIND(C)89 FUNCTION cxios_is_defined_gridgroup_mask_2d(gridgroup_hdl) BIND(C) 90 90 USE ISO_C_BINDING 91 LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_mask 291 LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_mask_2d 92 92 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 93 END FUNCTION cxios_is_defined_gridgroup_mask 293 END FUNCTION cxios_is_defined_gridgroup_mask_2d 94 94 95 95 96 SUBROUTINE cxios_set_gridgroup_mask 3(gridgroup_hdl, mask3, extent) BIND(C)96 SUBROUTINE cxios_set_gridgroup_mask_3d(gridgroup_hdl, mask_3d, extent) BIND(C) 97 97 USE ISO_C_BINDING 98 98 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 99 LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask 399 LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask_3d 100 100 INTEGER (kind = C_INT), DIMENSION(*) :: extent 101 END SUBROUTINE cxios_set_gridgroup_mask 3101 END SUBROUTINE cxios_set_gridgroup_mask_3d 102 102 103 SUBROUTINE cxios_get_gridgroup_mask 3(gridgroup_hdl, mask3, extent) BIND(C)103 SUBROUTINE cxios_get_gridgroup_mask_3d(gridgroup_hdl, mask_3d, extent) BIND(C) 104 104 USE ISO_C_BINDING 105 105 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 106 LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask 3106 LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask_3d 107 107 INTEGER (kind = C_INT), DIMENSION(*) :: extent 108 END SUBROUTINE cxios_get_gridgroup_mask 3108 END SUBROUTINE cxios_get_gridgroup_mask_3d 109 109 110 FUNCTION cxios_is_defined_gridgroup_mask 3(gridgroup_hdl) BIND(C)110 FUNCTION cxios_is_defined_gridgroup_mask_3d(gridgroup_hdl) BIND(C) 111 111 USE ISO_C_BINDING 112 LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_mask 3112 LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_mask_3d 113 113 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 114 END FUNCTION cxios_is_defined_gridgroup_mask 3114 END FUNCTION cxios_is_defined_gridgroup_mask_3d 115 115 116 116
Note: See TracChangeset
for help on using the changeset viewer.