用Fortran读写CSV文件

星海

求助大神~我在读写CSV格式文件时遇到了一些问题。我将data,hour,type放入了3个一维数组中，将345行，1497列的数据放入了一个实型二维数组中（原数据整型，实型交错分布），请问我的程序在哪里出了问题呀？程序、数据文件及生成文件如图。

程序

数据文件

  

生成文件

DDQZXB

请上传原代码，运行一次才能帮你找原因，这几张jpg看得头晕

星海

谢谢！晚上回去就上传

星海

DDQZXB 发表于 2018-7-24 09:17
请上传原代码，运行一次才能帮你找原因，这几张jpg看得头晕

数据文件和原代码已上传至网盘，链接https://pan.baidu.com/s/1zzuawKMwRJBxg-RXysWtog
这是我从数据处理程序拆出来的一个CVS读写的部分，因为原程序在CVS读写处就开始中断无法运行，所以我单独把他拆了出来进行修改。麻烦您帮我看一下问题出在哪里~感谢!

楚香饭

csv 直接表控读取呀
read(10,*) date(i),hr(i),ty(i),sites(i,j)

楚香饭

1. program main
   
2.   implicit none
   
3.   Integer , parameter :: N = 1497
   
4.   character(len=12000):: title
   
5.   Integer             :: sites(N),date,hr,k,i
   
6.   character(len=9)    :: ty
   
7.   open(10,file="china_sites_20150102.csv") !
   
8.   open(11,file="china_sites_20150102_out.csv") !
   
9.   read(10,"(a10000)") title
   
10.   write(11,"(a)")trim(title)
    
11.   do
    
12.     sites=0
    
13.     read(10,*,ioStat=k) date,hr,ty,sites
    
14.     if(k/=0) exit
    
15.     write(11,101) date,',',hr,',',ty,(',',sites(i),i=1,N)
    
16.   enddo
    
17.   close(10)
    
18.   close(11)
    
19. 101 format(I8,A,I4,A,A9,*(A,g0))
    
20. end program main

program main<br />   implicit none<br />   Integer , parameter :: N = 1497<br />   character(len=12000):: title<br />   Integer             :: sites(N),date,hr,k,i<br />   character(len=9)    :: ty<br />   open(10,file="china_sites_20150102.csv") !<br />   open(11,file="china_sites_20150102_out.csv") !<br />   read(10,"(a10000)") title<br />   write(11,"(a)")trim(title)<br />   do<br />     sites=0<br />     read(10,*,ioStat=k) date,hr,ty,sites<br />     if(k/=0) exit<br />     write(11,101) date,',',hr,',',ty,(',',sites(i),i=1,N)<br />   enddo<br />   close(10)<br />   close(11)<br /> 101 format(I8,A,I4,A,A9,*(A,g0))<br /> end program main

星海

已解决。是由于循环语句有问题且数据存在跳点导致无法正常读取。将缺测数据补0或-999，修改循环语句为do i=1,345   read(10,*) date(i)，hr(i)，ty(i)，sites（i，:）后可以正常读取了

星海

---------------------------

星海

楚香饭 发表于 2018-7-25 10:55

-----------------------------------

星海

楚香饭 发表于 2018-7-25 10:55

感谢您的帮助！