MODULE DUPLICATE_SCALAR_TO_AXIS_INTERFACE USE, INTRINSIC :: ISO_C_BINDING INTERFACE ! Ne pas appeler directement/Interface FORTRAN 2003 <-> C99 SUBROUTINE cxios_duplicate_scalar_to_axis_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_duplicate_scalar_to_axis_handle_create SUBROUTINE cxios_duplicate_scalar_to_axis_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 cxios_duplicate_scalar_to_axis_valid_id END INTERFACE END MODULE DUPLICATE_SCALAR_TO_AXIS_INTERFACE