- Timestamp:
- 06/06/17 17:58:16 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/dev_olga/src/interface/fortran_attr/scalargroup_interface_attr.F90
r891 r1158 71 71 INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl 72 72 END FUNCTION cxios_is_defined_scalargroup_name 73 74 75 SUBROUTINE cxios_set_scalargroup_prec(scalargroup_hdl, prec) BIND(C) 76 USE ISO_C_BINDING 77 INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl 78 INTEGER (KIND=C_INT) , VALUE :: prec 79 END SUBROUTINE cxios_set_scalargroup_prec 80 81 SUBROUTINE cxios_get_scalargroup_prec(scalargroup_hdl, prec) BIND(C) 82 USE ISO_C_BINDING 83 INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl 84 INTEGER (KIND=C_INT) :: prec 85 END SUBROUTINE cxios_get_scalargroup_prec 86 87 FUNCTION cxios_is_defined_scalargroup_prec(scalargroup_hdl) BIND(C) 88 USE ISO_C_BINDING 89 LOGICAL(kind=C_BOOL) :: cxios_is_defined_scalargroup_prec 90 INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl 91 END FUNCTION cxios_is_defined_scalargroup_prec 73 92 74 93
Note: See TracChangeset
for help on using the changeset viewer.