fortran中批处理实现

*********************************************

fortran中批处理命令的实现函数：

利用systemqq命令（需要调用DFLIB 数据库）

*********************************************

例1：

USE DFLIB

character*100 CMD

LOGICAL(4) res

CMD="dir/a-d/b/s "//trim(fPath)//" >"//trim(outPut)

res=SYSTEMQQ(CMD)

例2：

USE DFLIB

LOGICAL(4) result

result = SYSTEMQQ('copy e:\dir.txt e:\test\dir.txt') !将e:\dir.txt 复制到e:\test\dir.txt文件中。！****************实例3:复制文件*************************

例3：

programmain_pro

USE DFLIB

implicit none

integer,parameter::sta_num=123

character(5),dimension(sta_num)::sta_ID

character(500)::filein,fileout

character(5000)::cmd

logical(4)::judge

integer::status,is

open(1,file='山东.txt',status='old',action='read',iostat=status)

read(1,*)

do is=1,sta_num

read(1,*) sta_ID(is)

filein='Z:\data\降水逐小时数据-戴至修\precip_data\'//sta_ID(is)//'_precip.txt'

open(2,file= filein,status='old',action='read',iostat=status)

if(status/=0) goto 1000

fileout='Z:\data\降水逐小时数据-戴至修\山东省-降水数据\'//sta_ID(is)//'_precip.txt'

cmd='copy '//filein//' '//fileout

judge=SYSTEMQQ( cmd)

1000 continue

enddo

end program