PROGRAM PROCTEST
      EXTERNAL SET2
      WRITE(6,100)
  100 FORMAT(' CALLING SET2')
      CALL SET2(INT1,INT2)
      WRITE(6,200)INT1,INT2
  200 FORMAT(' INT1 =',I4,'  INT2=',I4)
      WRITE(6,300)
  300 FORMAT(' DID IT WORK')
     STOP
      END