- #1
a.marin
- 1
- 0
"invalid number: incomprehensible list input" ERROR
Hello, I'm beginning to code in FORTRAN 77 so be patient please.
I'm trying to read a plain text file (*.txt) which has 6000+ rows and 56 columns, this is the code I've been written so far:
When I compile this code nothing wrong happens, but when I try to run it appears the following errors:
So, What I'm doing wrong here?
Thanks in advance.
A. Marin.
Hello, I'm beginning to code in FORTRAN 77 so be patient please.
I'm trying to read a plain text file (*.txt) which has 6000+ rows and 56 columns, this is the code I've been written so far:
Code:
program segmente
implicit real*8 (a-h,o-y)
parameter (Ndat=300000, nca=56)
parameter (length=2000, kshift=1000)
dimension daten(Ndat,nca)
character*1 b1,b2,b3,s1,s2,s3
open(unit=1,file='LV_Sz1_data.txt',status='old')
do nt=1,ndat
read(1,*) dummy,(daten(nt,nc),nc=1,nca)
enddo
kens=(Ndat-length)/kshift+1
do k=1,kens
write(*,*) 'Segment ',k
a1=int(k/100)
a2=int((k-a1*(100))/10)
a3=int(k-a1*(100)-a2*(10))
a7=a1+48
a8=a2+48
a9=a3+48
b1=char(int(a7))
b2=char(int(a8))
b3=char(int(a9))
ki=(k-1)*(length-kshift)+1
kf=ki+length-1
open(51,file=
&'INTRA_SEG/IC56/Seg'//b1//b2//b3,status='unknown')
do kt=ki,kf
write(51,'(99E16.6)') (daten(kt,nc),nc=1,nca)
enddo
close(51)
enddo
C
END
When I compile this code nothing wrong happens, but when I try to run it appears the following errors:
invalid number: incomprehensible list input
apparent state: unit 1 named LV_Sz1_data.txt
last format: list io
lately reading direct formatted external IO
Aborted
So, What I'm doing wrong here?
Thanks in advance.
A. Marin.