Changeset 546 for XIOS/trunk/src/interface/fortran_attr/iaxisgroup_attr.F90
- Timestamp:
- 12/17/14 15:35:12 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/iaxisgroup_attr.F90
r501 r546 12 12 13 13 SUBROUTINE xios(set_axisgroup_attr) & 14 ( axisgroup_id, group_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin&15 , zoom_ end, zoom_size )14 ( axisgroup_id, axis_ref, group_ref, long_name, name, positive, size, standard_name, unit, value & 15 , zoom_begin, zoom_end, zoom_size ) 16 16 17 17 IMPLICIT NONE 18 18 TYPE(txios(axisgroup)) :: axisgroup_hdl 19 19 CHARACTER(LEN=*), INTENT(IN) ::axisgroup_id 20 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref 20 21 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref 21 22 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name … … 32 33 CALL xios(get_axisgroup_handle)(axisgroup_id,axisgroup_hdl) 33 34 CALL xios(set_axisgroup_attr_hdl_) & 34 ( axisgroup_hdl, group_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin&35 , zoom_ end, zoom_size )35 ( axisgroup_hdl, axis_ref, group_ref, long_name, name, positive, size, standard_name, unit, value & 36 , zoom_begin, zoom_end, zoom_size ) 36 37 37 38 END SUBROUTINE xios(set_axisgroup_attr) 38 39 39 40 SUBROUTINE xios(set_axisgroup_attr_hdl) & 40 ( axisgroup_hdl, group_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin & 41 , zoom_end, zoom_size ) 42 43 IMPLICIT NONE 44 TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl 41 ( axisgroup_hdl, axis_ref, group_ref, long_name, name, positive, size, standard_name, unit, value & 42 , zoom_begin, zoom_end, zoom_size ) 43 44 IMPLICIT NONE 45 TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl 46 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref 45 47 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref 46 48 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name … … 56 58 57 59 CALL xios(set_axisgroup_attr_hdl_) & 58 ( axisgroup_hdl, group_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin&59 , zoom_ end, zoom_size )60 ( axisgroup_hdl, axis_ref, group_ref, long_name, name, positive, size, standard_name, unit, value & 61 , zoom_begin, zoom_end, zoom_size ) 60 62 61 63 END SUBROUTINE xios(set_axisgroup_attr_hdl) 62 64 63 65 SUBROUTINE xios(set_axisgroup_attr_hdl_) & 64 ( axisgroup_hdl, group_ref_, long_name_, name_, positive_, size_, standard_name_, unit_, value_ & 65 , zoom_begin_, zoom_end_, zoom_size_ ) 66 67 IMPLICIT NONE 68 TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl 66 ( axisgroup_hdl, axis_ref_, group_ref_, long_name_, name_, positive_, size_, standard_name_ & 67 , unit_, value_, zoom_begin_, zoom_end_, zoom_size_ ) 68 69 IMPLICIT NONE 70 TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl 71 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_ 69 72 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_ 70 73 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_ … … 79 82 INTEGER , OPTIONAL, INTENT(IN) :: zoom_size_ 80 83 84 IF (PRESENT(axis_ref_)) THEN 85 CALL cxios_set_axisgroup_axis_ref(axisgroup_hdl%daddr, axis_ref_, len(axis_ref_)) 86 ENDIF 87 81 88 IF (PRESENT(group_ref_)) THEN 82 89 CALL cxios_set_axisgroup_group_ref(axisgroup_hdl%daddr, group_ref_, len(group_ref_)) … … 128 135 129 136 SUBROUTINE xios(get_axisgroup_attr) & 130 ( axisgroup_id, group_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin&131 , zoom_ end, zoom_size )137 ( axisgroup_id, axis_ref, group_ref, long_name, name, positive, size, standard_name, unit, value & 138 , zoom_begin, zoom_end, zoom_size ) 132 139 133 140 IMPLICIT NONE 134 141 TYPE(txios(axisgroup)) :: axisgroup_hdl 135 142 CHARACTER(LEN=*), INTENT(IN) ::axisgroup_id 143 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref 136 144 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref 137 145 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name … … 148 156 CALL xios(get_axisgroup_handle)(axisgroup_id,axisgroup_hdl) 149 157 CALL xios(get_axisgroup_attr_hdl_) & 150 ( axisgroup_hdl, group_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin&151 , zoom_ end, zoom_size )158 ( axisgroup_hdl, axis_ref, group_ref, long_name, name, positive, size, standard_name, unit, value & 159 , zoom_begin, zoom_end, zoom_size ) 152 160 153 161 END SUBROUTINE xios(get_axisgroup_attr) 154 162 155 163 SUBROUTINE xios(get_axisgroup_attr_hdl) & 156 ( axisgroup_hdl, group_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin & 157 , zoom_end, zoom_size ) 158 159 IMPLICIT NONE 160 TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl 164 ( axisgroup_hdl, axis_ref, group_ref, long_name, name, positive, size, standard_name, unit, value & 165 , zoom_begin, zoom_end, zoom_size ) 166 167 IMPLICIT NONE 168 TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl 169 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref 161 170 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref 162 171 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name … … 172 181 173 182 CALL xios(get_axisgroup_attr_hdl_) & 174 ( axisgroup_hdl, group_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin&175 , zoom_ end, zoom_size )183 ( axisgroup_hdl, axis_ref, group_ref, long_name, name, positive, size, standard_name, unit, value & 184 , zoom_begin, zoom_end, zoom_size ) 176 185 177 186 END SUBROUTINE xios(get_axisgroup_attr_hdl) 178 187 179 188 SUBROUTINE xios(get_axisgroup_attr_hdl_) & 180 ( axisgroup_hdl, group_ref_, long_name_, name_, positive_, size_, standard_name_, unit_, value_ & 181 , zoom_begin_, zoom_end_, zoom_size_ ) 182 183 IMPLICIT NONE 184 TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl 189 ( axisgroup_hdl, axis_ref_, group_ref_, long_name_, name_, positive_, size_, standard_name_ & 190 , unit_, value_, zoom_begin_, zoom_end_, zoom_size_ ) 191 192 IMPLICIT NONE 193 TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl 194 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_ 185 195 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_ 186 196 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_ … … 195 205 INTEGER , OPTIONAL, INTENT(OUT) :: zoom_size_ 196 206 207 IF (PRESENT(axis_ref_)) THEN 208 CALL cxios_get_axisgroup_axis_ref(axisgroup_hdl%daddr, axis_ref_, len(axis_ref_)) 209 ENDIF 210 197 211 IF (PRESENT(group_ref_)) THEN 198 212 CALL cxios_get_axisgroup_group_ref(axisgroup_hdl%daddr, group_ref_, len(group_ref_)) … … 244 258 245 259 SUBROUTINE xios(is_defined_axisgroup_attr) & 246 ( axisgroup_id, group_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin&247 , zoom_ end, zoom_size )260 ( axisgroup_id, axis_ref, group_ref, long_name, name, positive, size, standard_name, unit, value & 261 , zoom_begin, zoom_end, zoom_size ) 248 262 249 263 IMPLICIT NONE 250 264 TYPE(txios(axisgroup)) :: axisgroup_hdl 251 265 CHARACTER(LEN=*), INTENT(IN) ::axisgroup_id 266 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 267 LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 252 268 LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref 253 269 LOGICAL(KIND=C_BOOL) :: group_ref_tmp … … 275 291 CALL xios(get_axisgroup_handle)(axisgroup_id,axisgroup_hdl) 276 292 CALL xios(is_defined_axisgroup_attr_hdl_) & 277 ( axisgroup_hdl, group_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin&278 , zoom_ end, zoom_size )293 ( axisgroup_hdl, axis_ref, group_ref, long_name, name, positive, size, standard_name, unit, value & 294 , zoom_begin, zoom_end, zoom_size ) 279 295 280 296 END SUBROUTINE xios(is_defined_axisgroup_attr) 281 297 282 298 SUBROUTINE xios(is_defined_axisgroup_attr_hdl) & 283 ( axisgroup_hdl, group_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin & 284 , zoom_end, zoom_size ) 285 286 IMPLICIT NONE 287 TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl 299 ( axisgroup_hdl, axis_ref, group_ref, long_name, name, positive, size, standard_name, unit, value & 300 , zoom_begin, zoom_end, zoom_size ) 301 302 IMPLICIT NONE 303 TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl 304 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 305 LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 288 306 LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref 289 307 LOGICAL(KIND=C_BOOL) :: group_ref_tmp … … 310 328 311 329 CALL xios(is_defined_axisgroup_attr_hdl_) & 312 ( axisgroup_hdl, group_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin&313 , zoom_ end, zoom_size )330 ( axisgroup_hdl, axis_ref, group_ref, long_name, name, positive, size, standard_name, unit, value & 331 , zoom_begin, zoom_end, zoom_size ) 314 332 315 333 END SUBROUTINE xios(is_defined_axisgroup_attr_hdl) 316 334 317 335 SUBROUTINE xios(is_defined_axisgroup_attr_hdl_) & 318 ( axisgroup_hdl, group_ref_, long_name_, name_, positive_, size_, standard_name_, unit_, value_ & 319 , zoom_begin_, zoom_end_, zoom_size_ ) 320 321 IMPLICIT NONE 322 TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl 336 ( axisgroup_hdl, axis_ref_, group_ref_, long_name_, name_, positive_, size_, standard_name_ & 337 , unit_, value_, zoom_begin_, zoom_end_, zoom_size_ ) 338 339 IMPLICIT NONE 340 TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl 341 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_ 342 LOGICAL(KIND=C_BOOL) :: axis_ref__tmp 323 343 LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_ 324 344 LOGICAL(KIND=C_BOOL) :: group_ref__tmp … … 344 364 LOGICAL(KIND=C_BOOL) :: zoom_size__tmp 345 365 366 IF (PRESENT(axis_ref_)) THEN 367 axis_ref__tmp=cxios_is_defined_axisgroup_axis_ref(axisgroup_hdl%daddr) 368 axis_ref_=axis_ref__tmp 369 ENDIF 370 346 371 IF (PRESENT(group_ref_)) THEN 347 372 group_ref__tmp=cxios_is_defined_axisgroup_group_ref(axisgroup_hdl%daddr)
Note: See TracChangeset
for help on using the changeset viewer.