Changeset 285 for XMLIO_V2/dev/dev_rv/src/xmlio/fortran/fieldgroup_interface.f90

Timestamp:

09/26/11 14:19:55 (13 years ago)

Author:

hozdoba

Message:

 

File:

• XMLIO_V2/dev/dev_rv/src/xmlio/fortran/fieldgroup_interface.f90 (modified) (1 diff)

XMLIO_V2/dev/dev_rv/src/xmlio/fortran/fieldgroup_interface.f90

@@ -99 +99 @@
       
       SUBROUTINE xios_fieldgroup_handle_create(ret, idt, idt_size) BIND(C)
-         import C_CHAR, C_INTPTR_T, C_INT
+         USE ISO_C_BINDING
          INTEGER  (kind = C_INTPTR_T)               :: ret
          CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: idt
          INTEGER  (kind = C_INT)     , VALUE        :: idt_size
       END SUBROUTINE xios_fieldgroup_handle_create
+
+      SUBROUTINE xios_fieldgroup_valid_id(ret, idt, idt_size) BIND(C)
+         USE ISO_C_BINDING
+         LOGICAL  (kind = C_BOOL)                   :: ret
+         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: idt
+         INTEGER  (kind = C_INT)     , VALUE        :: idt_size
+      END SUBROUTINE xios_fieldgroup_valid_id
    
    END INTERFACE