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

/*****************************************************
 * math2/rnmlib/vrrnm.f
 ****************************************************/
/* 
 *      SUBROUTINE VRRNM(RX,RY,N,JX,JY,NB)
 *      REAL      RX(*),RY(*)
 */
      SUBROUTINE VRRNM(
          REAL (JX*(N-1)+1) RX
          REAL (JY*(N-1)+1) o RY
          INTEGER N
          INTEGER JX
          INTEGER JY
          INTEGER NB
      )

/*****************************************************
 * math2/rnmlib/vrrnm0.f
 ****************************************************/
/* 
 *      SUBROUTINE VRRNM0(RX,RY,N,JX,JY,NB)
 *      REAL      RX(*),RY(*)
 */
      SUBROUTINE VRRNM0(
          REAL (JX*(N-1)+1) RX
          REAL (JY*(N-1)+1) o RY
          INTEGER N
          INTEGER JX
          INTEGER JY
          INTEGER NB
      )

/*****************************************************
 * math2/rnmlib/vrrnm1.f
 ****************************************************/
/* 
 *      SUBROUTINE VRRNM1(RX,RY,N,JX,JY,NB)
 *      REAL      RX(*),RY(*)
 */
      SUBROUTINE VRRNM1(
          REAL (JX*(N-1)+1) RX
          REAL (JX*(N-1)+1) o RY
          INTEGER N
          INTEGER JX
          INTEGER JY
          INTEGER NB
      )