Fortran中调用系统命令/其它可执行文件
转载自：博客园https://www.cnblogs.com/erichf/p/13905140.html
fortran内调用系统命令/其它可执行文件时，有两种方法：
- 在fortran 2008中新增内部subroutine程序：
execute_command_line(参考：《Modern Fortran explained incorporating Fortran 2018》中的9.18.4) - 使用
subroutine system或者function system（不同系统不一样？ ），对intel fortran 中可使用systemqq,system()是一个非标准扩展，但它也是我到目前为止使用的所有编译器的内在过程。同样，不必使用任何模块来调用它。system()既可以用作函数，也可以用作子程序，具体取决于编译器。 例如：在Sun Studio中，system为一个function，使用方法是：参考：https://docs.oracle.com/cd/E19957-01/805-4942/6j4m3r90i/index.html
1
2
3
4
5
character*8 string / 'ls s*' /
INTEGER*4 status, system
status = system( string )
if ( status .ne. 0 ) stop 'system: error'
end
在gfortran中，The SYSTEM subroutine (and function) are a GNU extension.
1
2
3
program SystemTest
call system("ls")
end program SystemTest
推荐使用execute_command_line，使用时，注意在命令前后加上双引号
1
2
3
4
program SystemTest
integer :: i
call execute_command_line ("ls", exitstat=i)
end program SystemTest
-
需要输出/输出文件时，可以使用重定向：
1
2
call system('aa.exe < bb.txt')
call system('aa.exe > bb.txt')
- 其他调用形式：
1
call system("start /wait name.exe")
ifport 是 Intel Fortran 提供的一个扩展模块，包含各种面向操作系统的程序接口。例如各种命令行操作，文件夹操作，多文件通配符操作（列举文件夹下所有文件）等等。最后要注意的是，一旦你 use ifport 了，你的代码就只能在 Intel Fortran 上运行了。
fortran：使用内部函数fdate得到系统时间
1
2
3
4
5
6
program main
use ifport, only : fdate
implicit none
print*, fdate()
end program main
systemqq
SYSTEMQQ
Run-Time Function: Executes a system command by passing a command string to the operating system’s command interpreter.
Module: USE DFLIB
dflib 是 cvf 或 ivf 提供的扩展库。
Syntax
result = SYSTEMQQ (commandline)
commandline
(Input) Character(). Command to be passed to the operating system.
Results:
The result is of type LOGICAL(4). The result is .TRUE. if successful; otherwise, .FALSE..
The SYSTEMQQ function lets you pass operating-system commands as well as programs. SYSTEMQQ refers to the COMSPEC and PATH environment variables that locate the command interpreter file (usually named COMMAND.COM).
On WNT systems, the calling process waits until the command terminates. On W9* systems, the calling process does not currently wait in all cases; however, this may change in future implementations. To insure compatibility and consistent behavior, an image can be invoked directly by using the Win32 APICreateProcess( ) in your Fortran code.
If the function fails, call GETLASTERRORQQ to determine the reason. One of the following errors can be returned:
ERR$2BIG - The argument list exceeds 128 bytes, or the space required for the environment formation exceeds 32K.
ERR$NOINT - The command interpreter cannot be found.
ERR$NOEXEC - The command interpreter file has an invalid format and is not executable.
ERR$NOMEM - Not enough memory is available to execute the command; or the available memory has been corrupted; or an invalid block exists, indicating that the process making the call was not allocated properly.
The command line character limit for the SYSTEMQQ function is the same limit that your operating system command interpreter accepts.
Compatibility
CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB
See Also: SYSTEM
Example
1
2
3
4
5
implicit none
USE DFLIB
LOGICAL(4) result
result = SYSTEMQQ('copy c:\bin\fmath.dat c:\dat\fmath2.dat')
