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

/*****************************************************
 * math1/vialib/vifna.f
 ****************************************************/
/* 
 *      SUBROUTINE VIFNA(IX,IY,N,JX,JY,IFNA)
 *      INTEGER   IX(*),IY(*)
 */
      SUBROUTINE VIFNA(
          INTEGER (JX*(N-1)+1) IX
          INTEGER (JY*(N-1)+1) o IY
          INTEGER N
          INTEGER JX
          INTEGER JY
          INTEGER IFNA
      )

/*****************************************************
 * math1/vialib/vifna0.f
 ****************************************************/
/* 
 *      SUBROUTINE VIFNA0(IX,IY,N,JX,JY,IFNA)
 *      INTEGER   IX(*),IY(*)
 */
      SUBROUTINE VIFNA0(
          INTEGER (JX*(N-1)+1) IX
          INTEGER (JY*(N-1)+1) o IY
          INTEGER N
          INTEGER JX
          INTEGER JY
          INTEGER IFNA
      )

/*****************************************************
 * math1/vialib/vifna1.f
 ****************************************************/
/* 
 *      SUBROUTINE VIFNA1(IX,IY,N,JX,JY,IFNA)
 *      INTEGER   IX(*),IY(*)
 */
      SUBROUTINE VIFNA1(
          INTEGER (JX*(N-1)+1) IX
          INTEGER (JY*(N-1)+1) o IY
          INTEGER N
          INTEGER JX
          INTEGER JY
          INTEGER IFNA
      )

/*****************************************************
 * math1/vialib/viinc.f
 ****************************************************/
/* 
 *      SUBROUTINE VIINC(IX,IY,N,JX,JY,II)
 *      INTEGER   IX(*),IY(*)
 */
      SUBROUTINE VIINC(
          INTEGER (JX*(N-1)+1) IX
          INTEGER (JY*(N-1)+1) o IY
          INTEGER N
          INTEGER JX
          INTEGER JY
          INTEGER II
      )

/*****************************************************
 * math1/vialib/viinc0.f
 ****************************************************/
/* 
 *      SUBROUTINE VIINC0(IX,IY,N,JX,JY,II)
 *      INTEGER   IX(*),IY(*)
 */
      SUBROUTINE VIINC0(
          INTEGER (JX*(N-1)+1) IX
          INTEGER (JY*(N-1)+1) o IY
          INTEGER N
          INTEGER JX
          INTEGER JY
          INTEGER II
      )

/*****************************************************
 * math1/vialib/viinc1.f
 ****************************************************/
/* 
 *      SUBROUTINE VIINC1(IX,IY,N,JX,JY,II)
 *      INTEGER   IX(*),IY(*)
 */
      SUBROUTINE VIINC1(
          INTEGER (JX*(N-1)+1) IX
          INTEGER (JY*(N-1)+1) o IY
          INTEGER N
          INTEGER JX
          INTEGER JY
          INTEGER II
      )

/*****************************************************
 * math1/vialib/vifct.f
 ****************************************************/
/* 
 *      SUBROUTINE VIFCT(IX,IY,N,JX,JY,II)
 *      INTEGER   IX(*),IY(*)
 */
      SUBROUTINE VIFCT(
          INTEGER (JX*(N-1)+1) IX
          INTEGER (JY*(N-1)+1) o IY
          INTEGER N
          INTEGER JX
          INTEGER JY
          INTEGER II
      )

/*****************************************************
 * math1/vialib/vifct0.f
 ****************************************************/
/* 
 *      SUBROUTINE VIFCT0(IX,IY,N,JX,JY,II)
 *      INTEGER   IX(*),IY(*)
 */
      SUBROUTINE VIFCT0(
          INTEGER (JX*(N-1)+1) IX
          INTEGER (JY*(N-1)+1) o IY
          INTEGER N
          INTEGER JX
          INTEGER JY
          INTEGER II
      )

/*****************************************************
 * math1/vialib/vifct1.f
 ****************************************************/
/* 
 *      SUBROUTINE VIFCT1(IX,IY,N,JX,JY,II)
 *      INTEGER   IX(*),IY(*)
 */
      SUBROUTINE VIFCT1(
          INTEGER (JX*(N-1)+1) IX
          INTEGER (JY*(N-1)+1) o IY
          INTEGER N
          INTEGER JX
          INTEGER JY
          INTEGER II
      )

/*****************************************************
 * math1/vialib/vicon.f
 ****************************************************/
/* 
 *      SUBROUTINE VICON(IX,IY,N,JX,JY,II)
 *      INTEGER   IX(*),IY(*)
 */
      SUBROUTINE VICON(
          INTEGER (JX*(N-1)+1) IX
          INTEGER (JY*(N-1)+1) o IY
          INTEGER N
          INTEGER JX
          INTEGER JY
          INTEGER II
      )

/*****************************************************
 * math1/vialib/vicon0.f
 ****************************************************/
/* 
 *      SUBROUTINE VICON0(IX,IY,N,JX,JY,II)
 *      INTEGER   IX(*),IY(*)
 */
      SUBROUTINE VICON0(
          INTEGER (JX*(N-1)+1) IX
          INTEGER (JY*(N-1)+1) o IY
          INTEGER N
          INTEGER JX
          INTEGER JY
          INTEGER II
      )

/*****************************************************
 * math1/vialib/vicon1.f
 ****************************************************/
/* 
 *      SUBROUTINE VICON1(IX,IY,N,JX,JY,II)
 *      INTEGER   IX(*),IY(*)
 */
      SUBROUTINE VICON1(
          INTEGER (JX*(N-1)+1) IX
          INTEGER (JY*(N-1)+1) o IY
          INTEGER N
          INTEGER JX
          INTEGER JY
          INTEGER II
      )

/*****************************************************
 * math1/vialib/viset.f
 ****************************************************/
/* 
 *      SUBROUTINE VISET(IX,IY,N,JX,JY)
 *      INTEGER   IX(*),IY(*)
 */
      SUBROUTINE VISET(
          INTEGER (JX*(N-1)+1) IX
          INTEGER (JY*(N-1)+1) o IY
          INTEGER N
          INTEGER JX
          INTEGER JY
      )

/*****************************************************
 * math1/vialib/iadd.f
 ****************************************************/
/* 
 *      SUBROUTINE IADD(IX,N,JX,II)
 *      INTEGER   IX(*)
 */
      SUBROUTINE IADD(
          INTEGER (JX*(N-1)+1) io IX
          INTEGER N
          INTEGER JX
          INTEGER II
      )

/*****************************************************
 * math1/vialib/iadd0.f
 ****************************************************/
/* 
 *      SUBROUTINE IADD0(IX,N,JX,II)
 *      INTEGER   IX(*)
 */
      SUBROUTINE IADD0(
          INTEGER (JX*(N-1)+1) io IX
          INTEGER N
          INTEGER JX
          INTEGER II
      )

/*****************************************************
 * math1/vialib/iadd1.f
 ****************************************************/
/* 
 *      SUBROUTINE IADD1(IX,N,JX,II)
 *      INTEGER   IX(*)
 */
      SUBROUTINE IADD1(
          INTEGER (JX*(N-1)+1) io IX
          INTEGER N
          INTEGER JX
          INTEGER II
      )

/*****************************************************
 * math1/vialib/imlt.f
 ****************************************************/
/* 
 *      SUBROUTINE IMLT(IX,N,JX,II)
 *      INTEGER   IX(*)
 */
      SUBROUTINE IMLT(
          INTEGER (JX*(N-1)+1) io IX
          INTEGER N
          INTEGER JX
          INTEGER II
      )

/*****************************************************
 * math1/vialib/imlt0.f
 ****************************************************/
/* 
 *      SUBROUTINE IMLT0(IX,N,JX,II)
 *      INTEGER   IX(*)
 */
      SUBROUTINE IMLT0(
          INTEGER (JX*(N-1)+1) io IX
          INTEGER N
          INTEGER JX
          INTEGER II
      )

/*****************************************************
 * math1/vialib/imlt1.f
 ****************************************************/
/* 
 *      SUBROUTINE IMLT1(IX,N,JX,II)
 *      INTEGER   IX(*)
 */
      SUBROUTINE IMLT1(
          INTEGER (JX*(N-1)+1) io IX
          INTEGER N
          INTEGER JX
          INTEGER II
      )

/*****************************************************
 * math1/vialib/iset.f
 ****************************************************/
/* 
 *      SUBROUTINE ISET(IX,N,JX,II)
 *      INTEGER   IX(*)
 */
      SUBROUTINE ISET(
          INTEGER (JX*(N-1)+1) io IX
          INTEGER N
          INTEGER JX
          INTEGER II
      )

/*****************************************************
 * math1/vialib/iset0.f
 ****************************************************/
/* 
 *      SUBROUTINE ISET0(IX,N,JX,II)
 *      INTEGER   IX(*)
 */
      SUBROUTINE ISET0(
          INTEGER (JX*(N-1)+1) io IX
          INTEGER N
          INTEGER JX
          INTEGER II
      )

/*****************************************************
 * math1/vialib/iset1.f
 ****************************************************/
/* 
 *      SUBROUTINE ISET1(IX,N,JX,II)
 *      INTEGER   IX(*)
 */
      SUBROUTINE ISET1(
          INTEGER (JX*(N-1)+1) io IX
          INTEGER N
          INTEGER JX
          INTEGER II
      )