source: XIOS/trunk/src/fortran/file_interface.f90 @ 321

Last change on this file since 321 was 313, checked in by ymipsl, 12 years ago

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

YM
File size: 827 bytes
Line 
1MODULE FILE_INTERFACE
2   USE, INTRINSIC :: ISO_C_BINDING
3   
4   INTERFACE ! Ne pas appeler directement/Interface FORTRAN 2003 <-> C99
5   
6      SUBROUTINE cxios_file_handle_create(ret, idt, idt_size) BIND(C)
7         USE ISO_C_BINDING
8         INTEGER  (kind = C_INTPTR_T)               :: ret
9         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: idt
10         INTEGER  (kind = C_INT)     , VALUE        :: idt_size
11      END SUBROUTINE cxios_file_handle_create
12
13      SUBROUTINE cxios_file_valid_id(ret, idt, idt_size) BIND(C)
14         USE ISO_C_BINDING
15         LOGICAL  (kind = C_BOOL)                   :: ret
16         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: idt
17         INTEGER  (kind = C_INT)     , VALUE        :: idt_size
18      END SUBROUTINE cxios_file_valid_id
19
20   END INTERFACE
21   
22END MODULE FILE_INTERFACE
Note: See TracBrowser for help on using the repository browser.