IVOUT(3)

SYNOPSIS
SUBROUTINE IVOUT (N, IX, IFMT, IDIGIT)

NAME
ivout - Subsidiary to SPLP

LIBRARY
SLATEC

TYPE
INTEGER (IVOUT-I)

AUTHOR
Hanson, R. J., (SNLA) Wisniewski, J. A., (SNLA)

DESCRIPTION
INTEGER VECTOR OUTPUT ROUTINE. INPUT.. N,IX(*) PRINT THE INTEGER ARRAY IX(I),I=1,...,N, ON OUTPUT UNIT LOUT. THE HEADING IN THE FORTRAN FORMAT STATEMENT IFMT(*), DESCRIBED BELOW, IS PRINTED AS A FIRST STEP. THE COMPONENTS IX(I) ARE INDEXED, ON OUTPUT, IN A PLEASANT FORMAT. IFMT(*) A FORTRAN FORMAT STATEMENT. THIS IS PRINTED ON OUTPUT UNIT LOUT WITH THE VARIABLE FORMAT FORTRAN STATEMENT WRITE(LOUT,IFMT) IDIGIT PRINT UP TO ABS(IDIGIT) DECIMAL DIGITS PER NUMBER. THE SUBPROGRAM WILL CHOOSE THAT INTEGER 4,6,10 OR 14 WHICH WILL PRINT AT LEAST ABS(IDIGIT) NUMBER OF PLACES. IF IDIGIT.LT.0, 72 PRINTING COLUMNS ARE UTILIZED TO WRITE EACH LINE OF OUTPUT OF THE ARRAY IX(*). (THIS CAN BE USED ON MOST TIME-SHARING TERMINALS). IF IDIGIT.GE.0, 133 PRINTING COLUMNS ARE UTILIZED. (THIS CAN BE USED ON MOST LINE PRINTERS). EXAMPLE.. PRINT AN ARRAY CALLED (COSTS OF PURCHASES) OF LENGTH 100 SHOWING 6 DECIMAL DIGITS PER NUMBER. THE USER IS RUNNING ON A TIME-SHARING SYSTEM WITH A 72 COLUMN OUTPUT DEVICE. DIMENSION ICOSTS(100) N = 100 IDIGIT = -6 CALL IVOUT(N,ICOSTS,'(''1COSTS OF PURCHASES'')',IDIGIT)

SEE ALSO
SPLP

ROUTINES CALLED
I1MACH

REVISION HISTORY (YYMMDD)
811215 DATE WRITTEN
890531 Changed all specific intrinsics to generic. (WRB)
891214 Prologue converted to Version 4.0 format. (BAB)
900402 Added TYPE section. (WRB)
910403 Updated AUTHOR section. (WRB)