SUBROUTINE  GENTRA (INREG, OUTREG) 
      INTEGER     INREG, OUTREG 
 
      INTEGER  AREG,   XREG,   YREG,   NRREGS 
      INTEGER  STATUS (10),    STAREG, STXREG, STYREG 
      INTEGER  REGS (10) 
      INTEGER  ACTREG (2),      ACTLO,  ACTHI 
      INTEGER  NZREG 
      INTEGER ICLP10 
      COMMON   / REGS / AREG,   XREG,   YREG,   NRREGS 
      COMMON   / REGS / STATUS, REGS,   ACTREG, NZREG 
      COMMON   / REGS / ICLP10 
      EQUIVALENCE    (ACTLO,  ACTREG (1)) 
      EQUIVALENCE    (ACTHI,  ACTREG (2)) 
      EQUIVALENCE    (STAREG, STATUS (1)) 
      EQUIVALENCE    (STXREG, STATUS (2)) 
      EQUIVALENCE    (STYREG, STATUS (3)) 
 
      INTEGER  CLRACV 
      INTEGER  CLRACX 
      INTEGER  CLRSTA 
      INTEGER  TRAREG 
      INTEGER  SAVREG 
      INTEGER  CTFREE 
      INTEGER  SETREG 
      INTEGER  ICLP11 
      COMMON   /RMCODE/ CLRACV, CLRACX, CLRSTA, TRAREG, SAVREG 
      COMMON   /RMCODE/ CTFREE, SETREG 
      COMMON   /RMCODE/ ICLP11 
 
      INTEGER  WF1,WF2,WF3,WF4,WF5,WF6,WF7,WF8,WF9,WF10,WF11,WF12,WF13,W
     1F14,WF15,WF16,WF17 
      INTEGER  ICLP16 
      COMMON   / WF / WF1,WF2,WF3,WF4,WF5,WF6,WF7,WF8,WF9,WF10,WF11,WF12
     1,WF13,WF14,WF15,WF16,WF17 
      COMMON   / WF / ICLP16 
      INTEGER     REGREG (3, 3), X, DUMMY 
      DATA        REGREG / 0,  138,  152,  170,  0,  0,  168,  0,  0/ 
     1 
      CALL REGMAN (SAVREG, OUTREG, DUMMY) 
      X = REGREG (INREG, OUTREG) 
      IF (X .EQ. 0) CALL FAULTP (6) 
      CALL BLDBLK (X, WF4) 
      STATUS (OUTREG) = STATUS (INREG) 
      STATUS (INREG)  = 0 
      ACTLO = OUTREG 
      CALL REGMAN (TRAREG, INREG, OUTREG) 
      RETURN 
      END