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