用fortran转txt为dat

热爱学习

fortran程序：        parameter(ns=18,nm=1)

        integer sta(ns)

        real t(ns,nm),lon(ns),lat(ns)

        print*, 'read sta inf'

        open(11,file='c:\users\tt\desktop\spring.txt')

        do i=1,ns
            read(11,*) lat(i),lon(i),t(i,1)
        enddo
       
      close(11)

        OPEN(22,FILE='c:\users\tt\desktop\spring.dat',FORM='binary')
        call staout(t,ns,lon,lat,nm)
        close(22)        
      stop
      end
                  
        subroutine staout(coryp,ny,lon,lat,kvt)
        real coryp(ny,kvt)
        real lon(ny),lat(ny)
      character*8 sta
       
      irec=0

        do it=1,kvt
          do i=1,ny
          irec=irec+1

      tim=0.0
      ilev=1
      nflag=1
      sta=char(i)
        rr=float(i)

      write(22) sta,lat(i),lon(i),tim,ilev,nflag,coryp(i,it)
      enddo
        irec=irec+1

        ilev=0
      write(22) sta,lat(ny),lon(ny),tim,ilev,nflag

        enddo

      return
        end
            





txt文件格式：
   149.50       28.40       0001
   139.00       28.20       0002      
   169.10       38.30       0203      
   169.50       34.80       0303      
   153.00       29.00       0401      
   145.80       37.40       0402      
   148.70       27.70       0503      
   124.90       31.60       0601      
   160.00       27.00       0701      
   156.00       30.80       0702      
   141.90       31.80       0802      
   142.50       31.90       0804      
   147.30       30.20       0901      
   143.30       36.40       1101      
   134.10       32.80       1102      
   151.90       30.70       1202      
   155.90       23.00       1403      
   145.00       24.90       1405      




运行之后得不出dat文件，请各位帮忙看看，感谢感谢感谢~~~

御风者

没问题呀。

热爱学习

御风者 发表于 2016-6-4 14:08
没问题呀。

但是就是运行之后不出来dat文件。。。

热爱学习

御风者 发表于 2016-6-4 14:08
没问题呀。

但是就是运行之后不出来dat文件。。。

御风者

热爱学习 发表于 2016-6-4 15:39
但是就是运行之后不出来dat文件。。。

我下载下来了，运行可以的。

Zzyh

感觉没有问题，也能运行出来

阿凡达

这个还可以啊