- Timestamp:
- 06/18/18 20:32:55 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/branch_openmp/src/interface/fortran_attr/gridgroup_interface_attr.F90
r932 r1545 10 10 ! Do not call directly / interface FORTRAN 2003 <-> C99 11 11 12 SUBROUTINE cxios_set_gridgroup_comment(gridgroup_hdl, comment, comment_size) BIND(C) 13 USE ISO_C_BINDING 14 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 15 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: comment 16 INTEGER (kind = C_INT) , VALUE :: comment_size 17 END SUBROUTINE cxios_set_gridgroup_comment 18 19 SUBROUTINE cxios_get_gridgroup_comment(gridgroup_hdl, comment, comment_size) BIND(C) 20 USE ISO_C_BINDING 21 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 22 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: comment 23 INTEGER (kind = C_INT) , VALUE :: comment_size 24 END SUBROUTINE cxios_get_gridgroup_comment 25 26 FUNCTION cxios_is_defined_gridgroup_comment(gridgroup_hdl) BIND(C) 27 USE ISO_C_BINDING 28 LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_comment 29 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 30 END FUNCTION cxios_is_defined_gridgroup_comment 31 32 12 33 SUBROUTINE cxios_set_gridgroup_description(gridgroup_hdl, description, description_size) BIND(C) 13 34 USE ISO_C_BINDING … … 52 73 53 74 75 SUBROUTINE cxios_set_gridgroup_mask_0d(gridgroup_hdl, mask_0d, extent) BIND(C) 76 USE ISO_C_BINDING 77 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 78 LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask_0d 79 INTEGER (kind = C_INT), DIMENSION(*) :: extent 80 END SUBROUTINE cxios_set_gridgroup_mask_0d 81 82 SUBROUTINE cxios_get_gridgroup_mask_0d(gridgroup_hdl, mask_0d, extent) BIND(C) 83 USE ISO_C_BINDING 84 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 85 LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask_0d 86 INTEGER (kind = C_INT), DIMENSION(*) :: extent 87 END SUBROUTINE cxios_get_gridgroup_mask_0d 88 89 FUNCTION cxios_is_defined_gridgroup_mask_0d(gridgroup_hdl) BIND(C) 90 USE ISO_C_BINDING 91 LOGICAL(kind=C_BOOL) :: cxios_is_defined_gridgroup_mask_0d 92 INTEGER (kind = C_INTPTR_T), VALUE :: gridgroup_hdl 93 END FUNCTION cxios_is_defined_gridgroup_mask_0d 94 95 54 96 SUBROUTINE cxios_set_gridgroup_mask_1d(gridgroup_hdl, mask_1d, extent) BIND(C) 55 97 USE ISO_C_BINDING
Note: See TracChangeset
for help on using the changeset viewer.