Linux 系统下Fortran调用shell
作者 : 张涛F77call system('command ')F90在数值计算中很少用到这个功能。不过输出很多数据的时候,可能希望建立多个文件夹,把数据分开存放。这时候用一下shell的命令也不错。如果你使用的是Visual Fortran那么你可以使用一个模块:DFPORTprogram mainuse DFPORTimp
作者 :
张涛
F77
call system('command ')
F90
在数值计算中很少用到这个功能。不过输出很多数据的时候,可能希望建立多个文件夹,把数据分开存放。这时候用一下shell的命令也不错。
如果你使用的是Visual Fortran那么你可以使用一个模块:DFPORT
program main
use DFPORT
implicit none
integer*4 :: i
i=system("mkdir b")
open(10,file='.\temp\try\b\a.txt',status='new')
write(10,*)"ok"
close(10)
endprogram
但是在gfortran中不可以使用这个模块。你要做的是,删掉use DFPORT这一行,而直接使用system这个函数。
program main
implicit none
integer*4 :: i
i=system("mkdir b")
open(10,file='.\temp\try\b\a.txt',status='new')
write(10,*)"ok"
close(10)
Endprogram
如果使用ifort编译,那么加不加use DFPORT编译都不会通过。它要使用的是IFPORT。
program main
use IFPORT
implicit none
integer*4 :: i
i=system("mkdir b")
open(10,file='./temp/try/b/a.txt',status='new')
write(10,*)"ok"
close(10)
endprogram
F77
call system('command ')
F90
在数值计算中很少用到这个功能。不过输出很多数据的时候,可能希望建立多个文件夹,把数据分开存放。这时候用一下shell的命令也不错。
如果你使用的是Visual Fortran那么你可以使用一个模块:DFPORT
program main
use DFPORT
implicit none
integer*4 :: i
i=system("mkdir b")
open(10,file='.\temp\try\b\a.txt',status='new')
write(10,*)"ok"
close(10)
endprogram
但是在gfortran中不可以使用这个模块。你要做的是,删掉use DFPORT这一行,而直接使用system这个函数。
program main
implicit none
integer*4 :: i
i=system("mkdir b")
open(10,file='.\temp\try\b\a.txt',status='new')
write(10,*)"ok"
close(10)
Endprogram
如果使用ifort编译,那么加不加use DFPORT编译都不会通过。它要使用的是IFPORT。
program main
use IFPORT
implicit none
integer*4 :: i
i=system("mkdir b")
open(10,file='./temp/try/b/a.txt',status='new')
write(10,*)"ok"
close(10)
endprogram
更多推荐
所有评论(0)