Lines Matching refs:WRITE
33 WRITE(NOUT,*) '@(pre)SYEV ET_Example Program Results.'
35 WRITE(NOUT,*) '@(pre)HEEV ET_Example Program Results.'
44 WRITE(NOUT,*) 'The matrix A:'
46 WRITE(NOUT,FMT) A(I,:)
49 WRITE(NOUT,*) '---------------------------------------------------------'
50 WRITE(NOUT,*)
52 WRITE ( NOUT, * )'Details of LA_@(pre)SYEV LAPACK Subroutine Results.'
53 WRITE(NOUT,*)
55 WRITE(NOUT,*)
56 WRITE(NOUT,*) 'CALL LA_SYEV(A, W, INFO=INFO)'
57 WRITE(NOUT,*) 'ON ENTRY: A'
58 WRITE(NOUT,*) ' A - the original matrix (upper triangular)'
59 WRITE(NOUT,*) 'ON EXIT: A, W'
60 WRITE(NOUT,*) ' A - destroyed matrix A'
61 WRITE(NOUT,*) ' W - the eigenvalues in ascending order'
64 WRITE(NOUT,*) 'The eigenvalues computed by LA_SYEV:'
65 WRITE(NOUT,FMT) W(:)
66 WRITE(NOUT,*) 'INFO = ',INFO
68 WRITE(NOUT,*)
69 WRITE(NOUT,*) "CALL LA_SYEV(A, W, 'V')"
70 WRITE(NOUT,*) 'ON ENTRY: A'
71 WRITE(NOUT,*) ' A - the original matrix (upper triangular)'
72 WRITE(NOUT,*) 'ON EXIT: A, W'
73 WRITE(NOUT,*) ' A - orthonormal eigenvectors of the matrix A'
74 WRITE(NOUT,*) ' W - the eigenvalues in ascending order'
77 WRITE(NOUT,*) 'The eigenvalues computed by LA_SYEV:'
78 WRITE(NOUT,FMT) W(:)
79 WRITE(NOUT,*) 'The orthonormal eigenvectors computed by LA_SYEV:'
81 WRITE(NOUT,FMT) A(I,:)
84 WRITE(NOUT,*)
85 WRITE(NOUT,*) "CALL LA_SYEV(A, W, 'V', 'L')"
86 WRITE(NOUT,*) 'ON ENTRY: A'
87 WRITE(NOUT,*) ' A - the original matrix (lower triangular)'
88 WRITE(NOUT,*) 'ON EXIT: A, W'
89 WRITE(NOUT,*) ' A - orthonormal eigenvectors of the matrix A'
90 WRITE(NOUT,*) ' W - the eigenvalues in ascending order'
93 WRITE(NOUT,*) 'The eigenvalues computed by LA_SYEV:'
94 WRITE(NOUT,FMT) W(:)
95 WRITE(NOUT,*) 'The orthonormal eigenvectors computed by LA_SYEV:'
97 WRITE(NOUT,FMT) A(I,:)
100 WRITE(NOUT,*)
101 WRITE(NOUT,*) "CALL LA_SYEV(A, W, UPLO='L')"
102 WRITE(NOUT,*) 'ON ENTRY: A'
103 WRITE(NOUT,*) ' A - the original matrix (lower triangular)'
104 WRITE(NOUT,*) 'ON EXIT: A, W'
105 WRITE(NOUT,*) ' A - destroyed matrix A'
106 WRITE(NOUT,*) ' W - the eigenvalues in ascending order'
109 WRITE(NOUT,*) 'The eigenvalues computed by LA_SYEV:'
110 WRITE(NOUT,FMT) W(:)
112 WRITE(NOUT,*)
113 WRITE(NOUT,*) 'CALL LA_SYEV(A, W, INFO=INFO)'
114 WRITE(NOUT,*) 'ON ENTRY: A'
115 WRITE(NOUT,*) ' A - the original matrix (upper triangular)'
116 WRITE(NOUT,*) 'ON EXIT: A, W'
117 WRITE(NOUT,*) ' A - destroyed matrix A'
118 WRITE(NOUT,*) ' W - the eigenvalues in ascending order'
121 WRITE(NOUT,*) 'The eigenvalues computed by LA_SYEV:'
122 WRITE(NOUT,FMT) W(:)
123 WRITE(NOUT,*) 'INFO = ',INFO
125 WRITE(NOUT,*)
126 WRITE(NOUT,*) "CALL LA_SYEV(A, W, 'V' )"
127 WRITE(NOUT,*) 'ON ENTRY: A'
128 WRITE(NOUT,*) ' A - the original matrix (upper triangular)'
129 WRITE(NOUT,*) 'ON EXIT: A, W'
130 WRITE(NOUT,*) ' A - orthonormal eigenvectors of the matrix A'
131 WRITE(NOUT,*) ' W - the eigenvalues in ascending order'
134 WRITE(NOUT,*) 'The eigenvalues computed by LA_SYEV:'
135 WRITE(NOUT,FMT) W(:)
136 WRITE(NOUT,*) 'The orthonormal eigenvectors computed by LA_SYEV:'
138 WRITE(NOUT,FMT) A(I,:)
143 WRITE ( NOUT, * )'Details of LA_@(pre)HEEV LAPACK Subroutine Results.'
144 WRITE(NOUT,*)
146 WRITE(NOUT,*)
147 WRITE(NOUT,*) 'CALL LA_HEEV(A, W, INFO=INFO)'
148 WRITE(NOUT,*) 'ON ENTRY: A'
149 WRITE(NOUT,*) ' A - the original matrix (upper triangular)'
150 WRITE(NOUT,*) 'ON EXIT: A, W'
151 WRITE(NOUT,*) ' A - destroyed matrix A'
152 WRITE(NOUT,*) ' W - the eigenvalues in ascending order'
155 WRITE(NOUT,*) 'The eigenvalues computed by LA_HEEV:'
156 WRITE(NOUT,FMT) W(:)
157 WRITE(NOUT,*) 'INFO = ',INFO
159 WRITE(NOUT,*)
160 WRITE(NOUT,*) "CALL LA_HEEV(A, W, 'V')"
161 WRITE(NOUT,*) 'ON ENTRY: A'
162 WRITE(NOUT,*) ' A - the original matrix (upper triangular)'
163 WRITE(NOUT,*) 'ON EXIT: A, W'
164 WRITE(NOUT,*) ' A - orthonormal eigenvectors of the matrix A'
165 WRITE(NOUT,*) ' W - the eigenvalues in ascending order'
168 WRITE(NOUT,*) 'The eigenvalues computed by LA_HEEV:'
169 WRITE(NOUT,FMT) W(:)
170 WRITE(NOUT,*) 'The orthonormal eigenvectors computed by LA_HEEV:'
172 WRITE(NOUT,FMT) A(I,:)
175 WRITE(NOUT,*)
176 WRITE(NOUT,*) "CALL LA_HEEV(A, W, 'V', 'L')"
177 WRITE(NOUT,*) 'ON ENTRY: A'
178 WRITE(NOUT,*) ' A - the original matrix (lower triangular)'
179 WRITE(NOUT,*) 'ON EXIT: A, W'
180 WRITE(NOUT,*) ' A - orthonormal eigenvectors of the matrix A'
181 WRITE(NOUT,*) ' W - the eigenvalues in ascending order'
184 WRITE(NOUT,*) 'The eigenvalues computed by LA_HEEV:'
185 WRITE(NOUT,FMT) W(:)
186 WRITE(NOUT,*) 'The orthonormal eigenvectors computed by LA_HEEV:'
188 WRITE(NOUT,FMT) A(I,:)
191 WRITE(NOUT,*)
192 WRITE(NOUT,*) "CALL LA_HEEV(A, W, UPLO='L')"
193 WRITE(NOUT,*) 'ON ENTRY: A'
194 WRITE(NOUT,*) ' A - the original matrix (lower triangular)'
195 WRITE(NOUT,*) 'ON EXIT: A, W'
196 WRITE(NOUT,*) ' A - destroyed matrix A'
197 WRITE(NOUT,*) ' W - the eigenvalues in ascending order'
200 WRITE(NOUT,*) 'The eigenvalues computed by LA_HEEV:'
201 WRITE(NOUT,FMT) W(:)
203 WRITE(NOUT,*)
204 WRITE(NOUT,*) 'CALL LA_HEEV(A, W, INFO=INFO)'
205 WRITE(NOUT,*) 'ON ENTRY: A'
206 WRITE(NOUT,*) ' A - the original matrix (upper triangular)'
207 WRITE(NOUT,*) 'ON EXIT: A, W'
208 WRITE(NOUT,*) ' A - destroyed matrix A'
209 WRITE(NOUT,*) ' W - the eigenvalues in ascending order'
212 WRITE(NOUT,*) 'The eigenvalues computed by LA_HEEV:'
213 WRITE(NOUT,FMT) W(:)
214 WRITE(NOUT,*) 'INFO = ',INFO
216 WRITE(NOUT,*)
217 WRITE(NOUT,*) "CALL LA_HEEV(A, W, 'V' )"
218 WRITE(NOUT,*) 'ON ENTRY: A'
219 WRITE(NOUT,*) ' A - the original matrix (upper triangular)'
220 WRITE(NOUT,*) 'ON EXIT: A, W'
221 WRITE(NOUT,*) ' A - orthonormal eigenvectors of the matrix A'
222 WRITE(NOUT,*) ' W - the eigenvalues in ascending order'
225 WRITE(NOUT,*) 'The eigenvalues computed by LA_HEEV:'
226 WRITE(NOUT,FMT) W(:)
227 WRITE(NOUT,*) 'The orthonormal eigenvectors computed by LA_HEEV:'
229 WRITE(NOUT,FMT) A(I,:)