Changeset 415 for XIOS/trunk/src/interface/fortran_attr/iaxisgroup_attr.F90
- Timestamp:
- 01/20/13 23:14:35 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/iaxisgroup_attr.F90
r369 r415 12 12 13 13 SUBROUTINE xios(set_axisgroup_attr) & 14 ( axisgroup_id, group_ref, long_name, name, size, standard_name, unit, value, zoom_begin, zoom_end&15 , zoom_ size )14 ( axisgroup_id, group_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin & 15 , zoom_end, zoom_size ) 16 16 17 17 IMPLICIT NONE … … 21 21 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name 22 22 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 23 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive 23 24 INTEGER , OPTIONAL, INTENT(IN) :: size 24 25 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name … … 31 32 CALL xios(get_axisgroup_handle)(axisgroup_id,axisgroup_hdl) 32 33 CALL xios(set_axisgroup_attr_hdl_) & 33 ( axisgroup_hdl, group_ref, long_name, name, size, standard_name, unit, value, zoom_begin, zoom_end&34 , zoom_ size )34 ( axisgroup_hdl, group_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin & 35 , zoom_end, zoom_size ) 35 36 36 37 END SUBROUTINE xios(set_axisgroup_attr) 37 38 38 39 SUBROUTINE xios(set_axisgroup_attr_hdl) & 39 ( axisgroup_hdl, group_ref, long_name, name, size, standard_name, unit, value, zoom_begin, zoom_end&40 , zoom_ size )40 ( axisgroup_hdl, group_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin & 41 , zoom_end, zoom_size ) 41 42 42 43 IMPLICIT NONE … … 45 46 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name 46 47 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 48 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive 47 49 INTEGER , OPTIONAL, INTENT(IN) :: size 48 50 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name … … 54 56 55 57 CALL xios(set_axisgroup_attr_hdl_) & 56 ( axisgroup_hdl, group_ref, long_name, name, size, standard_name, unit, value, zoom_begin, zoom_end&57 , zoom_ size )58 ( axisgroup_hdl, group_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin & 59 , zoom_end, zoom_size ) 58 60 59 61 END SUBROUTINE xios(set_axisgroup_attr_hdl) 60 62 61 63 SUBROUTINE xios(set_axisgroup_attr_hdl_) & 62 ( axisgroup_hdl, group_ref_, long_name_, name_, size_, standard_name_, unit_, value_, zoom_begin_ &63 , zoom_ end_, zoom_size_ )64 ( axisgroup_hdl, group_ref_, long_name_, name_, positive_, size_, standard_name_, unit_, value_ & 65 , zoom_begin_, zoom_end_, zoom_size_ ) 64 66 65 67 IMPLICIT NONE … … 68 70 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_ 69 71 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_ 72 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive_ 70 73 INTEGER , OPTIONAL, INTENT(IN) :: size_ 71 74 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_ … … 88 91 ENDIF 89 92 93 IF (PRESENT(positive_)) THEN 94 CALL cxios_set_axisgroup_positive(axisgroup_hdl%daddr, positive_, len(positive_)) 95 ENDIF 96 90 97 IF (PRESENT(size_)) THEN 91 98 CALL cxios_set_axisgroup_size(axisgroup_hdl%daddr, size_) … … 121 128 122 129 SUBROUTINE xios(get_axisgroup_attr) & 123 ( axisgroup_id, group_ref, long_name, name, size, standard_name, unit, value, zoom_begin, zoom_end&124 , zoom_ size )130 ( axisgroup_id, group_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin & 131 , zoom_end, zoom_size ) 125 132 126 133 IMPLICIT NONE … … 130 137 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name 131 138 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 139 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive 132 140 INTEGER , OPTIONAL, INTENT(OUT) :: size 133 141 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name … … 140 148 CALL xios(get_axisgroup_handle)(axisgroup_id,axisgroup_hdl) 141 149 CALL xios(get_axisgroup_attr_hdl_) & 142 ( axisgroup_hdl, group_ref, long_name, name, size, standard_name, unit, value, zoom_begin, zoom_end&143 , zoom_ size )150 ( axisgroup_hdl, group_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin & 151 , zoom_end, zoom_size ) 144 152 145 153 END SUBROUTINE xios(get_axisgroup_attr) 146 154 147 155 SUBROUTINE xios(get_axisgroup_attr_hdl) & 148 ( axisgroup_hdl, group_ref, long_name, name, size, standard_name, unit, value, zoom_begin, zoom_end&149 , zoom_ size )156 ( axisgroup_hdl, group_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin & 157 , zoom_end, zoom_size ) 150 158 151 159 IMPLICIT NONE … … 154 162 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name 155 163 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 164 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive 156 165 INTEGER , OPTIONAL, INTENT(OUT) :: size 157 166 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name … … 163 172 164 173 CALL xios(get_axisgroup_attr_hdl_) & 165 ( axisgroup_hdl, group_ref, long_name, name, size, standard_name, unit, value, zoom_begin, zoom_end&166 , zoom_ size )174 ( axisgroup_hdl, group_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin & 175 , zoom_end, zoom_size ) 167 176 168 177 END SUBROUTINE xios(get_axisgroup_attr_hdl) 169 178 170 179 SUBROUTINE xios(get_axisgroup_attr_hdl_) & 171 ( axisgroup_hdl, group_ref_, long_name_, name_, size_, standard_name_, unit_, value_, zoom_begin_ &172 , zoom_ end_, zoom_size_ )180 ( axisgroup_hdl, group_ref_, long_name_, name_, positive_, size_, standard_name_, unit_, value_ & 181 , zoom_begin_, zoom_end_, zoom_size_ ) 173 182 174 183 IMPLICIT NONE … … 177 186 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_ 178 187 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_ 188 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive_ 179 189 INTEGER , OPTIONAL, INTENT(OUT) :: size_ 180 190 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_ … … 197 207 ENDIF 198 208 209 IF (PRESENT(positive_)) THEN 210 CALL cxios_get_axisgroup_positive(axisgroup_hdl%daddr, positive_, len(positive_)) 211 ENDIF 212 199 213 IF (PRESENT(size_)) THEN 200 214 CALL cxios_get_axisgroup_size(axisgroup_hdl%daddr, size_)
Note: See TracChangeset
for help on using the changeset viewer.