Changeset 556 for XIOS/trunk/src/generate_interface_impl.hpp

Timestamp:

02/12/15 10:42:26 (9 years ago)

Author:

rlacroix

Message:

Fix the Fortran interface generator and regenerate the interface.

File:

• XIOS/trunk/src/generate_interface_impl.hpp (modified) (2 diffs)

XIOS/trunk/src/generate_interface_impl.hpp

@@ -660 +660 @@
        oss<<"  ALLOCATE("<<name_tmp<<"(size("<<name<<"_,1)))"<<iendl ; \
        oss<<"  CALL cxios_get_"<<className<<"_"<<name<<"("<<className<<"_hdl%daddr, "<<name_tmp<<",size("<<name<<"_,1))"<<iendl ; \
-       oss<<"  "<<name<<"_="<<name_tmp<<"_"<<iendl ; \
+       oss<<"  "<<name<<"_="<<name_tmp<<iendl ; \
      } \
      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 ; \
        oss<<"  CALL cxios_get_"<<className<<"_"<<name<<"("<<className<<"_hdl%daddr, "<<name_tmp<<",size("<<name<<"_,1))"<<iendl ; \
-       oss<<"  "<<name<<"_="<<name_tmp<<"_"<<iendl ; \
+       oss<<"  "<<name<<"_="<<name_tmp<<iendl ; \
      } \
      else oss<<"  CALL cxios_get_"<<className<<"_"<<name<<"("<<className<<"_hdl%daddr, "<<name<<"_,size("<<name<<"_,1))"<<iendl ; \