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

/*****************************************************
 * math1/vrblib/vrfnb.f
 ****************************************************/
/* 
 *      SUBROUTINE VRFNB(RX,RY,RZ,N,JX,JY,JZ,RFNB)
 *      REAL      RX(*),RY(*),RZ(*)
 */
      SUBROUTINE VRFNB(
          REAL (JX*(N-1)+1) RX
          REAL (JY*(N-1)+1) RY
          REAL (JZ*(N-1)+1) o RZ
          INTEGER N
          INTEGER JX
          INTEGER JY
          INTEGER JZ
          REAL RFNB
      )

/*****************************************************
 * math1/vrblib/vrfnb0.f
 ****************************************************/
/* 
 *      SUBROUTINE VRFNB0(RX,RY,RZ,N,JX,JY,JZ,RFNB)
 *      REAL      RX(*),RY(*),RZ(*)
 */
      SUBROUTINE VRFNB0(
          REAL (JX*(N-1)+1) RX
          REAL (JY*(N-1)+1) RY
          REAL (JZ*(N-1)+1) o RZ
          INTEGER N
          INTEGER JX
          INTEGER JY
          INTEGER JZ
          REAL RFNB
      )

/*****************************************************
 * math1/vrblib/vrfnb1.f
 ****************************************************/
/* 
 *      SUBROUTINE VRFNB1(RX,RY,RZ,N,JX,JY,JZ,RFNB)
 *      REAL      RX(*),RY(*),RZ(*)
 */
      SUBROUTINE VRFNB1(
          REAL (JX*(N-1)+1) RX
          REAL (JY*(N-1)+1) RY
          REAL (JZ*(N-1)+1) o RZ
          INTEGER N
          INTEGER JX
          INTEGER JY
          INTEGER JZ
          REAL RFNB
      )

/*****************************************************
 * math1/vrblib/vradd.f
 ****************************************************/
/* 
 *      SUBROUTINE VRADD(RX,RY,RZ,N,JX,JY,JZ)
 *      REAL      RX(*),RY(*),RZ(*)
 */
      SUBROUTINE VRADD(
          REAL (JX*(N-1)+1) RX
          REAL (JY*(N-1)+1) RY
          REAL (JZ*(N-1)+1) o RZ
          INTEGER N
          INTEGER JX
          INTEGER JY
          INTEGER JZ
      )

/*****************************************************
 * math1/vrblib/vradd0.f
 ****************************************************/
/* 
 *      SUBROUTINE VRADD0(RX,RY,RZ,N,JX,JY,JZ)
 *      REAL      RX(*),RY(*),RZ(*)
 */
      SUBROUTINE VRADD0(
          REAL (JX*(N-1)+1) RX
          REAL (JY*(N-1)+1) RY
          REAL (JZ*(N-1)+1) o RZ
          INTEGER N
          INTEGER JX
          INTEGER JY
          INTEGER JZ
      )

/*****************************************************
 * math1/vrblib/vradd1.f
 ****************************************************/
/* 
 *      SUBROUTINE VRADD1(RX,RY,RZ,N,JX,JY,JZ)
 *      REAL      RX(*),RY(*),RZ(*)
 */
      SUBROUTINE VRADD1(
          REAL (JX*(N-1)+1) RX
          REAL (JY*(N-1)+1) RY
          REAL (JZ*(N-1)+1) o RZ
          INTEGER N
          INTEGER JX
          INTEGER JY
          INTEGER JZ
      )

/*****************************************************
 * math1/vrblib/vrsub.f
 ****************************************************/
/* 
 *      SUBROUTINE VRSUB(RX,RY,RZ,N,JX,JY,JZ)
 *      REAL      RX(*),RY(*),RZ(*)
 */
      SUBROUTINE VRSUB(
          REAL (JX*(N-1)+1) RX
          REAL (JY*(N-1)+1) RY
          REAL (JZ*(N-1)+1) o RZ
          INTEGER N
          INTEGER JX
          INTEGER JY
          INTEGER JZ
      )

/*****************************************************
 * math1/vrblib/vrsub0.f
 ****************************************************/
/* 
 *      SUBROUTINE VRSUB0(RX,RY,RZ,N,JX,JY,JZ)
 *      REAL      RX(*),RY(*),RZ(*)
 */
      SUBROUTINE VRSUB0(
          REAL (JX*(N-1)+1) RX
          REAL (JY*(N-1)+1) RY
          REAL (JZ*(N-1)+1) o RZ
          INTEGER N
          INTEGER JX
          INTEGER JY
          INTEGER JZ
      )

/*****************************************************
 * math1/vrblib/vrsub1.f
 ****************************************************/
/* 
 *      SUBROUTINE VRSUB1(RX,RY,RZ,N,JX,JY,JZ)
 *      REAL      RX(*),RY(*),RZ(*)
 */
      SUBROUTINE VRSUB1(
          REAL (JX*(N-1)+1) RX
          REAL (JY*(N-1)+1) RY
          REAL (JZ*(N-1)+1) o RZ
          INTEGER N
          INTEGER JX
          INTEGER JY
          INTEGER JZ
      )

/*****************************************************
 * math1/vrblib/vrmlt.f
 ****************************************************/
/* 
 *      SUBROUTINE VRMLT(RX,RY,RZ,N,JX,JY,JZ)
 *      REAL      RX(*),RY(*),RZ(*)
 */
      SUBROUTINE VRMLT(
          REAL (JX*(N-1)+1) RX
          REAL (JY*(N-1)+1) RY
          REAL (JZ*(N-1)+1) o RZ
          INTEGER N
          INTEGER JX
          INTEGER JY
          INTEGER JZ
      )

/*****************************************************
 * math1/vrblib/vrmlt0.f
 ****************************************************/
/* 
 *      SUBROUTINE VRMLT0(RX,RY,RZ,N,JX,JY,JZ)
 *      REAL      RX(*),RY(*),RZ(*)
 */
      SUBROUTINE VRMLT0(
          REAL (JX*(N-1)+1) RX
          REAL (JY*(N-1)+1) RY
          REAL (JZ*(N-1)+1) o RZ
          INTEGER N
          INTEGER JX
          INTEGER JY
          INTEGER JZ
      )

/*****************************************************
 * math1/vrblib/vrmlt1.f
 ****************************************************/
/* 
 *      SUBROUTINE VRMLT1(RX,RY,RZ,N,JX,JY,JZ)
 *      REAL      RX(*),RY(*),RZ(*)
 */
      SUBROUTINE VRMLT1(
          REAL (JX*(N-1)+1) RX
          REAL (JY*(N-1)+1) RY
          REAL (JZ*(N-1)+1) o RZ
          INTEGER N
          INTEGER JX
          INTEGER JY
          INTEGER JZ
      )

/*****************************************************
 * math1/vrblib/vrdiv.f
 ****************************************************/
/* 
 *      SUBROUTINE VRDIV(RX,RY,RZ,N,JX,JY,JZ)
 *      REAL      RX(*),RY(*),RZ(*)
 */
      SUBROUTINE VRDIV(
          REAL (JX*(N-1)+1) RX
          REAL (JY*(N-1)+1) RY
          REAL (JZ*(N-1)+1) o RZ
          INTEGER N
          INTEGER JX
          INTEGER JY
          INTEGER JZ
      )

/*****************************************************
 * math1/vrblib/vrdiv0.f
 ****************************************************/
/* 
 *      SUBROUTINE VRDIV0(RX,RY,RZ,N,JX,JY,JZ)
 *      REAL      RX(*),RY(*),RZ(*)
 */
      SUBROUTINE VRDIV0(
          REAL (JX*(N-1)+1) RX
          REAL (JY*(N-1)+1) RY
          REAL (JZ*(N-1)+1) o RZ
          INTEGER N
          INTEGER JX
          INTEGER JY
          INTEGER JZ
      )

/*****************************************************
 * math1/vrblib/vrdiv1.f
 ****************************************************/
/* 
 *      SUBROUTINE VRDIV1(RX,RY,RZ,N,JX,JY,JZ)
 *      REAL      RX(*),RY(*),RZ(*)
 */
      SUBROUTINE VRDIV1(
          REAL (JX*(N-1)+1) RX
          REAL (JY*(N-1)+1) RY
          REAL (JZ*(N-1)+1) o RZ
          INTEGER N
          INTEGER JX
          INTEGER JY
          INTEGER JZ
      )