real    y0r,y1r,y0f,y1f,rr,rf
       common  /risefall/y0r,y1r,y0f,y1f,rr,rf