C                                           *--> FROM COMMON.XDISPL
      COMMON/XDISPL/MDRPRT,MDRCOM,IPRT24,IPLT24,IPRT6,IPRSSR,IPRSRW,
     $ MAPPRT,METRIC,LASTDY,IPRDAY,IPLTMP
C