CVF中可以运行的程序在IVF中如何修改？

elysine

程序是关于读写FY-3C卫星资料上全球经纬度以及亮度温度。
我用的是IVF，在调试程序的过程中会触发一个断点，无法读取程序。
程序给我朋友帮忙在cvf上可以运行读写出来结果。
所以上来问问大神们，哪里需要改进。

1.      program main
   
2.      implicit none
   
3. !-----------discription:---------------------------------------------------------------
   
4. !----Observations-----------------------------
   
5. !--------------------------------------------------------------------------------------
   
6. 
   
7. !----1.0: defile local variables-------------------------------------------------------
   
8.        integer           :: i,j,k,line,ilin,fov,siz,ch
   
9.        real, allocatable ::  lat(:,:),lon(:,:)
   
10.        integer*2, allocatable :: obs_T(:,:,:)
    
11.        real, allocatable ::  obs(:,:,:)
    
12.        character(len=100):: filelat,filelon,fileobs
    
13. 
    
14. !--------------------------------------------------------------------------------------
    
15.        OPEN(11,file='d:/ziliao/lat.list')
    
16.        OPEN(12,file='d:/ziliao/lon.list')
    
17.        OPEN(14,file='d:/ziliao/obs.list')
    
18.       
    
19.        DO WHILE(.not. eof(11))
    
20.           READ(11,"(I6,1X,a)")siz,filelat
    
21.           READ(12,"(a)")filelon
    
22.           READ(14,"(a)")fileobs
    
23.           line=siz/(90*4)
    
24. print*,line
    
25. !-----2: read out the MWTS data--------------------------------------------------------
    
26.           allocate(lat(90,line))
    
27.           allocate(lon(90,line))
    
28.           allocate(obs_T(90,line,13))
    
29.           allocate(obs(90,line,13))
    
30.          
    
31. 
    
32.          open(21,file=filelat,form='binary')
    
33.          open(22,file=filelon,form='binary')
    
34.          open(24,file=fileobs,form='binary')
    
35. 
    
36.          read(21)((lat(fov,ilin),fov=1,90),ilin=1,line)   
    
37.          read(22)((lon(fov,ilin),fov=1,90),ilin=1,line)      
    
38.          !----1 land; 2 fresh water; 3 sea water; 5 coast
    
39.          do ilin=1,line
    
40.             do fov=1,90
    
41.                do ch=1,13
    
42.                   read(24)obs_T(fov,ilin,ch)
    
43.                   if(obs_T(fov,ilin,ch)>0) then
    
44.                      obs(fov,ilin,ch)=0.01*obs_T(fov,ilin,ch)
    
45.                   else  
    
46.                      obs(fov,ilin,ch)=0.01*(obs_T(fov,ilin,ch)+65536)
    
47.                   endif
    
48.                enddo
    
49.             enddo
    
50.          enddo
    
51. !----------------------------------------------------------------------------
    
52.             
    
53.          close(21)
    
54.          close(22)
    
55.          close(24)
    
56. 
    
57.          deallocate(lat)
    
58.          deallocate(lon)
    
59.          deallocate(obs_T)
    
60.          deallocate(obs)
    
61. !--------------------------------------------------------------------------------------
    
62.       ENDDO
    
63. 
    
64.      close(11)
    
65.      close(12)
    
66.      close(14)
    
67. END

复制代码

会触发断点地方为：
         read(21)((lat(fov,ilin),fov=1,90),ilin=1,line)   
         read(22)((lon(fov,ilin),fov=1,90),ilin=1,line)   
C:\Users\宁\Desktop\QQ图片20160301112822.png

资料格式：
C:\Users\宁\Pictures\QQ截图20160308114829.png

C:\Users\宁\Pictures\QQ截图20160308115347.png
C:\Users\宁\Pictures\QQ截图20160308115308.png

p.s.我最近用ivf比cvf多，然而学校里系统学习的也是cvf的用法，编写程序的时候也是按照cvf的思路，故来求教大神们。

elysine

嘎哦……图没发出来

Lighting

最好把用到的文件也放上来，能实际运行试试