Changeset 329 for XIOS/trunk/src/interface

Timestamp:

03/07/12 17:32:08 (12 years ago)

Author:

ymipsl

Message:

Port to IBM POWER 6 Vargas from IDRIS

YM

File:

• XIOS/trunk/src/interface/fortran/gridgroup_interface.f90 (modified) (1 diff)

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

@@ -4 +4 @@
    INTERFACE ! Ne pas appeler directement/Interface FORTRAN 2003 <-> C99
      
-      SUBROUTINE cxios_domaingroup_handle_create(ret, idt, idt_size) BIND(C)
+      SUBROUTINE cxios_gridgroup_handle_create(ret, idt, idt_size) BIND(C)
          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 cxios_domaingroup_handle_create
+      END SUBROUTINE cxios_gridgroup_handle_create
 
       SUBROUTINE cxios_gridgroup_valid_id(ret, idt, idt_size) BIND(C)