fortran求助

夏天爱裤衩

请大家看下我的程序，

1. parameter(lon=106,lat=121)
   
2.         dimension dept(lon,lat),gridx(lon,lat),gridy(lon,lat)
   
3.         integer i,j,im,jm
   
4. 
   
5.         open(1,file='11737-5531.xyz', status='old')
   
6.         do j=1,lat
   
7.           do i=1,lon
   
8.            read(1,*)gridx(i,j),gridy(i,j),dept(i,j)
   
9.           enddo
   
10.         enddo
    
11. 
    
12.         do j=1,lat
    
13.           do i=1,lon
    
14.            if(dept(i,j)>0) then
    
15.             dept(i,j)=99.
    
16.            endif
    
17.           enddo
    
18.         enddo
    
19. 
    
20.         do j=1,lat
    
21.           do i=1,lon
    
22.            dept(i,j)=dept(i,j)*(-1)
    
23.           enddo
    
24.         enddo
    
25. 
    
26.         open(2,file='11737-5531.bot')
    
27. !        do i=1,lon
    
28. !          do j=1,lat
    
29. !         write(2,999)((dept(i,j),i=1,lon),j=lat,1,-1)
    
30. !         write(2,999)dept(i,j)
    
31. !         do j=lat,1,-1
    
32.          write(2,*)((dept(i,j),j=lat,1,-1),i=1,lon)
    
33. !         write(2,*)(dept(i,j),i=1,lon)
    
34. !         enddo
    
35. !        enddo
    
36. 999    format(10f8.0)
    

复制代码

目前可以实现将这种格式 转换为 这种格式，我的目的是想在外循环 i  每次变化的时候再次自动换行，而不是像现在这样一直往下写，请问应该怎么改？

夏天爱裤衩

求助求助，大家帮帮我这个fortran盲

夏天爱裤衩

把我的数据文件上传一下，请帮帮忙撒

夏天爱裤衩

帖子别沉了，求救啊

topmad

今天困死了，明天早上回来帮你看....

夏天爱裤衩

topmad 发表于 2012-8-7 00:07

                               
登录/注册后可看大图

今天困死了，明天早上回来帮你看....

来吧来吧     

mofangbao

夏天爱裤衩 发表于 2012-8-6 22:37

                               
登录/注册后可看大图

帖子别沉了，求救啊

能否把你的程序简化一下，突出你要问的重点部分后再附上说明贴上来，你这个程序既没有说明，而且连计算部分都贴上来了

mofangbao

所谓自动换行，你在i这一层循环结束之前加上
write(2,*)
这样就行了，就是输出一个空行