2019-01-21 23:21:20 +01:00
|
|
|
module system
|
2019-01-21 18:01:02 +01:00
|
|
|
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
|
2019-01-21 23:21:20 +01:00
|
|
|
|
|
|
|
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
|
|
|
|
|
2019-01-21 18:01:02 +01:00
|
|
|
END INTERFACE
|
2019-01-21 23:21:20 +01:00
|
|
|
end module
|
2019-01-21 18:01:02 +01:00
|
|
|
|