- 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/grid_interface_attr.F90
r932 r1545 10 10 ! Do not call directly / interface FORTRAN 2003 <-> C99 11 11 12 SUBROUTINE cxios_set_grid_comment(grid_hdl, comment, comment_size) BIND(C) 13 USE ISO_C_BINDING 14 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 15 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: comment 16 INTEGER (kind = C_INT) , VALUE :: comment_size 17 END SUBROUTINE cxios_set_grid_comment 18 19 SUBROUTINE cxios_get_grid_comment(grid_hdl, comment, comment_size) BIND(C) 20 USE ISO_C_BINDING 21 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 22 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: comment 23 INTEGER (kind = C_INT) , VALUE :: comment_size 24 END SUBROUTINE cxios_get_grid_comment 25 26 FUNCTION cxios_is_defined_grid_comment(grid_hdl) BIND(C) 27 USE ISO_C_BINDING 28 LOGICAL(kind=C_BOOL) :: cxios_is_defined_grid_comment 29 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 30 END FUNCTION cxios_is_defined_grid_comment 31 32 12 33 SUBROUTINE cxios_set_grid_description(grid_hdl, description, description_size) BIND(C) 13 34 USE ISO_C_BINDING … … 31 52 32 53 54 SUBROUTINE cxios_set_grid_mask_0d(grid_hdl, mask_0d, extent) BIND(C) 55 USE ISO_C_BINDING 56 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 57 LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask_0d 58 INTEGER (kind = C_INT), DIMENSION(*) :: extent 59 END SUBROUTINE cxios_set_grid_mask_0d 60 61 SUBROUTINE cxios_get_grid_mask_0d(grid_hdl, mask_0d, extent) BIND(C) 62 USE ISO_C_BINDING 63 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 64 LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask_0d 65 INTEGER (kind = C_INT), DIMENSION(*) :: extent 66 END SUBROUTINE cxios_get_grid_mask_0d 67 68 FUNCTION cxios_is_defined_grid_mask_0d(grid_hdl) BIND(C) 69 USE ISO_C_BINDING 70 LOGICAL(kind=C_BOOL) :: cxios_is_defined_grid_mask_0d 71 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 72 END FUNCTION cxios_is_defined_grid_mask_0d 73 74 33 75 SUBROUTINE cxios_set_grid_mask_1d(grid_hdl, mask_1d, extent) BIND(C) 34 76 USE ISO_C_BINDING
Note: See TracChangeset
for help on using the changeset viewer.