Fortran如何创建多个顺序文件
1、首先申明变量：
program main
implicit none
character(len=100):: fileDir,fileName,fileSeq,fileSuffix,myStr
integer*4:: fileNumer=28,i,j,counterLen = 3
integer::res
logical::FEXIST
其中各个变量分别是
fileDir：文件目录
fileName：文件名
fileSeq：文件序号
fileSuffix：文件后缀
myStr：数字输出格式
fileNumer：文件数量
counterLen：文件序号的长度，比如0001.txt长度就是4（3个0和1个1）
FEXIST：判断路径是否存在，如果不存在就创建
2、然后定义文件路径并查询是否存在，不存在就创建
fileDir = '.\03014\'
inquire(file = trim(fileDir),EXIST=FEXIST)
if(.not.FEXIST) then
call system('md '//trim(fileDir))
write(*,*) 'New folder created'
endif
3、定义文件名、后缀和文件序号书写格式
fileName = 'myFileName'
fileSuffix = '.dat'
write(myStr,'(I2)')counterLen
myStr = '(I'//trim(adjustl(myStr))//')'
4、循环创建文件
do i = 1,fileNumer,1
write(fileSeq,myStr)i
do j = 1,counterLen - len(trim(adjustl(fileSeq)))
fileSeq = '0'//adjustl(trim(fileSeq))
enddo
open(111,file = adjustl(trim(fileDir))//adjustl(trim(fileName))&
&//adjustl(trim(fileSeq))//adjustl(trim(fileSuffix)))
close(111)
enddo
5、最后可以观察效果，创建了12个文件，总的程序：
program main
implicit none
character(len=100):: fileDir,fileName,fileSeq,fileSuffix,myStr
integer*4:: fileNumer=12,i,j,counterLen = 3
!integer::res
logical::FEXIST
fileDir = '.\03014\'
inquire(file = trim(fileDir),EXIST=FEXIST)
if(.not.FEXIST) then
call system('md '//trim(fileDir))
write(*,*) 'New folder created'
endif
fileName = 'myFileName'
fileSuffix = '.dat'
write(myStr,'(I2)')counterLen
myStr = '(I'//trim(adjustl(myStr))//')'
do i = 1,fileNumer,1
write(fileSeq,myStr)i
do j = 1,counterLen - len(trim(adjustl(fileSeq)))
fileSeq = '0'//adjustl(trim(fileSeq))
enddo
open(111,file = adjustl(trim(fileDir))//adjustl(trim(fileName))&
&//adjustl(trim(fileSeq))//adjustl(trim(fileSuffix)))
close(111)
enddo
read(*,*)
end
