PROGRAM PROCTEST
      EXTERNAL SETR
      REAL*8 LR,V
      WRITE(6,100)
  100 FORMAT(' CALLING SETR')
      V=5.12
      CALL SETR(LR,V)
      WRITE(6,200)LR
  200 FORMAT('LR=',F7.4)
      WRITE(6,300)
  300 FORMAT(' DID IT WORK')
      STOP
      END