fortran写gs文件出现乱码咋整？

magua2006

做了一个循环，想批处理写gs文件，程序如下：

      do itime=1,ntime
   
    open(23,file=trim(path4)//trim(ncname(itime))//'.gs')
write(23,*) "'reinit'"
write(23,*) "'open "//trim(path4)//trim(ncname(itime))//".ctl'"
write(23,*) "'set grads off'"
write(23,*) "'set grid off'"
write(23,*) "'set mpdset cnriver'"
write(23,*) "'set mpdset cnworld'"
write(23,*) "'set mpdset beij heb tianj'"
write(23,*) "'set map 2 1 6'"
write(23,*) "'set lat 37.2 42'"
write(23,*) "'set lon 113 119'"
write(23,*) "'set xlint 0.5'"
write(23,*) "'set ylint 0.5'"
write(23,*) "z=1"
write(23,*) "h=0.2"
write(23,*) "while(z<=15)"
write(23,*) "'set z 'z''"
write(23,*) "'set gxout barb'"
write(23,*) "'set digsize 0.05'"
write(23,*) "'d skip(u,3,3)*2.5;skip(v,3,3)*2.5'"
write(23,*) "'draw title wind-121143-'h'km'"
write(23,*) "'printim d:\work\vdras\20150904\grads\"//trim(ncname(i))//"-'h'.gif x1000 y800 white'"
write(23,*) "'c'"
write(23,*) "z=z+1"
write(23,*) "h=h+0.4"
write(23,*) "endwhile"
    write(23,*) ";"
      close(23)

enddo


结果出来的gs文件都是乱码，以前这样写过，也没有问题，这次就怎么都调不对了，麻烦大神能给解答下，乱码界面如下：

magua2006

又尝试了几遍，发现如果不加循环就能写出正常的，一加最外面的do循环，就乱码，奇怪

言深深

看看程序的定义情况，最前面的那个是啥，定义的到底对不对？