SMOUT(3)

SYNOPSIS
SUBROUTINE SMOUT (M, N, LDA, A, IFMT, IDIGIT)

NAME
smout - Subsidiary to FC and SBOCLS

LIBRARY
SLATEC

TYPE
SINGLE PRECISION (SMOUT-S, DMOUT-D)

AUTHOR
(UNKNOWN)

DESCRIPTION
SINGLE PRECISION MATRIX OUTPUT ROUTINE. INPUT.. M,N,LDA,A(*,*) PRINT THE SINGLE PRECISION ARRAY A(I,J),I = 1,...,M, J=1,...,N, ON OUTPUT UNIT LOUT=6. LDA IS THE DECLARED FIRST DIMENSION OF A(*,*) AS SPECIFIED IN THE CALLING PROGRAM. THE HEADING IN THE FORTRAN FORMAT STATEMENT IFMT(*), DESCRIBED BELOW, IS PRINTED AS A FIRST STEP. THE COMPONENTS A(I,J) ARE INDEXED, ON OUTPUT, IN A PLEASANT FORMAT. IFMT(*) A FORTRAN FORMAT STATEMENT. THIS IS PRINTED ON OUTPUT UNIT LOUT=6 WITH THE VARIABLE FORMAT FORTRAN STATEMENT WRITE(LOUT,IFMT). IDIGIT PRINT AT LEAST 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 A(*,*). (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 (SIMPLEX TABLEAU ) OF SIZE 10 BY 20 SHOWING 6 DECIMAL DIGITS PER NUMBER. THE USER IS RUNNING ON A TIME-SHARING SYSTEM WITH A 72 COLUMN OUTPUT DEVICE. DIMENSION TABLEU(20,20) M = 10 N = 20 LDTABL = 20 IDIGIT = -6 CALL SMOUT(M,N,LDTABL,TABLEU,21H(16H1SIMPLEX TABLEAU),IDIGIT)

SEE ALSO
FC, SBOCLS

ROUTINES CALLED
I1MACH

REVISION HISTORY (YYMMDD)
780801 DATE WRITTEN
890531 Changed all specific intrinsics to generic. (WRB)
891107 Added comma after 1P edit descriptor in FORMAT statements. (WRB)
891214 Prologue converted to Version 4.0 format. (BAB)
900328 Added TYPE section. (WRB)