subroutine cliginit
C *************************************************** wjr
C Contains init code from main
C
C       Edit History
C       04-Mar-99       wjr     created
C
      include 'p1werm.inc'
      include 'w1clig.inc'
      include 'file.fi'
      include 'm1flag.inc'
C
      integer idx
      character header*128
      real junk1, junk2
C
      rewind luicli

      if (cli_gen_fmt_flag == 2) then  !Forest Service cligen db format

          do 10 idx = 1, 5
c            read(luicli,'(a80)') header
             read(luicli,'(a128)') header
c            write(6,*) 'header: ', header,':'
   10     continue
          read(luicli,*) (awtmxav(idx), idx = 1,12)
c         write(6,*)  (awtmxav(idx), idx = 1,12)
          read(luicli,'(a128)') header
c         write(6,*) 'header: ', header
          read(luicli,*) (awtmnav(idx), idx = 1,12)
c         write(6,*)  (awtmnav(idx), idx = 1,12)
          awtyav = 0.0
          do 11 idx = 1, 12
             awtmav(idx) = (awtmnav(idx) + awtmxav(idx)) / 2.0
             awtyav = awtyav + awtmav(idx)
   11     continue
          awtyav = awtyav/12.0

      else

          do 20 idx = 1, 3
             read(luicli,'(a128)') header
   20     continue
          read(luicli,*) junk1, junk2, awtyav
          read(luicli,*) (awtmav(idx), idx = 1,12)
      endif

      rewind luicli
      end