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'
C
      integer idx
      character header*80
      real junk1, junk2
C
      rewind luicli
      do 10 idx = 1, 3
         read(luicli,'(a80)') header
   10 continue
      read(luicli,*) junk1, junk2, awtyav
c 1010 format (32x, f7.2)
      read(luicli,*) (awtmav(idx), idx = 1,12)
c 1020 format (1x,12f6.2)
      rewind luicli
      end