COMMON/GEXTRA/NUMTRG,TRGNUM,URND(10000000),PMOM,DISTZ,intf
C
      INTEGER      NUMTRG,TRGNUM
      CHARACTER intf*50
      REAL URND
      REAL PMOM
C
      REAL DISTZ