Changeset 966 for XIOS/trunk/src/interface/fortran_attr/izoom_axis_attr.F90
- Timestamp:
- 10/10/16 16:01:11 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/izoom_axis_attr.F90
r787 r966 20 20 INTEGER , OPTIONAL, INTENT(IN) :: n 21 21 22 CALL xios(get_zoom_axis_handle)(zoom_axis_id,zoom_axis_hdl) 22 CALL xios(get_zoom_axis_handle) & 23 (zoom_axis_id,zoom_axis_hdl) 23 24 CALL xios(set_zoom_axis_attr_hdl_) & 24 25 ( zoom_axis_hdl, begin, n ) … … 48 49 49 50 IF (PRESENT(begin_)) THEN 50 CALL cxios_set_zoom_axis_begin(zoom_axis_hdl%daddr, begin_) 51 CALL cxios_set_zoom_axis_begin & 52 (zoom_axis_hdl%daddr, begin_) 51 53 ENDIF 52 54 53 55 IF (PRESENT(n_)) THEN 54 CALL cxios_set_zoom_axis_n(zoom_axis_hdl%daddr, n_) 56 CALL cxios_set_zoom_axis_n & 57 (zoom_axis_hdl%daddr, n_) 55 58 ENDIF 56 59 … … 66 69 INTEGER , OPTIONAL, INTENT(OUT) :: n 67 70 68 CALL xios(get_zoom_axis_handle)(zoom_axis_id,zoom_axis_hdl) 71 CALL xios(get_zoom_axis_handle) & 72 (zoom_axis_id,zoom_axis_hdl) 69 73 CALL xios(get_zoom_axis_attr_hdl_) & 70 74 ( zoom_axis_hdl, begin, n ) … … 94 98 95 99 IF (PRESENT(begin_)) THEN 96 CALL cxios_get_zoom_axis_begin(zoom_axis_hdl%daddr, begin_) 100 CALL cxios_get_zoom_axis_begin & 101 (zoom_axis_hdl%daddr, begin_) 97 102 ENDIF 98 103 99 104 IF (PRESENT(n_)) THEN 100 CALL cxios_get_zoom_axis_n(zoom_axis_hdl%daddr, n_) 105 CALL cxios_get_zoom_axis_n & 106 (zoom_axis_hdl%daddr, n_) 101 107 ENDIF 102 108 … … 114 120 LOGICAL(KIND=C_BOOL) :: n_tmp 115 121 116 CALL xios(get_zoom_axis_handle)(zoom_axis_id,zoom_axis_hdl) 122 CALL xios(get_zoom_axis_handle) & 123 (zoom_axis_id,zoom_axis_hdl) 117 124 CALL xios(is_defined_zoom_axis_attr_hdl_) & 118 125 ( zoom_axis_hdl, begin, n ) … … 146 153 147 154 IF (PRESENT(begin_)) THEN 148 begin__tmp = cxios_is_defined_zoom_axis_begin(zoom_axis_hdl%daddr) 155 begin__tmp = cxios_is_defined_zoom_axis_begin & 156 (zoom_axis_hdl%daddr) 149 157 begin_ = begin__tmp 150 158 ENDIF 151 159 152 160 IF (PRESENT(n_)) THEN 153 n__tmp = cxios_is_defined_zoom_axis_n(zoom_axis_hdl%daddr) 161 n__tmp = cxios_is_defined_zoom_axis_n & 162 (zoom_axis_hdl%daddr) 154 163 n_ = n__tmp 155 164 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.