1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
|
SUBROUTINE SPRTBS( LAB1, LAB2, NTYPES, DOTYPE, NSIZES, NN, NPARMS,
$ DOLINE, RESLTS, LDR1, LDR2, NOUT )
*
* -- LAPACK timing routine (version 3.0) --
* Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
* Courant Institute, Argonne National Lab, and Rice University
* February 29, 1992
*
* .. Scalar Arguments ..
CHARACTER*( * ) LAB1, LAB2
INTEGER LDR1, LDR2, NOUT, NPARMS, NSIZES, NTYPES
* ..
* .. Array Arguments ..
LOGICAL DOLINE( NPARMS ), DOTYPE( NTYPES )
INTEGER NN( NSIZES )
REAL RESLTS( LDR1, LDR2, * )
* ..
*
* Purpose
* =======
*
* SPRTBS prints a table of timing data for the timing programs.
* The table has NTYPES block rows and NSIZES columns, with NPARMS
* individual rows in each block row.
*
* Arguments (none are modified)
* =========
*
* LAB1 - CHARACTER*(*)
* The label for the rows.
*
* LAB2 - CHARACTER*(*)
* The label for the columns.
*
* NTYPES - INTEGER
* The number of values of DOTYPE, and also the
* number of sets of rows of the table.
*
* DOTYPE - LOGICAL array of dimension( NTYPES )
* If DOTYPE(j) is .TRUE., then block row j (which includes
* data from RESLTS( i, j, k ), for all i and k) will be
* printed. If DOTYPE(j) is .FALSE., then block row j will
* not be printed.
*
* NSIZES - INTEGER
* The number of values of NN, and also the
* number of columns of the table.
*
* NN - INTEGER array of dimension( NSIZES )
* The values of N used to label each column.
*
* NPARMS - INTEGER
* The number of values of LDA, hence the
* number of rows for each value of DOTYPE.
*
* DOLINE - LOGICAL array of dimension( NPARMS )
* If DOLINE(i) is .TRUE., then row i (which includes data
* from RESLTS( i, j, k ) for all j and k) will be printed.
* If DOLINE(i) is .FALSE., then row i will not be printed.
*
* RESLTS - REAL array of dimension( LDR1, LDR2, NSIZES )
* The timing results. The first index indicates the row,
* the second index indicates the block row, and the last
* indicates the column.
*
* LDR1 - INTEGER
* The first dimension of RESLTS. It must be at least
* min( 1, NPARMS ).
*
* LDR2 - INTEGER
* The second dimension of RESLTS. It must be at least
* min( 1, NTYPES ).
*
* NOUT - INTEGER
* The output unit number on which the table
* is to be printed. If NOUT <= 0, no output is printed.
*
* =====================================================================
*
* .. Local Scalars ..
INTEGER I, ILINE, J, K
* ..
* .. Executable Statements ..
*
IF( NOUT.LE.0 )
$ RETURN
IF( NPARMS.LE.0 )
$ RETURN
WRITE( NOUT, FMT = 9999 )LAB2, ( NN( I ), I = 1, NSIZES )
WRITE( NOUT, FMT = 9998 )LAB1
*
DO 20 J = 1, NTYPES
ILINE = 0
IF( DOTYPE( J ) ) THEN
DO 10 I = 1, NPARMS
IF( DOLINE( I ) ) THEN
ILINE = ILINE + 1
IF( ILINE.LE.1 ) THEN
WRITE( NOUT, FMT = 9997 )J,
$ ( RESLTS( I, J, K ), K = 1, NSIZES )
ELSE
WRITE( NOUT, FMT = 9996 )( RESLTS( I, J, K ),
$ K = 1, NSIZES )
END IF
END IF
10 CONTINUE
IF( ILINE.GT.1 .AND. J.LT.NTYPES )
$ WRITE( NOUT, FMT = * )
END IF
20 CONTINUE
RETURN
*
9999 FORMAT( 6X, A4, I6, 11I9 )
9998 FORMAT( 3X, A4 )
9997 FORMAT( 3X, I4, 4X, 1P, 12( 1X, G8.2 ) )
9996 FORMAT( 11X, 1P, 12( 1X, G8.2 ) )
*
* End of SPRTBS
*
END
|
