EZFIO/src/system_f.f90

MODULE system

  USE iso_c_binding

  INTERFACE
    SUBROUTINE mkdir(filename) BIND(C,name="fortran_mkdir")
      USE iso_c_binding
      CHARACTER(kind=C_CHAR),INTENT(in) :: filename(*)
    END SUBROUTINE
  END INTERFACE

END MODULE