请教Fortran中出现“implicit type for N detected between N and =”如何改正

宁仔

call getarg(1, buf1)   ! 时 20 14 08
read(buf1,*) n1   
    call getarg(2, buf2)   ! tian  1  2  3 等
     buf3=buf2(1:1)
    buf4=buf2(3:3)
read(buf3,*) n2
read(buf4,*) n3
!   read(buf2,*) tt
! tt=tt*24/3
tt= (n2+n3/10)*24/3
data(ae(i),i=1,14)/1000,975,950,925,900,850,800,700,600,500,400,300,200,100/
   
       open(7,file='station_t639.ini',form='formatted',status='old')
  read(7,*)tou
  do
   read(7,'(a)',iostat=io) line
   if(io<0) exit
   if(len_trim(line)==0) cycle
      n=n+1
   enddo

程序里这部分的n=n+1这一行出现了错误，求教如何改正