SUBROUTINE SETR(LR,V)
      REAL*8 LR,V
      WRITE(6,100)
  100 FORMAT(' ENTERING FORTRAN SETR')
      LR=V
      RETURN
      END