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

/*****************************************************
 * math1/viblib/vifnb.f
 ****************************************************/
/* 
 *      SUBROUTINE VIFNB(IX,IY,IZ,N,JX,JY,JZ,IFNB)
 *      INTEGER   IX(*),IY(*),IZ(*)
 */
      SUBROUTINE VIFNB(
          INTEGER (JX*(N-1)+1) IX
          INTEGER (JY*(N-1)+1) IY
          INTEGER (JZ*(N-1)+1) o IZ
          INTEGER N
          INTEGER JX
          INTEGER JY
          INTEGER JZ
          INTEGER IFNB
      )

/*****************************************************
 * math1/viblib/vifnb0.f
 ****************************************************/
/* 
 *      SUBROUTINE VIFNB0(IX,IY,IZ,N,JX,JY,JZ,IFNB)
 *      INTEGER   IX(*),IY(*),IZ(*)
 */
      SUBROUTINE VIFNB0(
          INTEGER (JX*(N-1)+1) IX
          INTEGER (JY*(N-1)+1) IY
          INTEGER (JZ*(N-1)+1) o IZ
          INTEGER N
          INTEGER JX
          INTEGER JY
          INTEGER JZ
          INTEGER IFNB
      )

/*****************************************************
 * math1/viblib/vifnb1.f
 ****************************************************/
/* 
 *      SUBROUTINE VIFNB1(IX,IY,IZ,N,JX,JY,JZ,IFNB)
 *      INTEGER   IX(*),IY(*),IZ(*)
 */
      SUBROUTINE VIFNB1(
          INTEGER (JX*(N-1)+1) IX
          INTEGER (JY*(N-1)+1) IY
          INTEGER (JZ*(N-1)+1) o IZ
          INTEGER N
          INTEGER JX
          INTEGER JY
          INTEGER JZ
          INTEGER IFNB
      )

/*****************************************************
 * math1/viblib/viadd.f
 ****************************************************/
/* 
 *      SUBROUTINE VIADD(IX,IY,IZ,N,JX,JY,JZ)
 *      INTEGER   IX(*),IY(*),IZ(*)
 */
      SUBROUTINE VIADD(
          INTEGER (JX*(N-1)+1) IX
          INTEGER (JY*(N-1)+1) IY
          INTEGER (JZ*(N-1)+1) o IZ
          INTEGER N
          INTEGER JX
          INTEGER JY
          INTEGER JZ
      )

/*****************************************************
 * math1/viblib/viadd0.f
 ****************************************************/
/* 
 *      SUBROUTINE VIADD0(IX,IY,IZ,N,JX,JY,JZ)
 *      INTEGER   IX(*),IY(*),IZ(*)
 */
      SUBROUTINE VIADD0(
          INTEGER (JX*(N-1)+1) IX
          INTEGER (JY*(N-1)+1) IY
          INTEGER (JZ*(N-1)+1) o IZ
          INTEGER N
          INTEGER JX
          INTEGER JY
          INTEGER JZ
      )

/*****************************************************
 * math1/viblib/viadd1.f
 ****************************************************/
/* 
 *      SUBROUTINE VIADD1(IX,IY,IZ,N,JX,JY,JZ)
 *      INTEGER   IX(*),IY(*),IZ(*)
 */
      SUBROUTINE VIADD1(
          INTEGER (JX*(N-1)+1) IX
          INTEGER (JY*(N-1)+1) IY
          INTEGER (JZ*(N-1)+1) o IZ
          INTEGER N
          INTEGER JX
          INTEGER JY
          INTEGER JZ
      )

/*****************************************************
 * math1/viblib/visub.f
 ****************************************************/
/* 
 *      SUBROUTINE VISUB(IX,IY,IZ,N,JX,JY,JZ)
 *      INTEGER   IX(*),IY(*),IZ(*)
 */
      SUBROUTINE VISUB(
          INTEGER (JX*(N-1)+1) IX
          INTEGER (JY*(N-1)+1) IY
          INTEGER (JZ*(N-1)+1) o IZ
          INTEGER N
          INTEGER JX
          INTEGER JY
          INTEGER JZ
      )

/*****************************************************
 * math1/viblib/visub0.f
 ****************************************************/
/* 
 *      SUBROUTINE VISUB0(IX,IY,IZ,N,JX,JY,JZ)
 *      INTEGER   IX(*),IY(*),IZ(*)
 */
      SUBROUTINE VISUB0(
          INTEGER (JX*(N-1)+1) IX
          INTEGER (JY*(N-1)+1) IY
          INTEGER (JZ*(N-1)+1) o IZ
          INTEGER N
          INTEGER JX
          INTEGER JY
          INTEGER JZ
      )

/*****************************************************
 * math1/viblib/visub1.f
 ****************************************************/
/* 
 *      SUBROUTINE VISUB1(IX,IY,IZ,N,JX,JY,JZ)
 *      INTEGER   IX(*),IY(*),IZ(*)
 */
      SUBROUTINE VISUB1(
          INTEGER (JX*(N-1)+1) IX
          INTEGER (JY*(N-1)+1) IY
          INTEGER (JZ*(N-1)+1) o IZ
          INTEGER N
          INTEGER JX
          INTEGER JY
          INTEGER JZ
      )

/*****************************************************
 * math1/viblib/vimlt.f
 ****************************************************/
/* 
 *      SUBROUTINE VIMLT(IX,IY,IZ,N,JX,JY,JZ)
 *      INTEGER   IX(*),IY(*),IZ(*)
 */
      SUBROUTINE VIMLT(
          INTEGER (JX*(N-1)+1) IX
          INTEGER (JY*(N-1)+1) IY
          INTEGER (JZ*(N-1)+1) o IZ
          INTEGER N
          INTEGER JX
          INTEGER JY
          INTEGER JZ
      )

/*****************************************************
 * math1/viblib/vimlt0.f
 ****************************************************/
/* 
 *      SUBROUTINE VIMLT0(IX,IY,IZ,N,JX,JY,JZ)
 *      INTEGER   IX(*),IY(*),IZ(*)
 */
      SUBROUTINE VIMLT0(
          INTEGER (JX*(N-1)+1) IX
          INTEGER (JY*(N-1)+1) IY
          INTEGER (JZ*(N-1)+1) o IZ
          INTEGER N
          INTEGER JX
          INTEGER JY
          INTEGER JZ
      )

/*****************************************************
 * math1/viblib/vimlt1.f
 ****************************************************/
/* 
 *      SUBROUTINE VIMLT1(IX,IY,IZ,N,JX,JY,JZ)
 *      INTEGER   IX(*),IY(*),IZ(*)
 */
      SUBROUTINE VIMLT1(
          INTEGER (JX*(N-1)+1) IX
          INTEGER (JY*(N-1)+1) IY
          INTEGER (JZ*(N-1)+1) o IZ
          INTEGER N
          INTEGER JX
          INTEGER JY
          INTEGER JZ
      )

/*****************************************************
 * math1/viblib/vidiv.f
 ****************************************************/
/* 
 *      SUBROUTINE VIDIV(IX,IY,IZ,N,JX,JY,JZ)
 *      INTEGER   IX(*),IY(*),IZ(*)
 */
      SUBROUTINE VIDIV(
          INTEGER (JX*(N-1)+1) IX
          INTEGER (JY*(N-1)+1) IY
          INTEGER (JZ*(N-1)+1) o IZ
          INTEGER N
          INTEGER JX
          INTEGER JY
          INTEGER JZ
      )

/*****************************************************
 * math1/viblib/vidiv0.f
 ****************************************************/
/* 
 *      SUBROUTINE VIDIV0(IX,IY,IZ,N,JX,JY,JZ)
 *      INTEGER   IX(*),IY(*),IZ(*)
 */
      SUBROUTINE VIDIV0(
          INTEGER (JX*(N-1)+1) IX
          INTEGER (JY*(N-1)+1) IY
          INTEGER (JZ*(N-1)+1) o IZ
          INTEGER N
          INTEGER JX
          INTEGER JY
          INTEGER JZ
      )

/*****************************************************
 * math1/viblib/vidiv1.f
 ****************************************************/
/* 
 *      SUBROUTINE VIDIV1(IX,IY,IZ,N,JX,JY,JZ)
 *      INTEGER   IX(*),IY(*),IZ(*)
 */
      SUBROUTINE VIDIV1(
          INTEGER (JX*(N-1)+1) IX
          INTEGER (JY*(N-1)+1) IY
          INTEGER (JZ*(N-1)+1) o IZ
          INTEGER N
          INTEGER JX
          INTEGER JY
          INTEGER JZ
      )