1 SUBROUTINE read_lin(input,ifield,istart,inum_char,irecord,lend) 2 3 implicit none 4 5! This subroutine reads in an input line 6 7 integer i,ifield,iswitch,input,irec_len,istart,inum_char 8 9 character*1 irecord 10 11 logical lcomm,lend 12 13 parameter(irec_len=100) 14 15 dimension istart(irec_len),inum_char(irec_len) 16 dimension irecord(irec_len) 17 18 ifield = 0 19 iswitch = 0 20 lcomm = .false. 21 lend = .false. 22 23 read(input,20,end=100)(irecord(i),i=1,irec_len) 2420 format(100A1) 25 26 do i=1,irec_len 27 if(irecord(i).eq.'#'.and.ifield.eq.0)lcomm = .true. 28 if(irecord(i).eq.' ')then 29 iswitch = 0 30 elseif(iswitch.eq.0)then 31 call chg_case(irecord(i)) 32 ifield = ifield + 1 33 istart(ifield) = i 34 inum_char(ifield) = 1 35 iswitch = 1 36 else 37 call chg_case(irecord(i)) 38 inum_char(ifield) = inum_char(ifield) + 1 39 endif 40 enddo 41 42 goto 200 43 44100 continue 45 46 lend = .true. 47 48200 continue 49 50 return 51 52 END 53c $Id$ 54