Ignore:
Timestamp:
02/18/12 22:43:24 (12 years ago)
Author:
ymipsl
Message:

Fortran attribut interface are now automaticaly generated.
Add get attribut fonctionnality from fortran.

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • XIOS/trunk/src/fortran/gridgroup_interface.f90

    r286 r313  
    44   INTERFACE ! Ne pas appeler directement/Interface FORTRAN 2003 <-> C99 
    55      
    6       SUBROUTINE cxios_set_gridgroup_name(gridgroup_hdl, name, name_size) BIND(C) 
    7          USE ISO_C_BINDING 
    8          INTEGER (kind = C_INTPTR_T), VALUE        :: gridgroup_hdl 
    9          CHARACTER(kind = C_CHAR)   , DIMENSION(*) :: name 
    10          INTEGER (kind = C_INT)     , VALUE        :: name_size 
    11       END SUBROUTINE cxios_set_gridgroup_name 
    12  
    13       SUBROUTINE cxios_set_gridgroup_description(gridgroup_hdl, description, description_size) BIND(C) 
    14          USE ISO_C_BINDING 
    15          INTEGER (kind = C_INTPTR_T), VALUE        :: gridgroup_hdl 
    16          CHARACTER(kind = C_CHAR)   , DIMENSION(*) :: description 
    17          INTEGER (kind = C_INT)     , VALUE        :: description_size 
    18       END SUBROUTINE cxios_set_gridgroup_description 
    19  
    20       SUBROUTINE cxios_set_gridgroup_domain_ref(gridgroup_hdl, domain_ref, domain_ref_size) BIND(C) 
    21          USE ISO_C_BINDING 
    22          INTEGER (kind = C_INTPTR_T), VALUE        :: gridgroup_hdl 
    23          CHARACTER(kind = C_CHAR)   , DIMENSION(*) :: domain_ref 
    24          INTEGER (kind = C_INT)     , VALUE        :: domain_ref_size 
    25       END SUBROUTINE cxios_set_gridgroup_domain_ref 
    26  
    27       SUBROUTINE cxios_set_gridgroup_axis_ref(gridgroup_hdl, axis_ref, axis_ref_size) BIND(C) 
    28          USE ISO_C_BINDING 
    29          INTEGER  (kind = C_INTPTR_T), VALUE        :: gridgroup_hdl 
    30          CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: axis_ref 
    31          INTEGER  (kind = C_INT)     , VALUE        :: axis_ref_size 
    32       END SUBROUTINE cxios_set_gridgroup_axis_ref 
    33        
    346      SUBROUTINE cxios_domaingroup_handle_create(ret, idt, idt_size) BIND(C) 
    357         USE ISO_C_BINDING 
Note: See TracChangeset for help on using the changeset viewer.