Fortran批量输出ctl文件格式

*对于文件名有规律可循且文件格式整齐统一的grd来说，一个一个复制粘贴太丧尽天良地浪费时间了！
*虽然我好久没用Fortran，可能编程的时间比粘贴的时间长。。。。学习嘛~熟悉了就好了
*....别问我为什么没用matlab，我刚刚意识到自己傻逼了
*原帖地址http://bbs.06climate.com/forum.php?mod=viewthread&tid=7267
!try to write *.ctl documents automatically
program main
implicit none
integer mon
character(len=100)::istr,filename

do mon=1,12
      write(istr,'(i2)')mon
      filename=' dset E:\F\essay\data\data\NCEP\div\shum\'//trim(istr)//'_shum.grd'
      open(37,file='E:\F\essay\data\data\NCEP\div\shum\'//trim(istr)//'shum.ctl',form='formatted')
    !  write(37,'(a)',advance="no