Ignore:
Timestamp:
03/30/12 15:52:19 (12 years ago)
Author:
ymipsl
Message:

update fortran interface

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • XIOS/trunk/src/interface/fortran_attr/context_interface_attr.f90

    r326 r336  
    5454     
    5555     
     56    SUBROUTINE cxios_set_context_time_origin(context_hdl, time_origin, time_origin_size) BIND(C) 
     57      USE ISO_C_BINDING 
     58      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     59      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: time_origin 
     60      INTEGER  (kind = C_INT)     , VALUE        :: time_origin_size 
     61    END SUBROUTINE cxios_set_context_time_origin 
     62     
     63    SUBROUTINE cxios_get_context_time_origin(context_hdl, time_origin, time_origin_size) BIND(C) 
     64      USE ISO_C_BINDING 
     65      INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 
     66      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: time_origin 
     67      INTEGER  (kind = C_INT)     , VALUE        :: time_origin_size 
     68    END SUBROUTINE cxios_get_context_time_origin 
     69     
     70     
    5671    SUBROUTINE cxios_set_context_timestep(context_hdl, timestep, timestep_size) BIND(C) 
    5772      USE ISO_C_BINDING 
Note: See TracChangeset for help on using the changeset viewer.