Changeset 556


Ignore:
Timestamp:
02/12/15 10:42:26 (9 years ago)
Author:
rlacroix
Message:

Fix the Fortran interface generator and regenerate the interface.

Location:
XIOS/trunk/src
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • XIOS/trunk/src/generate_interface_impl.hpp

    r545 r556  
    660660       oss<<"  ALLOCATE("<<name_tmp<<"(size("<<name<<"_,1)))"<<iendl ; \ 
    661661       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 ; \ 
    663663     } \ 
    664664     else oss<<"  CALL cxios_get_"<<className<<"_"<<name<<"("<<className<<"_hdl%daddr, "<<name<<"_,size("<<name<<"_,1))"<<iendl ; \ 
    … …  
    991991       oss<<"  ALLOCATE("<<name_tmp<<"(size("<<name<<"_,1)))"<<iendl ; \ 
    992992       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 ; \ 
    994994     } \ 
    995995     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  
    290290        ALLOCATE(mask__tmp(size(mask_,1))) 
    291291        CALL cxios_get_axis_mask(axis_hdl%daddr, mask__tmp,size(mask_,1)) 
    292         mask_=mask__tmp_ 
     292        mask_=mask__tmp 
    293293      ENDIF 
    294294       

  • XIOS/trunk/src/interface/fortran_attr/iaxisgroup_attr.F90

    r555 r556  
    306306        ALLOCATE(mask__tmp(size(mask_,1))) 
    307307        CALL cxios_get_axisgroup_mask(axisgroup_hdl%daddr, mask__tmp,size(mask_,1)) 
    308         mask_=mask__tmp_ 
     308        mask_=mask__tmp 
    309309      ENDIF 
    310310       

  • XIOS/trunk/src/interface/fortran_attr/igrid_attr.F90

    r555 r556  
    134134        ALLOCATE(axisDomainOrder__tmp(size(axisDomainOrder_,1))) 
    135135        CALL cxios_get_grid_axisDomainOrder(grid_hdl%daddr, axisDomainOrder__tmp,size(axisDomainOrder_,1)) 
    136         axisDomainOrder_=axisDomainOrder__tmp_ 
     136        axisDomainOrder_=axisDomainOrder__tmp 
    137137      ENDIF 
    138138       

  • XIOS/trunk/src/interface/fortran_attr/igridgroup_attr.F90

    r555 r556  
    144144        ALLOCATE(axisDomainOrder__tmp(size(axisDomainOrder_,1))) 
    145145        CALL cxios_get_gridgroup_axisDomainOrder(gridgroup_hdl%daddr, axisDomainOrder__tmp,size(axisDomainOrder_,1)) 
    146         axisDomainOrder_=axisDomainOrder__tmp_ 
     146        axisDomainOrder_=axisDomainOrder__tmp 
    147147      ENDIF 
    148148       
Note: See TracChangeset for help on using the changeset viewer.