在Fortran90语言中调用shell的命令

在数值计算中很少用到这个功能。不过输出很多数据的时候，可能希望建立多个文件夹，把数据分开存放。这时候用一下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