/*
 * math1_rfblib.fp
 *
 * $Id: math1_rfblib.fp,v 1.1 2000/11/19 16:00:17 keiko Exp $
 */

/*****************************************************
 * math1/rfblib/rprd.f
 ****************************************************/
/* 
 *      REAL FUNCTION RPRD(RX,RY,N,JX,JY)
 *      REAL      RX(*),RY(*)
 */
      REAL FUNCTION RPRD(
          REAL (JX*(N-1)+1) RX
          REAL (JY*(N-1)+1) RY
          INTEGER N
          INTEGER JX
          INTEGER JY
      )

/*****************************************************
 * math1/rfblib/rcov.f
 ****************************************************/
/* 
 *      REAL FUNCTION RCOV(RX,RY,N,JX,JY)
 *      REAL      RX(*),RY(*)
 */
      REAL FUNCTION RCOV(
          REAL (JX*(N-1)+1) RX
          REAL (JY*(N-1)+1) RY
          INTEGER N
          INTEGER JX
          INTEGER JY
      )

/*****************************************************
 * math1/rfblib/rcor.f
 ****************************************************/
/* 
 *      REAL FUNCTION RCOR(RX,RY,N,JX,JY)
 *      REAL      RX(*),RY(*)
 */
      REAL FUNCTION RCOR(
          REAL (JX*(N-1)+1) RX
          REAL (JX*(N-1)+1) RY
          INTEGER N
          INTEGER JX
          INTEGER JY
      )