C                                           *--> FROM COMMON.TOUT
      COMMON/TOUT/IPRIO,IPRMO,IPRMF,IPRMAT,IPRLST,METRIC
C