real*8 A(MM,*), TMP(*), VL(*), VR(*),
& RESULT, X
instead of
real*8 A(MM,*), TMP(*), VL(*), R(*),
& RESULT, X
The change is VR(*) for R(*) at the end of line 9.
This change has been incorporated in the source code at V2_RIS.F