mirror of
https://gitlab.com/scemama/EZFIO.git
synced 2024-06-02 03:15:21 +02:00
25 lines
652 B
Fortran
25 lines
652 B
Fortran
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
|
|
|
|
SUBROUTINE gzip(filename,output) BIND(C,name="gzip")
|
|
USE iso_c_binding
|
|
CHARACTER(kind=C_CHAR),INTENT(in) :: filename(*)
|
|
CHARACTER(kind=C_CHAR),INTENT(in) :: output(*)
|
|
END SUBROUTINE
|
|
|
|
SUBROUTINE zcat(filename,output) BIND(C,name="zcat")
|
|
USE iso_c_binding
|
|
CHARACTER(kind=C_CHAR),INTENT(in) :: filename(*)
|
|
CHARACTER(kind=C_CHAR),INTENT(in) :: output(*)
|
|
END SUBROUTINE
|
|
|
|
END INTERFACE
|
|
end module
|
|
|