Changeset 556
- Timestamp:
- 02/12/15 10:42:26 (9 years ago)
- Location:
- XIOS/trunk/src
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/generate_interface_impl.hpp
r545 r556 660 660 oss<<" ALLOCATE("<<name_tmp<<"(size("<<name<<"_,1)))"<<iendl ; \ 661 661 oss<<" CALL cxios_get_"<<className<<"_"<<name<<"("<<className<<"_hdl%daddr, "<<name_tmp<<",size("<<name<<"_,1))"<<iendl ; \ 662 oss<<" "<<name<<"_="<<name_tmp<< "_"<<iendl ; \662 oss<<" "<<name<<"_="<<name_tmp<<iendl ; \ 663 663 } \ 664 664 else oss<<" CALL cxios_get_"<<className<<"_"<<name<<"("<<className<<"_hdl%daddr, "<<name<<"_,size("<<name<<"_,1))"<<iendl ; \ … … 991 991 oss<<" ALLOCATE("<<name_tmp<<"(size("<<name<<"_,1)))"<<iendl ; \ 992 992 oss<<" CALL cxios_get_"<<className<<"_"<<name<<"("<<className<<"_hdl%daddr, "<<name_tmp<<",size("<<name<<"_,1))"<<iendl ; \ 993 oss<<" "<<name<<"_="<<name_tmp<< "_"<<iendl ; \993 oss<<" "<<name<<"_="<<name_tmp<<iendl ; \ 994 994 } \ 995 995 else oss<<" CALL cxios_get_"<<className<<"_"<<name<<"("<<className<<"_hdl%daddr, "<<name<<"_,size("<<name<<"_,1))"<<iendl ; \ -
XIOS/trunk/src/interface/fortran_attr/iaxis_attr.F90
r555 r556 290 290 ALLOCATE(mask__tmp(size(mask_,1))) 291 291 CALL cxios_get_axis_mask(axis_hdl%daddr, mask__tmp,size(mask_,1)) 292 mask_=mask__tmp _292 mask_=mask__tmp 293 293 ENDIF 294 294 -
XIOS/trunk/src/interface/fortran_attr/iaxisgroup_attr.F90
r555 r556 306 306 ALLOCATE(mask__tmp(size(mask_,1))) 307 307 CALL cxios_get_axisgroup_mask(axisgroup_hdl%daddr, mask__tmp,size(mask_,1)) 308 mask_=mask__tmp _308 mask_=mask__tmp 309 309 ENDIF 310 310 -
XIOS/trunk/src/interface/fortran_attr/igrid_attr.F90
r555 r556 134 134 ALLOCATE(axisDomainOrder__tmp(size(axisDomainOrder_,1))) 135 135 CALL cxios_get_grid_axisDomainOrder(grid_hdl%daddr, axisDomainOrder__tmp,size(axisDomainOrder_,1)) 136 axisDomainOrder_=axisDomainOrder__tmp _136 axisDomainOrder_=axisDomainOrder__tmp 137 137 ENDIF 138 138 -
XIOS/trunk/src/interface/fortran_attr/igridgroup_attr.F90
r555 r556 144 144 ALLOCATE(axisDomainOrder__tmp(size(axisDomainOrder_,1))) 145 145 CALL cxios_get_gridgroup_axisDomainOrder(gridgroup_hdl%daddr, axisDomainOrder__tmp,size(axisDomainOrder_,1)) 146 axisDomainOrder_=axisDomainOrder__tmp _146 axisDomainOrder_=axisDomainOrder__tmp 147 147 ENDIF 148 148
Note: See TracChangeset
for help on using the changeset viewer.