Changeset 312 for XIOS/trunk/src/fortran/context_interface.f90

Timestamp:

02/14/12 15:36:14 (12 years ago)

Author:

ymipsl

Message:

suppress old fortran interface

YM

File:

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

XIOS/trunk/src/fortran/context_interface.f90

@@ -38 +38 @@
       END SUBROUTINE cxios_context_set_current
 
-      SUBROUTINE cxios_context_create(context, context_id, context_id_size, calendar_type, &
-                                     year, month, day, hour, minute, second) BIND(C)
-         USE ISO_C_BINDING
-         INTEGER  (kind = C_INTPTR_T)               :: context
-         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: context_id
-         INTEGER  (kind = C_INT)     , VALUE        :: context_id_size
-         INTEGER  (kind = C_INT)     , VALUE        :: calendar_type, year, month, day, hour, minute, second
-      END SUBROUTINE cxios_context_create
-
       SUBROUTINE cxios_context_valid_id(ret, idt, idt_size) BIND(C)
          USE ISO_C_BINDING