Changeset 545 for XIOS/trunk/src/generate_interface_impl.hpp
- Timestamp:
- 12/17/14 11:14:05 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/generate_interface_impl.hpp
r537 r545 362 362 oss << "SUBROUTINE cxios_set_" << className << "_" << name << "(" << className << "_hdl, " << name << ") BIND(C)" << iendl; 363 363 oss << " USE ISO_C_BINDING" << iendl; 364 oss << " USE ID ATE" << iendl;364 oss << " USE IDURATION" << iendl; 365 365 oss << " INTEGER (kind = C_INTPTR_T), VALUE :: " << className << "_hdl" << iendl; 366 366 oss << " TYPE(txios(duration)), VALUE :: " << name << iendl; … … 369 369 oss << "SUBROUTINE cxios_get_" << className << "_" << name << "(" << className << "_hdl, " << name << ") BIND(C)" << iendl; 370 370 oss << " USE ISO_C_BINDING" << iendl; 371 oss << " USE ID ATE" << iendl;371 oss << " USE IDURATION" << iendl; 372 372 oss << " INTEGER (kind = C_INTPTR_T), VALUE :: " << className << "_hdl" << iendl; 373 373 oss << " TYPE(txios(duration)) :: " << name << iendl;
Note: See TracChangeset
for help on using the changeset viewer.