Ignore:
Timestamp:
12/17/14 15:35:12 (10 years ago)
Author:
rlacroix
Message:

Update the Fortran interface after r540.

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r532 r546  
    1010     
    1111     
     12    SUBROUTINE cxios_set_axis_axis_ref(axis_hdl, axis_ref, axis_ref_size) BIND(C) 
     13      USE ISO_C_BINDING 
     14      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
     15      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: axis_ref 
     16      INTEGER  (kind = C_INT)     , VALUE        :: axis_ref_size 
     17    END SUBROUTINE cxios_set_axis_axis_ref 
     18     
     19    SUBROUTINE cxios_get_axis_axis_ref(axis_hdl, axis_ref, axis_ref_size) BIND(C) 
     20      USE ISO_C_BINDING 
     21      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
     22      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: axis_ref 
     23      INTEGER  (kind = C_INT)     , VALUE        :: axis_ref_size 
     24    END SUBROUTINE cxios_get_axis_axis_ref 
     25     
     26    FUNCTION cxios_is_defined_axis_axis_ref(axis_hdl ) BIND(C) 
     27      USE ISO_C_BINDING 
     28      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_axis_ref 
     29      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
     30    END FUNCTION cxios_is_defined_axis_axis_ref 
     31     
     32     
    1233    SUBROUTINE cxios_set_axis_long_name(axis_hdl, long_name, long_name_size) BIND(C) 
    1334      USE ISO_C_BINDING 
Note: See TracChangeset for help on using the changeset viewer.