Ignore:
Timestamp:
06/06/17 17:58:16 (7 years ago)
Author:
oabramkina
Message:

Two server levels: merging with trunk r1137.
There are bugs.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • XIOS/dev/dev_olga/src/interface/fortran_attr/variable_interface_attr.F90

    r581 r1158  
    3131 
    3232 
     33    SUBROUTINE cxios_set_variable_ts_target(variable_hdl, ts_target, ts_target_size) BIND(C) 
     34      USE ISO_C_BINDING 
     35      INTEGER (kind = C_INTPTR_T), VALUE :: variable_hdl 
     36      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: ts_target 
     37      INTEGER  (kind = C_INT)     , VALUE        :: ts_target_size 
     38    END SUBROUTINE cxios_set_variable_ts_target 
     39 
     40    SUBROUTINE cxios_get_variable_ts_target(variable_hdl, ts_target, ts_target_size) BIND(C) 
     41      USE ISO_C_BINDING 
     42      INTEGER (kind = C_INTPTR_T), VALUE :: variable_hdl 
     43      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: ts_target 
     44      INTEGER  (kind = C_INT)     , VALUE        :: ts_target_size 
     45    END SUBROUTINE cxios_get_variable_ts_target 
     46 
     47    FUNCTION cxios_is_defined_variable_ts_target(variable_hdl) BIND(C) 
     48      USE ISO_C_BINDING 
     49      LOGICAL(kind=C_BOOL) :: cxios_is_defined_variable_ts_target 
     50      INTEGER (kind = C_INTPTR_T), VALUE :: variable_hdl 
     51    END FUNCTION cxios_is_defined_variable_ts_target 
     52 
     53 
    3354    SUBROUTINE cxios_set_variable_type(variable_hdl, type, type_size) BIND(C) 
    3455      USE ISO_C_BINDING 
Note: See TracChangeset for help on using the changeset viewer.