Changeset 1037 for XIOS/dev/branch_yushan/src/interface/fortran_attr/interpolate_domain_interface_attr.F90
- Timestamp:
- 01/25/17 16:25:17 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/branch_yushan/src/interface/fortran_attr/interpolate_domain_interface_attr.F90
r1005 r1037 29 29 INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl 30 30 END FUNCTION cxios_is_defined_interpolate_domain_file 31 32 33 SUBROUTINE cxios_set_interpolate_domain_mode(interpolate_domain_hdl, mode, mode_size) BIND(C)34 USE ISO_C_BINDING35 INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl36 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: mode37 INTEGER (kind = C_INT) , VALUE :: mode_size38 END SUBROUTINE cxios_set_interpolate_domain_mode39 40 SUBROUTINE cxios_get_interpolate_domain_mode(interpolate_domain_hdl, mode, mode_size) BIND(C)41 USE ISO_C_BINDING42 INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl43 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: mode44 INTEGER (kind = C_INT) , VALUE :: mode_size45 END SUBROUTINE cxios_get_interpolate_domain_mode46 47 FUNCTION cxios_is_defined_interpolate_domain_mode(interpolate_domain_hdl) BIND(C)48 USE ISO_C_BINDING49 LOGICAL(kind=C_BOOL) :: cxios_is_defined_interpolate_domain_mode50 INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl51 END FUNCTION cxios_is_defined_interpolate_domain_mode52 31 53 32 … … 89 68 END FUNCTION cxios_is_defined_interpolate_domain_renormalize 90 69 91 92 SUBROUTINE cxios_set_interpolate_domain_weight_filename(interpolate_domain_hdl, weight_filename, weight_filename_size) BIND(C)93 USE ISO_C_BINDING94 INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl95 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: weight_filename96 INTEGER (kind = C_INT) , VALUE :: weight_filename_size97 END SUBROUTINE cxios_set_interpolate_domain_weight_filename98 99 SUBROUTINE cxios_get_interpolate_domain_weight_filename(interpolate_domain_hdl, weight_filename, weight_filename_size) BIND(C)100 USE ISO_C_BINDING101 INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl102 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: weight_filename103 INTEGER (kind = C_INT) , VALUE :: weight_filename_size104 END SUBROUTINE cxios_get_interpolate_domain_weight_filename105 106 FUNCTION cxios_is_defined_interpolate_domain_weight_filename(interpolate_domain_hdl) BIND(C)107 USE ISO_C_BINDING108 LOGICAL(kind=C_BOOL) :: cxios_is_defined_interpolate_domain_weight_filename109 INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl110 END FUNCTION cxios_is_defined_interpolate_domain_weight_filename111 112 113 SUBROUTINE cxios_set_interpolate_domain_write_weight(interpolate_domain_hdl, write_weight) BIND(C)114 USE ISO_C_BINDING115 INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl116 LOGICAL (KIND=C_BOOL) , VALUE :: write_weight117 END SUBROUTINE cxios_set_interpolate_domain_write_weight118 119 SUBROUTINE cxios_get_interpolate_domain_write_weight(interpolate_domain_hdl, write_weight) BIND(C)120 USE ISO_C_BINDING121 INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl122 LOGICAL (KIND=C_BOOL) :: write_weight123 END SUBROUTINE cxios_get_interpolate_domain_write_weight124 125 FUNCTION cxios_is_defined_interpolate_domain_write_weight(interpolate_domain_hdl) BIND(C)126 USE ISO_C_BINDING127 LOGICAL(kind=C_BOOL) :: cxios_is_defined_interpolate_domain_write_weight128 INTEGER (kind = C_INTPTR_T), VALUE :: interpolate_domain_hdl129 END FUNCTION cxios_is_defined_interpolate_domain_write_weight130 131 70 END INTERFACE 132 71
Note: See TracChangeset
for help on using the changeset viewer.