- Timestamp:
- 03/19/24 16:12:21 (5 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS2/trunk/src/interface/fortran_attr/axis_interface_attr.F90
r1492 r2618 134 134 135 135 136 SUBROUTINE cxios_set_axis_convert_from_factor(axis_hdl, convert_from_factor) BIND(C) 137 USE ISO_C_BINDING 138 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 139 REAL (KIND=C_DOUBLE) , VALUE :: convert_from_factor 140 END SUBROUTINE cxios_set_axis_convert_from_factor 141 142 SUBROUTINE cxios_get_axis_convert_from_factor(axis_hdl, convert_from_factor) BIND(C) 143 USE ISO_C_BINDING 144 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 145 REAL (KIND=C_DOUBLE) :: convert_from_factor 146 END SUBROUTINE cxios_get_axis_convert_from_factor 147 148 FUNCTION cxios_is_defined_axis_convert_from_factor(axis_hdl) BIND(C) 149 USE ISO_C_BINDING 150 LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_convert_from_factor 151 INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 152 END FUNCTION cxios_is_defined_axis_convert_from_factor 153 154 136 155 SUBROUTINE cxios_set_axis_data_begin(axis_hdl, data_begin) BIND(C) 137 156 USE ISO_C_BINDING
Note: See TracChangeset
for help on using the changeset viewer.