*DECK UIVP SUBROUTINE UIVP (X, Y, YP) C***BEGIN PROLOGUE UIVP C***PURPOSE Dummy routine for BVSUP quick check. C***LIBRARY SLATEC C***TYPE SINGLE PRECISION (UIVP-S, DUIVP-D) C***KEYWORDS QUICK CHECK C***AUTHOR Watts, H. A., (SNLA) C***DESCRIPTION C C This routine is never called; it is here to prevent loaders from C complaining about undefined externals while testing BVSUP. C C***ROUTINES CALLED (NONE) C***REVISION HISTORY (YYMMDD) C 750601 DATE WRITTEN C 890618 REVISION DATE from Version 3.2 C 891214 Prologue converted to Version 4.0 format. (BAB) C 920401 Variables declaration and TYPE sections added. (WRB) C***END PROLOGUE UIVP C .. Scalar Arguments .. REAL X C .. Array Arguments .. REAL Y(*), YP(*) C***FIRST EXECUTABLE STATEMENT UIVP STOP END