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

/*****************************************************
 * math2/intrlib/vrintr.f
 ****************************************************/
/* 
 *      SUBROUTINE VRINTR(RX,N,JX)
 *      REAL    RX(*)
 */
      SUBROUTINE VRINTR(
          REAL (JX*(N-1)+1) io RX
          INTEGER N
          INTEGER JX
      )

/*****************************************************
 * math2/intrlib/vcintr.f
 ****************************************************/
/* 
 *      SUBROUTINE VCINTR(CX,N,JX)
 *      COMPLEX CX(*),CMISS,CD,C1
 */
      SUBROUTINE VCINTR(
          COMPLEX (JX*(N-1)+1) io CX
          INTEGER N
          INTEGER JX
      )