新人小白，求助解答

莲歆家的小姑娘

老师让绘制台风生成频数的空间分布图，给了相关编码计算频数
      program mian
c this code can be used to figure out the frequency of ts activity
       parameter(m=33,n=17, nd=151061,ny=10)
       real x(m,n),d(nd,ny)
ncount=0
       open(90,file='C:\Users\susan\Desktop\sj\jtwc.ts.txt')
       do i=1,nd
       read(90,*,IOSTAT=VAR) (d(i,j),j=1,ny)
       IF(VAR<0) EXIT
CON=CON+1
       enddo
        do i=1,m
        do j=1,n
        x(i,j)=0.0
        enddo
        enddo
c...............................................................
c finish to read the data
c................................................................
      
         !write(*,*)'Input the month1 and month2=?'
        ! read(*,*) nm1,nm2
c.............................................................
         do 10 k=1,CON
c if(d(k,10)==1) then
          !nm=int(d(k,3))
          !speed=d(k,8)
c.........................................................
c find the grid point
c.........................................................
            do k1=1,n
            ys=0.+2.5*(k1-1)
            yn=0.+2.5*k1
            if(d(k,6).ge.ys.and.d(k,6).lt.yn) j=k1
            enddo
            do k2=1,m
            xw=100.+2.5*(k2-1)
            xe=100.+2.5*k2
            if(d(k,7).ge.xw.and.d(k,7).lt.xe) i=k2
            enddo
c-------------------------------------------------------
  ! if(nm.ge.nm1.and.nm.le.nm2)then
           !if(speed.gt.34) then
           x(i,j)=x(i,j)+1.0
           !endif
!endif
c        endif
10         continue
c.................................................
        open(94,file='C:\Users\susan\Desktop\sj\Fre.grd',form='unformatted',
     $  access='direct',recl=m*n)
        write(94,rec=1) ((x(i,j),i=1,m),j=1,n)
C       print *,x

       stop
       end
试运行后出现的错误我不是很懂？
C:\Users\susan\Desktop\sj\Frequency.f(55) : Error: Unterminated character constant
     $  access='direct',recl=m*n)
----------------------^
C:\Users\susan\Desktop\sj\Frequency.f(55) : Error: Invalid character_kind_parameter. No underscore
     $  access='direct',recl=m*n)
---------------------------------^
C:\Users\susan\Desktop\sj\Frequency.f(55) : Error: Syntax error, found IDENTIFIER 'DIRECT' when expecting one of: ( * :: , <END-OF-STATEMENT> ; : ) + . - (/ [ ] /) ** / > // .LT. ...
     $  access='direct',recl=m*n)
----------------^
Error executing df.exe.
Frequency.obj - 3 error(s), 0 warning(s)
求教

莲歆家的小姑娘

求大神帮忙

依恋。

你write(94,rec=1),岂不是只会把第一个位置的数据读进去，你设置recl=n*m，读的时候没有对应上

莲歆家的小姑娘

依恋。 发表于 2020-4-20 16:31
你write(94,rec=1),岂不是只会把第一个位置的数据读进去，你设置recl=n*m，读的时候没有对应上

可它报备出的错误不是write哪里呀？而是说什么未终止字符常量？无效字符类型？

依恋。

莲歆家的小姑娘 发表于 2020-4-20 16:43
可它报备出的错误不是write哪里呀？而是说什么未终止字符常量？无效字符类型？

先删掉不读入94那条，看看会不会出错，一步步检查吧，write（94）那条，后面是n*m个字符，rec=recl试试看