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

/*****************************************************
 * math1/vralib/vrfna.f
 ****************************************************/
/* 
 *      SUBROUTINE VRFNA(RX,RY,N,JX,JY,RFNA)
 *      REAL      RX(*),RY(*)
 */
      SUBROUTINE VRFNA(
          REAL (JX*(N-1)+1) RX
          REAL (JY*(N-1)+1) o RY
          INTEGER N
          INTEGER JX
          INTEGER JY
          REAL RFNA
      )

/*****************************************************
 * math1/vralib/vrfna0.f
 ****************************************************/
/* 
 *      SUBROUTINE VRFNA0(RX,RY,N,JX,JY,RFNA)
 *      REAL      RX(*),RY(*)
 */
      SUBROUTINE VRFNA0(
          REAL (JX*(N-1)+1) RX
          REAL (JY*(N-1)+1) o RY
          INTEGER N
          INTEGER JX
          INTEGER JY
          REAL RFNA
      )

/*****************************************************
 * math1/vralib/vrfna1.f
 ****************************************************/
/* 
 *      SUBROUTINE VRFNA1(RX,RY,N,JX,JY,RFNA)
 *      REAL      RX(*),RY(*)
 */
      SUBROUTINE VRFNA1(
          REAL (JX*(N-1)+1) RX
          REAL (JY*(N-1)+1) o RY
          INTEGER N
          INTEGER JX
          INTEGER JY
          REAL RFNA
      )

/*****************************************************
 * math1/vralib/vrinc.f
 ****************************************************/
/* 
 *      SUBROUTINE VRINC(RX,RY,N,JX,JY,RR)
 *      REAL      RX(*),RY(*)
 */
      SUBROUTINE VRINC(
          REAL (JX*(N-1)+1) RX
          REAL (JY*(N-1)+1) o RY
          INTEGER N
          INTEGER JX
          INTEGER JY
          REAL RR
      )

/*****************************************************
 * math1/vralib/vrinc0.f
 ****************************************************/
/* 
 *      SUBROUTINE VRINC0(RX,RY,N,JX,JY,RR)
 *      REAL      RX(*),RY(*)
 */
      SUBROUTINE VRINC0(
          REAL (JX*(N-1)+1) RX
          REAL (JY*(N-1)+1) o RY
          INTEGER N
          INTEGER JX
          INTEGER JY
          REAL RR
      )

/*****************************************************
 * math1/vralib/vrinc1.f
 ****************************************************/
/* 
 *      SUBROUTINE VRINC1(RX,RY,N,JX,JY,RR)
 *      REAL      RX(*),RY(*)
 */
      SUBROUTINE VRINC1(
          REAL (JX*(N-1)+1) RX
          REAL (JY*(N-1)+1) o RY
          INTEGER N
          INTEGER JX
          INTEGER JY
          REAL RR
      )

/*****************************************************
 * math1/vralib/vrfct.f
 ****************************************************/
/* 
 *      SUBROUTINE VRFCT(RX,RY,N,JX,JY,RR)
 *      REAL      RX(*),RY(*)
 */
      SUBROUTINE VRFCT(
          REAL (JX*(N-1)+1) RX
          REAL (JY*(N-1)+1) o RY
          INTEGER N
          INTEGER JX
          INTEGER JY
          REAL RR
      )

/*****************************************************
 * math1/vralib/vrfct0.f
 ****************************************************/
/* 
 *      SUBROUTINE VRFCT0(RX,RY,N,JX,JY,RR)
 *      REAL      RX(*),RY(*)
 */
      SUBROUTINE VRFCT0(
          REAL (JX*(N-1)+1) RX
          REAL (JY*(N-1)+1) o RY
          INTEGER N
          INTEGER JX
          INTEGER JY
          REAL RR
      )

/*****************************************************
 * math1/vralib/vrfct1.f
 ****************************************************/
/* 
 *      SUBROUTINE VRFCT1(RX,RY,N,JX,JY,RR)
 *      REAL      RX(*),RY(*)
 */
      SUBROUTINE VRFCT1(
          REAL (JX*(N-1)+1) RX
          REAL (JY*(N-1)+1) o RY
          INTEGER N
          INTEGER JX
          INTEGER JY
          REAL RR
      )

/*****************************************************
 * math1/vralib/vrcon.f
 ****************************************************/
/* 
 *      SUBROUTINE VRCON(RX,RY,N,JX,JY,RR)
 *      REAL      RX(*),RY(*)
 */
      SUBROUTINE VRCON(
          REAL (JX*(N-1)+1) RX
          REAL (JY*(N-1)+1) o RY
          INTEGER N
          INTEGER JX
          INTEGER JY
          REAL RR
      )

/*****************************************************
 * math1/vralib/vrcon0.f
 ****************************************************/
/* 
 *      SUBROUTINE VRCON0(RX,RY,N,JX,JY,RR)
 *      REAL      RX(*),RY(*)
 */
      SUBROUTINE VRCON0(
          REAL (JX*(N-1)+1) RX
          REAL (JY*(N-1)+1) o RY
          INTEGER N
          INTEGER JX
          INTEGER JY
          REAL RR
      )

/*****************************************************
 * math1/vralib/vrcon1.f
 ****************************************************/
/* 
 *      SUBROUTINE VRCON1(RX,RY,N,JX,JY,RR)
 *      REAL      RX(*),RY(*)
 */
      SUBROUTINE VRCON1(
          REAL (JX*(N-1)+1) RX
          REAL (JY*(N-1)+1) o RY
          INTEGER N
          INTEGER JX
          INTEGER JY
          REAL RR
      )

/*****************************************************
 * math1/vralib/vrset.f
 ****************************************************/
/* 
 *      SUBROUTINE VRSET(RX,RY,N,JX,JY)
 *      REAL      RX(*),RY(*)
 */
      SUBROUTINE VRSET(
          REAL (JX*(N-1)+1) RX
          REAL (JY*(N-1)+1) o RY
          INTEGER N
          INTEGER JX
          INTEGER JY
      )

/*****************************************************
 * math1/vralib/radd.f
 ****************************************************/
/* 
 *      SUBROUTINE RADD(RX,N,JX,RR)
 *      REAL      RX(*)
 */
      SUBROUTINE RADD(
          REAL (JX*(N-1)+1) io RX
          INTEGER N
          INTEGER JX
          REAL RR
      )

/*****************************************************
 * math1/vralib/radd0.f
 ****************************************************/
/* 
 *      SUBROUTINE RADD0(RX,N,JX,RR)
 *      REAL      RX(*)
 */
      SUBROUTINE RADD0(
          REAL (JX*(N-1)+1) io RX
          INTEGER N
          INTEGER JX
          REAL RR
      )

/*****************************************************
 * math1/vralib/radd1.f
 ****************************************************/
/* 
 *      SUBROUTINE RADD1(RX,N,JX,RR)
 *      REAL      RX(*)
 */
      SUBROUTINE RADD1(
          REAL (JX*(N-1)+1) io RX
          INTEGER N
          INTEGER JX
          REAL RR
      )

/*****************************************************
 * math1/vralib/rmlt.f
 ****************************************************/
/* 
 *      SUBROUTINE RMLT(RX,N,JX,RR)
 *      REAL      RX(*)
 */
      SUBROUTINE RMLT(
          REAL (JX*(N-1)+1) io RX
          INTEGER N
          INTEGER JX
          REAL RR
      )

/*****************************************************
 * math1/vralib/rmlt0.f
 ****************************************************/
/* 
 *      SUBROUTINE RMLT0(RX,N,JX,RR)
 *      REAL      RX(*)
 */
      SUBROUTINE RMLT0(
          REAL (JX*(N-1)+1) io RX
          INTEGER N
          INTEGER JX
          REAL RR
      )

/*****************************************************
 * math1/vralib/rmlt1.f
 ****************************************************/
/* 
 *      SUBROUTINE RMLT1(RX,N,JX,RR)
 *      REAL      RX(*)
 */
      SUBROUTINE RMLT1(
          REAL (JX*(N-1)+1) io RX
          INTEGER N
          INTEGER JX
          REAL RR
      )

/*****************************************************
 * math1/vralib/rset.f
 ****************************************************/
/* 
 *      SUBROUTINE RSET(RX,N,JX,RR)
 *      REAL      RX(*)
 */
      SUBROUTINE RSET(
          REAL (JX*(N-1)+1) io RX
          INTEGER N
          INTEGER JX
          REAL RR
      )

/*****************************************************
 * math1/vralib/rset0.f
 ****************************************************/
/* 
 *      SUBROUTINE RSET0(RX,N,JX,RR)
 *      REAL      RX(*)
 */
      SUBROUTINE RSET0(
          REAL (JX*(N-1)+1) io RX
          INTEGER N
          INTEGER JX
          REAL RR
      )

/*****************************************************
 * math1/vralib/rset1.f
 ****************************************************/
/* 
 *      SUBROUTINE RSET1(RX,N,JX,RR)
 *      REAL      RX(*)
 */
      SUBROUTINE RSET1(
          REAL (JX*(N-1)+1) io RX
          INTEGER N
          INTEGER JX
          REAL RR
      )