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