C                                           *--> FROM COMMON.EMOD
      COMMON/EMOD/ICRIT,IOVAR,KODSEG,VALSEG,JBLENP,PWT1,PWT2,
     1 IPWTLN,IPBLEN,JBLENT,TWT1,TWT2,ITWTLN,ITBLEN
C