c-----------------------------------------------------------------------
c   INCLUDE 'comvert.h'

      COMMON/comvert/
     . s(klev),sig(klev+1),ds(klev),dsig(klev),dsig1(klev),sdsig(klev)
     . ,sig_s(klev)

      REAL s,sig,ds,dsig,dsig1,sdsig,sig_s

c-----------------------------------------------------------------------