Changeset 313 for XIOS/trunk/src/fortran/filegroup_interface.f90

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:

• XIOS/trunk/src/fortran/filegroup_interface.f90 (modified) (2 diffs)

XIOS/trunk/src/fortran/filegroup_interface.f90

@@ -4 +4 @@
    INTERFACE ! Ne pas appeler directement/Interface FORTRAN 2003 <-> C99
    
-      SUBROUTINE cxios_set_filegroup_name(filegroup_hdl, name ,name_size) BIND(C)
-         USE ISO_C_BINDING
-         INTEGER  (kind = C_INTPTR_T), VALUE        :: filegroup_hdl
-         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
-         INTEGER  (kind = C_INT)     , VALUE        :: name_size
-      END SUBROUTINE cxios_set_filegroup_name
-
-      SUBROUTINE cxios_set_filegroup_description(filegroup_hdl, description ,description_size) BIND(C)
-         USE ISO_C_BINDING
-         INTEGER  (kind = C_INTPTR_T), VALUE        :: filegroup_hdl
-         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: description
-         INTEGER  (kind = C_INT)     , VALUE        :: description_size
-      END SUBROUTINE cxios_set_filegroup_description
-      
-      SUBROUTINE cxios_set_filegroup_name_suffix(filegroup_hdl, name_suffix ,name_suffix_size) BIND(C)
-         USE ISO_C_BINDING
-         INTEGER  (kind = C_INTPTR_T), VALUE        :: filegroup_hdl
-         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name_suffix
-         INTEGER  (kind = C_INT)     , VALUE        :: name_suffix_size
-      END SUBROUTINE cxios_set_filegroup_name_suffix
-
-      SUBROUTINE cxios_set_filegroup_output_freq(filegroup_hdl, output_freq ,output_freq_size) BIND(C)
-         USE ISO_C_BINDING
-         INTEGER  (kind = C_INTPTR_T), VALUE        :: filegroup_hdl
-         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: output_freq
-         INTEGER  (kind = C_INT)     , VALUE        :: output_freq_size
-      END SUBROUTINE cxios_set_filegroup_output_freq
-
-      SUBROUTINE cxios_set_filegroup_output_level(filegroup_hdl, output_level) BIND(C)
-         USE ISO_C_BINDING
-         INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
-         INTEGER (kind = C_INT)     , VALUE :: output_level
-      END SUBROUTINE cxios_set_filegroup_output_level
-
-      SUBROUTINE cxios_set_filegroup_enabled(filegroup_hdl, enabled) BIND(C)
-         USE ISO_C_BINDING
-         INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
-         LOGICAL (kind = C_BOOL)    , VALUE :: enabled
-      END SUBROUTINE cxios_set_filegroup_enabled
-      
       SUBROUTINE cxios_filegroup_handle_create(ret, idt, idt_size) BIND(C)
          USE ISO_C_BINDING
@@ -58 +18 @@
       END SUBROUTINE cxios_filegroup_valid_id
 
-      SUBROUTINE cxios_set_filegroup_type(filegroup_hdl, type ,type_size) BIND(C)
-         USE ISO_C_BINDING
-         INTEGER  (kind = C_INTPTR_T), VALUE        :: filegroup_hdl
-         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
-         INTEGER  (kind = C_INT)     , VALUE        :: type_size
-      END SUBROUTINE cxios_set_filegroup_type
-      
    END INTERFACE