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

/*****************************************************
 * math1/sublib/vignn.f
 ****************************************************/
/* 
 *      SUBROUTINE VIGNN(IX,N,JX)
 *      INTEGER   IX(*)
 */
      SUBROUTINE VIGNN(
          INTEGER (JX*(N-1)+1) o IX
          INTEGER N
          INTEGER JX
      )

/*****************************************************
 * math1/sublib/vrgnn.f
 ****************************************************/
/* 
 *      SUBROUTINE VRGNN(RX,N,JX)
 *      REAL      RX(*)
 */
      SUBROUTINE VRGNN(
          REAL (JX*(N-1)+1) o RX
          INTEGER N
          INTEGER JX
      )

/*****************************************************
 * math1/sublib/dxfloc.f
 ****************************************************/
/* 
 *      SUBROUTINE DXFLOC(ND,NS,NP,NCP)
 *      INTEGER   NS(*),NP(*)
 */
      SUBROUTINE DXFLOC(
          INTEGER ND
          INTEGER (ND) NS
          INTEGER (ND) NP
          INTEGER o NCP
      )

/*****************************************************
 * math1/sublib/dxiloc.f
 ****************************************************/
/* 
 *      SUBROUTINE DXILOC(ND,NS,NP,NCP)
 *      INTEGER   NS(*),NP(*)
 */
      SUBROUTINE DXILOC(
          INTEGER ND
          INTEGER (ND) NS
          INTEGER (ND) o NP
          INTEGER NCP
      )