代码如下
character(LEN=100) :: commandLine
commandLine = "dir"
CALL SYSTEM(commandLine)
代码使用了 system()
函数,并传入要执行的命令字符串 "dir"
。CALL
语句用于调用 system()
函数。
代码如下
character(LEN=100) :: commandLine
commandLine = "dir"
CALL SYSTEM(commandLine)
代码使用了 system()
函数,并传入要执行的命令字符串 "dir"
。CALL
语句用于调用 system()
函数。