我是初学者，这段程序有啥问题，请各位坛友指点一下

蓝莲花

parameter(ii=37,jj=17,zz=12,nt=48)
      real var(ii,jj,nt)
    real:: ave(ii,jj,12)=0

   real ::have(ii,jj,nt)=0
   real ::sav(ii,jj,nt) =0
   

   open(5,file='d:\h500.dat')
       DO 200  it=1,48
       read(5,1000)
       read(5,3000) ((var(i,j,it),i=1,ii),j=1,jj)
200  continue
    open(6,file='d:\trans.grd',form='unformatted',access='direct',recl=ii*jj*4)
    irec=0
    do it=1,nt
     irec=irec+1
  write(6,rec=irec) ((var(i,j,it),i=1,ii),j=1,jj)
    enddo
1000   format(2i7)
2000   FORMAT(37F6.2)
3000   format(37f8.1)
4000   format(37f7.2)
  !求平均
     do im=1,12
    do it=im,48,12
      do j=1,jj
     do i=1,ii
     ave(i,j,it)=ave(i,j,it)+var(i,j,it)/4
     enddo
      enddo
  enddo
  enddo
    open(6,file='d:\ave.grd',form='unformatted',access='direct',recl=ii*jj*4)
  irec=0
do im=1,12
  irec=irec+1
        write(6,rec=irec) ((pj(i,j,i),i=1,ii),j=1,jj)
  enddo

   !求距平，方差
  do it=1,12
    do j=1,jj
     do i=1,ii
   have(i,j,it)= have(i,j,it)+var(i,j,it)-ave(i,j,it)
   sav(i,j,it)=sav(i,j,it)+(have(i,j,it)**2)/4
     enddo
    enddo
  enddo
    open(7,file='d:\have.grd',form='unformatted',access='direct',recl=ii*jj*4)
    open(8,file='d:\sav.grd',form='unformatted',access='direct',recl=ii*jj*4)
  irec=0
  do it=1,nt
  irec=irec+1
  write(7,rec=irec) ((ave(i,j,i),i=1,ii),j=1,jj)  
  enddo
       irec=0
  do it=1,nt
  irec=irec+1
        write(8,rec=irec) ((sav(i,j,i),i=1,ii),j=1,jj)  
  enddo

      end
下面是错误提示，调试无错，执行时有错Text1.obj : error LNK2005: _main already defined in Text3.obj
Text1.obj : error LNK2001: unresolved external symbol _PJ@12
Text1.exe : fatal error LNK1120: 1 unresolved externals
Error executing link.exe.
Text1.exe - 3 error(s), 0 warning(s)

guobch

重新整理一下  设置几个全局变量  这样看着清晰些
尽量还是用字函数调用吧 这个挺方便的  我经常用的  

guobch

前面是生成目标文件错误 后面是编译有误

言深深

guobch说的很对，生成文件不知道是不是因为你open了两个6
号文件，但是你一次都没有关闭close(6)````另外你的程序写的······不太容易看出来···

mofangbao

把你的fortran的project全部关闭后重新建立新的再试，错误只有逐步调试，关一段程序只能看语法问题，调试通过说明语法没问题

too

parameter(ii=37,jj=17)
      real var(ii,jj,12,4),qh(ii,jj,12)

      open(5,file='h500.dat')
      
       DO 200 iy=1,4
       do 100 m=1,12

       read(5,1000)
       read(5,3000) ((var(i,j,m,iy),I=1,ii),j=1,jj)

100    continue
200    continue
1000   format(2i7)
2000   FORMAT(37F6.2)
3000   format(37f8.1)
4000   format(37f7.2)

!!求气候场
        do m=1,12
            do j=1,jj
              do i=1,ii
               qh(i,j,m)=0.0
      
              do iy=1,4

            qh(i,j,m)=qh(i,j,m)+var(i,j,m,iy)/4.0
                enddo
        enddo
        enddo
        enddo

       open(1,file='qh.dat')
       open(2,file='qh.grd',form='binary')
      do m=1,12

        write(1,3000)((qh(i,j,m),i=1,ii),j=1,jj)
      write(2)((qh(i,j,m),i=1,ii),j=1,jj)
       enddo
       end

LNYZ

六年了