furtran程序不能不运行求各位帮帮忙看一下

rrr

parameter(ix=144,iy=73)
     parameter (it=91)
     real   hgt(ix,iy,366)
  integer iday(it),iyear(it)
!   character(len=11)  filename(11)
   character(len=4) :: cTemp
!data year/'1968','1972',&
!     &'1976','1980',&
!     &'1984','1988',&
!     &'1992','1996',&
!  &'2000','2004','2008'/
! ccccccccc       read from huabei station data
   
open(10,file='by-year-yong.dat')

   
  do kk=1,it
      read(10,*)iyear(kk),iday(kk)
    iday2=iday(kk)
   write(cTemp,'(i4)')iyear(kk)
open(30,file='E:\student\mon6\hgt\hgt-mon6-by.grd',form='binary')   
open (20,file='E:\data\hgt\grd\'//trim(adjustl(cTemp))//'.grd',form='binary')
      do k=1,365
   read(20)((hgt(i,j,k),i=1,ix),j=1,iy)
      enddo
   write(30)((hgt(i,j,iday2),i=1,ix),j=1,iy)
      
     close(20)
    enddo     
       stop
       end
      
   
运行就说的是The program 'E:\student\mon6\sepyear.exe' has exited with code 0 (0x0).
请问是什么问题啊

river

他说sepyear.exe已经存在，你去那个路径下把它删了试试呗

mofangbao

出结果了么,把你的程序干嘛的说一说  你可以自己逐行调试

rrr

mofangbao 发表于 2013-4-12 08:56

                               
登录/注册后可看大图

出结果了么,把你的程序干嘛的说一说  你可以自己逐行调试

就是没有出结果 运行不了 错误原因就是显示的The program 'E:\student\mon6\sepyear.exe' has exited with code 0 (0x0).

易小凯

把sepyear.exe删掉，然后重新运行

rrr

易小凯 发表于 2013-4-14 19:59

                               
登录/注册后可看大图

把sepyear.exe删掉，然后重新运行

删了还是不行 一运行还是那个问题

易小凯

rrr 发表于 2013-4-15 14:24

                               
登录/注册后可看大图

删了还是不行 一运行还是那个问题

文件夹中只留.F90这一个文件，其他的都删掉。