how to read different columns

[fanta2]

I have different records having different columns how can i read them in formatted reading.
Example
1 2 3 4 (4 columns)
1 23 5 (3 columns)
2 36 58 78 52 (5 columns)
I defined the column based on the max column but the read statement reads 0 for unavilable value

 

[ArkM]

Use implicit loop element in READ stmt list.

 

[fanta2]

I can use implicit loop but the number of columns is random.

say
integer :: values (norows, nocols)
do i=1, norows
read(*,*) (values (norows, nocols),j=1,ncols)
end do
this needs array of size norows * nocols but my array has no constant columns........

 

[xwb]

What you need is a double read - first from the file into a buffer then from the buffer into the array. Something like this

      program main
!     MAXCOL is 1 more than the max expected
      parameter (MAXCOL = 10, INFILE = 5)
      integer info(MAXCOL)
      character*80 line
      integer row, col
      open (INFILE, file='columns.txt', status='old')
      row = 0
10    continue
         row = row + 1
!
!        Read the line containing the data
         read (INFILE, '(A)', end=30) line
!
!        Read the data from the line
         read (line, *, err=20, end=20) (info(col), col = 1, MAXCOL, 1)
20       continue
!
!        we stop at one more that what was there so subtract 1
         col = col - 1
!
!        print what we got
         write (*, 25) row, col
25       format ('Row ',I3,' Columns ',I2)
         write (*, *) (info(i), i = 1, col, 1)
         goto 10
30    continue
      close (INFILE)
      stop
      end

 

[xwb]

The technique is explained in

http://www.tek-tips.com/viewthread.cfm?qid=1198598&page=1