Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/fortran/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
File Accesing文件名传递给其程序内的Fortran可执行文件_File_Fortran - Fatal编程技术网

File Accesing文件名传递给其程序内的Fortran可执行文件

File Accesing文件名传递给其程序内的Fortran可执行文件,file,fortran,File,Fortran,我正在尝试创建一个Fortan程序,当编译为可执行文件时,它可以将文件作为参数(例如progexe afile) 我需要以这样一种方式对程序进行编码,即传递的文件名(afile)在Fortran程序中可用。我不知道怎么做。我正在windows上的MingW中使用gfortran。使用。它适用于我的gfortran 4.6.3。示例用法: PROGRAM Main IMPLICIT NONE CHARACTER(LEN=4096) :: FileName CALL GET_

我正在尝试创建一个Fortan程序,当编译为可执行文件时,它可以将文件作为参数(例如progexe afile)

我需要以这样一种方式对程序进行编码,即传递的文件名(afile)在Fortran程序中可用。我不知道怎么做。我正在windows上的MingW中使用gfortran。

使用。它适用于我的gfortran 4.6.3。示例用法:

PROGRAM Main
    IMPLICIT NONE
    CHARACTER(LEN=4096) :: FileName
    CALL GET_COMMAND_ARGUMENT(1, FileName)
    WRITE(*,*) 'Your file name is ', TRIM(FileName)
STOP
ENDPROGRAM
编译并运行:

brady@rocky:~/tmp$ gfortran -o gcatest gcatest.f90 
brady@rocky:~/tmp$ ./gcatest myfile.txt
 Your file name is myfile.txt
brady@rocky:~/tmp$ 
使用。它适用于我的gfortran 4.6.3。示例用法:

PROGRAM Main
    IMPLICIT NONE
    CHARACTER(LEN=4096) :: FileName
    CALL GET_COMMAND_ARGUMENT(1, FileName)
    WRITE(*,*) 'Your file name is ', TRIM(FileName)
STOP
ENDPROGRAM
编译并运行:

brady@rocky:~/tmp$ gfortran -o gcatest gcatest.f90 
brady@rocky:~/tmp$ ./gcatest myfile.txt
 Your file name is myfile.txt
brady@rocky:~/tmp$