/*
 * math2_vstlib.fp
 *
 * $Id: math2_vstlib.fp,v 1.2 2000/11/25 12:40:12 keiko Exp $
 */

/*****************************************************
 * math2/vstlib/vs1int.f
 ****************************************************/
/* 
 *      SUBROUTINE VS1INT(WZ,NW,IX)
 *      REAL      WZ(IX,2),X(IX)
 *      INTEGER   NW(IX)
 */
      SUBROUTINE VS1INT(
          REAL (IX,2) o WZ
          INTEGER (IX) o NW
          INTEGER IX
      )

/* 
 *      ENTRY VS1DIN(WZ,NW,IX,X)
 *      REAL      WZ(IX,2),X(IX)
 *      INTEGER   NW(IX)
 */
      SUBROUTINE VS1DIN(
          REAL (IX,2) io WZ
          INTEGER (IX) io NW
          INTEGER IX
          REAL (IX) X
      )

/* 
 *      ENTRY VS1OUT(WZ,NW,IX)
 *      REAL      WZ(IX,2),X(IX)
 *      INTEGER   NW(IX)
 */
      SUBROUTINE VS1OUT(
          REAL (IX,2) io WZ
          INTEGER (IX) NW
          INTEGER IX
      )

/*****************************************************
 * math2/vstlib/vs2int.f
 ****************************************************/
/* 
 *      SUBROUTINE VS2INT(WZ,NW,IX,IY)
 *      REAL      WZ(IX,IY,5),X(IX),Y(IY)
 *      INTEGER   NW(IX,IY)
 */
      SUBROUTINE VS2INT(
          REAL (IX,IY,5) o WZ
          INTEGER (IX,IY) o NW
          INTEGER IX
          INTEGER IY
      )

/* 
 *      ENTRY VS2DIN(WZ,NW,IX,IY,X,Y)
 *      REAL      WZ(IX,IY,5),X(IX),Y(IY)
 *      INTEGER   NW(IX,IY)
 */
      SUBROUTINE VS2DIN(
          REAL (IX,IY,5) io WZ
          INTEGER (IX,IY) io NW
          INTEGER IX
          INTEGER IY
          REAL (IX) X
          REAL (IX) Y
      )

/* 
 *      ENTRY VS2OUT(WZ,NW,IX,IY)
 *      REAL      WZ(IX,IY,5),X(IX),Y(IY)
 *      INTEGER   NW(IX,IY)
 */
      SUBROUTINE VS2OUT(
          REAL (IX,IY,5) io WZ
          INTEGER (IX,IY) NW
          INTEGER IX
          INTEGER IY
      )