C 
C wlp1, wlp2   : gtdgm, gttdst, feladv
C 
      double precision wlp1(npm,6), wlp2(npm,6), wlp3(npm,6)
C 
C wa1, wa2     : felamp, mirror
C 
      double precision wa1(nam,nam), wa2(nam,nam)
C 
C wav          : mkvme, mkume, gusfld
C 
      double precision wav(nam)
C 
C wsft, waftp, wsme, wapa, wi0to3, wspa, wismp : felamp 
C 
      double complex wsft(nam,nam), waftp(nam,nam), wsme(nam,nam)
      double complex waftc(nam,nam)
      double complex wapa(npm), wi0to3(nalstm,0:3), wspa(npm)
      integer  wismp(nzm)
C 
C wavi         : isorec
C 
      integer  wavi(nam)
      double precision wdlt(nlm)
C 
C wcs          : gtlap
C 
      double precision wcs(nam)
C 
      common   / wrk / wlp1, wlp2, wlp3, wa1, wa2, wav
     &               , wsft, waftp, wsme, waftc, wapa, wi0to3
     &               , wismp, wavi, wspa
     &               , wdlt
     &               , wcs