You can not select more than 25 topics Topics must start with a chinese character,a letter or number, can include dashes ('-') and can be up to 35 characters long.

serrpo.f 15 kB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467
  1. *> \brief \b SERRPO
  2. *
  3. * =========== DOCUMENTATION ===========
  4. *
  5. * Online html documentation available at
  6. * http://www.netlib.org/lapack/explore-html/
  7. *
  8. * Definition:
  9. * ===========
  10. *
  11. * SUBROUTINE SERRPO( PATH, NUNIT )
  12. *
  13. * .. Scalar Arguments ..
  14. * CHARACTER*3 PATH
  15. * INTEGER NUNIT
  16. * ..
  17. *
  18. *
  19. *> \par Purpose:
  20. * =============
  21. *>
  22. *> \verbatim
  23. *>
  24. *> SERRPO tests the error exits for the REAL routines
  25. *> for symmetric positive definite matrices.
  26. *> \endverbatim
  27. *
  28. * Arguments:
  29. * ==========
  30. *
  31. *> \param[in] PATH
  32. *> \verbatim
  33. *> PATH is CHARACTER*3
  34. *> The LAPACK path name for the routines to be tested.
  35. *> \endverbatim
  36. *>
  37. *> \param[in] NUNIT
  38. *> \verbatim
  39. *> NUNIT is INTEGER
  40. *> The unit number for output.
  41. *> \endverbatim
  42. *
  43. * Authors:
  44. * ========
  45. *
  46. *> \author Univ. of Tennessee
  47. *> \author Univ. of California Berkeley
  48. *> \author Univ. of Colorado Denver
  49. *> \author NAG Ltd.
  50. *
  51. *> \date December 2016
  52. *
  53. *> \ingroup single_lin
  54. *
  55. * =====================================================================
  56. SUBROUTINE SERRPO( PATH, NUNIT )
  57. *
  58. * -- LAPACK test routine (version 3.7.0) --
  59. * -- LAPACK is a software package provided by Univ. of Tennessee, --
  60. * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
  61. * December 2016
  62. *
  63. * .. Scalar Arguments ..
  64. CHARACTER*3 PATH
  65. INTEGER NUNIT
  66. * ..
  67. *
  68. * =====================================================================
  69. *
  70. * .. Parameters ..
  71. INTEGER NMAX
  72. PARAMETER ( NMAX = 4 )
  73. * ..
  74. * .. Local Scalars ..
  75. CHARACTER*2 C2
  76. INTEGER I, INFO, J
  77. REAL ANRM, RCOND
  78. * ..
  79. * .. Local Arrays ..
  80. INTEGER IW( NMAX )
  81. REAL A( NMAX, NMAX ), AF( NMAX, NMAX ), B( NMAX ),
  82. $ R1( NMAX ), R2( NMAX ), W( 3*NMAX ), X( NMAX )
  83. * ..
  84. * .. External Functions ..
  85. LOGICAL LSAMEN
  86. EXTERNAL LSAMEN
  87. * ..
  88. * .. External Subroutines ..
  89. EXTERNAL ALAESM, CHKXER, SPBCON, SPBEQU, SPBRFS, SPBTF2,
  90. $ SPBTRF, SPBTRS, SPOCON, SPOEQU, SPORFS, SPOTF2,
  91. $ SPOTRF, SPOTRI, SPOTRS, SPPCON, SPPEQU, SPPRFS,
  92. $ SPPTRF, SPPTRI, SPPTRS
  93. * ..
  94. * .. Scalars in Common ..
  95. LOGICAL LERR, OK
  96. CHARACTER*32 SRNAMT
  97. INTEGER INFOT, NOUT
  98. * ..
  99. * .. Common blocks ..
  100. COMMON / INFOC / INFOT, NOUT, OK, LERR
  101. COMMON / SRNAMC / SRNAMT
  102. * ..
  103. * .. Intrinsic Functions ..
  104. INTRINSIC REAL
  105. * ..
  106. * .. Executable Statements ..
  107. *
  108. NOUT = NUNIT
  109. WRITE( NOUT, FMT = * )
  110. C2 = PATH( 2: 3 )
  111. *
  112. * Set the variables to innocuous values.
  113. *
  114. DO 20 J = 1, NMAX
  115. DO 10 I = 1, NMAX
  116. A( I, J ) = 1. / REAL( I+J )
  117. AF( I, J ) = 1. / REAL( I+J )
  118. 10 CONTINUE
  119. B( J ) = 0.
  120. R1( J ) = 0.
  121. R2( J ) = 0.
  122. W( J ) = 0.
  123. X( J ) = 0.
  124. IW( J ) = J
  125. 20 CONTINUE
  126. OK = .TRUE.
  127. *
  128. IF( LSAMEN( 2, C2, 'PO' ) ) THEN
  129. *
  130. * Test error exits of the routines that use the Cholesky
  131. * decomposition of a symmetric positive definite matrix.
  132. *
  133. * SPOTRF
  134. *
  135. SRNAMT = 'SPOTRF'
  136. INFOT = 1
  137. CALL SPOTRF( '/', 0, A, 1, INFO )
  138. CALL CHKXER( 'SPOTRF', INFOT, NOUT, LERR, OK )
  139. INFOT = 2
  140. CALL SPOTRF( 'U', -1, A, 1, INFO )
  141. CALL CHKXER( 'SPOTRF', INFOT, NOUT, LERR, OK )
  142. INFOT = 4
  143. CALL SPOTRF( 'U', 2, A, 1, INFO )
  144. CALL CHKXER( 'SPOTRF', INFOT, NOUT, LERR, OK )
  145. *
  146. * SPOTF2
  147. *
  148. SRNAMT = 'SPOTF2'
  149. INFOT = 1
  150. CALL SPOTF2( '/', 0, A, 1, INFO )
  151. CALL CHKXER( 'SPOTF2', INFOT, NOUT, LERR, OK )
  152. INFOT = 2
  153. CALL SPOTF2( 'U', -1, A, 1, INFO )
  154. CALL CHKXER( 'SPOTF2', INFOT, NOUT, LERR, OK )
  155. INFOT = 4
  156. CALL SPOTF2( 'U', 2, A, 1, INFO )
  157. CALL CHKXER( 'SPOTF2', INFOT, NOUT, LERR, OK )
  158. *
  159. * SPOTRI
  160. *
  161. SRNAMT = 'SPOTRI'
  162. INFOT = 1
  163. CALL SPOTRI( '/', 0, A, 1, INFO )
  164. CALL CHKXER( 'SPOTRI', INFOT, NOUT, LERR, OK )
  165. INFOT = 2
  166. CALL SPOTRI( 'U', -1, A, 1, INFO )
  167. CALL CHKXER( 'SPOTRI', INFOT, NOUT, LERR, OK )
  168. INFOT = 4
  169. CALL SPOTRI( 'U', 2, A, 1, INFO )
  170. CALL CHKXER( 'SPOTRI', INFOT, NOUT, LERR, OK )
  171. *
  172. * SPOTRS
  173. *
  174. SRNAMT = 'SPOTRS'
  175. INFOT = 1
  176. CALL SPOTRS( '/', 0, 0, A, 1, B, 1, INFO )
  177. CALL CHKXER( 'SPOTRS', INFOT, NOUT, LERR, OK )
  178. INFOT = 2
  179. CALL SPOTRS( 'U', -1, 0, A, 1, B, 1, INFO )
  180. CALL CHKXER( 'SPOTRS', INFOT, NOUT, LERR, OK )
  181. INFOT = 3
  182. CALL SPOTRS( 'U', 0, -1, A, 1, B, 1, INFO )
  183. CALL CHKXER( 'SPOTRS', INFOT, NOUT, LERR, OK )
  184. INFOT = 5
  185. CALL SPOTRS( 'U', 2, 1, A, 1, B, 2, INFO )
  186. CALL CHKXER( 'SPOTRS', INFOT, NOUT, LERR, OK )
  187. INFOT = 7
  188. CALL SPOTRS( 'U', 2, 1, A, 2, B, 1, INFO )
  189. CALL CHKXER( 'SPOTRS', INFOT, NOUT, LERR, OK )
  190. *
  191. * SPORFS
  192. *
  193. SRNAMT = 'SPORFS'
  194. INFOT = 1
  195. CALL SPORFS( '/', 0, 0, A, 1, AF, 1, B, 1, X, 1, R1, R2, W, IW,
  196. $ INFO )
  197. CALL CHKXER( 'SPORFS', INFOT, NOUT, LERR, OK )
  198. INFOT = 2
  199. CALL SPORFS( 'U', -1, 0, A, 1, AF, 1, B, 1, X, 1, R1, R2, W,
  200. $ IW, INFO )
  201. CALL CHKXER( 'SPORFS', INFOT, NOUT, LERR, OK )
  202. INFOT = 3
  203. CALL SPORFS( 'U', 0, -1, A, 1, AF, 1, B, 1, X, 1, R1, R2, W,
  204. $ IW, INFO )
  205. CALL CHKXER( 'SPORFS', INFOT, NOUT, LERR, OK )
  206. INFOT = 5
  207. CALL SPORFS( 'U', 2, 1, A, 1, AF, 2, B, 2, X, 2, R1, R2, W, IW,
  208. $ INFO )
  209. CALL CHKXER( 'SPORFS', INFOT, NOUT, LERR, OK )
  210. INFOT = 7
  211. CALL SPORFS( 'U', 2, 1, A, 2, AF, 1, B, 2, X, 2, R1, R2, W, IW,
  212. $ INFO )
  213. CALL CHKXER( 'SPORFS', INFOT, NOUT, LERR, OK )
  214. INFOT = 9
  215. CALL SPORFS( 'U', 2, 1, A, 2, AF, 2, B, 1, X, 2, R1, R2, W, IW,
  216. $ INFO )
  217. CALL CHKXER( 'SPORFS', INFOT, NOUT, LERR, OK )
  218. INFOT = 11
  219. CALL SPORFS( 'U', 2, 1, A, 2, AF, 2, B, 2, X, 1, R1, R2, W, IW,
  220. $ INFO )
  221. CALL CHKXER( 'SPORFS', INFOT, NOUT, LERR, OK )
  222. *
  223. * SPOCON
  224. *
  225. SRNAMT = 'SPOCON'
  226. INFOT = 1
  227. CALL SPOCON( '/', 0, A, 1, ANRM, RCOND, W, IW, INFO )
  228. CALL CHKXER( 'SPOCON', INFOT, NOUT, LERR, OK )
  229. INFOT = 2
  230. CALL SPOCON( 'U', -1, A, 1, ANRM, RCOND, W, IW, INFO )
  231. CALL CHKXER( 'SPOCON', INFOT, NOUT, LERR, OK )
  232. INFOT = 4
  233. CALL SPOCON( 'U', 2, A, 1, ANRM, RCOND, W, IW, INFO )
  234. CALL CHKXER( 'SPOCON', INFOT, NOUT, LERR, OK )
  235. *
  236. * SPOEQU
  237. *
  238. SRNAMT = 'SPOEQU'
  239. INFOT = 1
  240. CALL SPOEQU( -1, A, 1, R1, RCOND, ANRM, INFO )
  241. CALL CHKXER( 'SPOEQU', INFOT, NOUT, LERR, OK )
  242. INFOT = 3
  243. CALL SPOEQU( 2, A, 1, R1, RCOND, ANRM, INFO )
  244. CALL CHKXER( 'SPOEQU', INFOT, NOUT, LERR, OK )
  245. *
  246. ELSE IF( LSAMEN( 2, C2, 'PP' ) ) THEN
  247. *
  248. * Test error exits of the routines that use the Cholesky
  249. * decomposition of a symmetric positive definite packed matrix.
  250. *
  251. * SPPTRF
  252. *
  253. SRNAMT = 'SPPTRF'
  254. INFOT = 1
  255. CALL SPPTRF( '/', 0, A, INFO )
  256. CALL CHKXER( 'SPPTRF', INFOT, NOUT, LERR, OK )
  257. INFOT = 2
  258. CALL SPPTRF( 'U', -1, A, INFO )
  259. CALL CHKXER( 'SPPTRF', INFOT, NOUT, LERR, OK )
  260. *
  261. * SPPTRI
  262. *
  263. SRNAMT = 'SPPTRI'
  264. INFOT = 1
  265. CALL SPPTRI( '/', 0, A, INFO )
  266. CALL CHKXER( 'SPPTRI', INFOT, NOUT, LERR, OK )
  267. INFOT = 2
  268. CALL SPPTRI( 'U', -1, A, INFO )
  269. CALL CHKXER( 'SPPTRI', INFOT, NOUT, LERR, OK )
  270. *
  271. * SPPTRS
  272. *
  273. SRNAMT = 'SPPTRS'
  274. INFOT = 1
  275. CALL SPPTRS( '/', 0, 0, A, B, 1, INFO )
  276. CALL CHKXER( 'SPPTRS', INFOT, NOUT, LERR, OK )
  277. INFOT = 2
  278. CALL SPPTRS( 'U', -1, 0, A, B, 1, INFO )
  279. CALL CHKXER( 'SPPTRS', INFOT, NOUT, LERR, OK )
  280. INFOT = 3
  281. CALL SPPTRS( 'U', 0, -1, A, B, 1, INFO )
  282. CALL CHKXER( 'SPPTRS', INFOT, NOUT, LERR, OK )
  283. INFOT = 6
  284. CALL SPPTRS( 'U', 2, 1, A, B, 1, INFO )
  285. CALL CHKXER( 'SPPTRS', INFOT, NOUT, LERR, OK )
  286. *
  287. * SPPRFS
  288. *
  289. SRNAMT = 'SPPRFS'
  290. INFOT = 1
  291. CALL SPPRFS( '/', 0, 0, A, AF, B, 1, X, 1, R1, R2, W, IW,
  292. $ INFO )
  293. CALL CHKXER( 'SPPRFS', INFOT, NOUT, LERR, OK )
  294. INFOT = 2
  295. CALL SPPRFS( 'U', -1, 0, A, AF, B, 1, X, 1, R1, R2, W, IW,
  296. $ INFO )
  297. CALL CHKXER( 'SPPRFS', INFOT, NOUT, LERR, OK )
  298. INFOT = 3
  299. CALL SPPRFS( 'U', 0, -1, A, AF, B, 1, X, 1, R1, R2, W, IW,
  300. $ INFO )
  301. CALL CHKXER( 'SPPRFS', INFOT, NOUT, LERR, OK )
  302. INFOT = 7
  303. CALL SPPRFS( 'U', 2, 1, A, AF, B, 1, X, 2, R1, R2, W, IW,
  304. $ INFO )
  305. CALL CHKXER( 'SPPRFS', INFOT, NOUT, LERR, OK )
  306. INFOT = 9
  307. CALL SPPRFS( 'U', 2, 1, A, AF, B, 2, X, 1, R1, R2, W, IW,
  308. $ INFO )
  309. CALL CHKXER( 'SPPRFS', INFOT, NOUT, LERR, OK )
  310. *
  311. * SPPCON
  312. *
  313. SRNAMT = 'SPPCON'
  314. INFOT = 1
  315. CALL SPPCON( '/', 0, A, ANRM, RCOND, W, IW, INFO )
  316. CALL CHKXER( 'SPPCON', INFOT, NOUT, LERR, OK )
  317. INFOT = 2
  318. CALL SPPCON( 'U', -1, A, ANRM, RCOND, W, IW, INFO )
  319. CALL CHKXER( 'SPPCON', INFOT, NOUT, LERR, OK )
  320. *
  321. * SPPEQU
  322. *
  323. SRNAMT = 'SPPEQU'
  324. INFOT = 1
  325. CALL SPPEQU( '/', 0, A, R1, RCOND, ANRM, INFO )
  326. CALL CHKXER( 'SPPEQU', INFOT, NOUT, LERR, OK )
  327. INFOT = 2
  328. CALL SPPEQU( 'U', -1, A, R1, RCOND, ANRM, INFO )
  329. CALL CHKXER( 'SPPEQU', INFOT, NOUT, LERR, OK )
  330. *
  331. ELSE IF( LSAMEN( 2, C2, 'PB' ) ) THEN
  332. *
  333. * Test error exits of the routines that use the Cholesky
  334. * decomposition of a symmetric positive definite band matrix.
  335. *
  336. * SPBTRF
  337. *
  338. SRNAMT = 'SPBTRF'
  339. INFOT = 1
  340. CALL SPBTRF( '/', 0, 0, A, 1, INFO )
  341. CALL CHKXER( 'SPBTRF', INFOT, NOUT, LERR, OK )
  342. INFOT = 2
  343. CALL SPBTRF( 'U', -1, 0, A, 1, INFO )
  344. CALL CHKXER( 'SPBTRF', INFOT, NOUT, LERR, OK )
  345. INFOT = 3
  346. CALL SPBTRF( 'U', 1, -1, A, 1, INFO )
  347. CALL CHKXER( 'SPBTRF', INFOT, NOUT, LERR, OK )
  348. INFOT = 5
  349. CALL SPBTRF( 'U', 2, 1, A, 1, INFO )
  350. CALL CHKXER( 'SPBTRF', INFOT, NOUT, LERR, OK )
  351. *
  352. * SPBTF2
  353. *
  354. SRNAMT = 'SPBTF2'
  355. INFOT = 1
  356. CALL SPBTF2( '/', 0, 0, A, 1, INFO )
  357. CALL CHKXER( 'SPBTF2', INFOT, NOUT, LERR, OK )
  358. INFOT = 2
  359. CALL SPBTF2( 'U', -1, 0, A, 1, INFO )
  360. CALL CHKXER( 'SPBTF2', INFOT, NOUT, LERR, OK )
  361. INFOT = 3
  362. CALL SPBTF2( 'U', 1, -1, A, 1, INFO )
  363. CALL CHKXER( 'SPBTF2', INFOT, NOUT, LERR, OK )
  364. INFOT = 5
  365. CALL SPBTF2( 'U', 2, 1, A, 1, INFO )
  366. CALL CHKXER( 'SPBTF2', INFOT, NOUT, LERR, OK )
  367. *
  368. * SPBTRS
  369. *
  370. SRNAMT = 'SPBTRS'
  371. INFOT = 1
  372. CALL SPBTRS( '/', 0, 0, 0, A, 1, B, 1, INFO )
  373. CALL CHKXER( 'SPBTRS', INFOT, NOUT, LERR, OK )
  374. INFOT = 2
  375. CALL SPBTRS( 'U', -1, 0, 0, A, 1, B, 1, INFO )
  376. CALL CHKXER( 'SPBTRS', INFOT, NOUT, LERR, OK )
  377. INFOT = 3
  378. CALL SPBTRS( 'U', 1, -1, 0, A, 1, B, 1, INFO )
  379. CALL CHKXER( 'SPBTRS', INFOT, NOUT, LERR, OK )
  380. INFOT = 4
  381. CALL SPBTRS( 'U', 0, 0, -1, A, 1, B, 1, INFO )
  382. CALL CHKXER( 'SPBTRS', INFOT, NOUT, LERR, OK )
  383. INFOT = 6
  384. CALL SPBTRS( 'U', 2, 1, 1, A, 1, B, 1, INFO )
  385. CALL CHKXER( 'SPBTRS', INFOT, NOUT, LERR, OK )
  386. INFOT = 8
  387. CALL SPBTRS( 'U', 2, 0, 1, A, 1, B, 1, INFO )
  388. CALL CHKXER( 'SPBTRS', INFOT, NOUT, LERR, OK )
  389. *
  390. * SPBRFS
  391. *
  392. SRNAMT = 'SPBRFS'
  393. INFOT = 1
  394. CALL SPBRFS( '/', 0, 0, 0, A, 1, AF, 1, B, 1, X, 1, R1, R2, W,
  395. $ IW, INFO )
  396. CALL CHKXER( 'SPBRFS', INFOT, NOUT, LERR, OK )
  397. INFOT = 2
  398. CALL SPBRFS( 'U', -1, 0, 0, A, 1, AF, 1, B, 1, X, 1, R1, R2, W,
  399. $ IW, INFO )
  400. CALL CHKXER( 'SPBRFS', INFOT, NOUT, LERR, OK )
  401. INFOT = 3
  402. CALL SPBRFS( 'U', 1, -1, 0, A, 1, AF, 1, B, 1, X, 1, R1, R2, W,
  403. $ IW, INFO )
  404. CALL CHKXER( 'SPBRFS', INFOT, NOUT, LERR, OK )
  405. INFOT = 4
  406. CALL SPBRFS( 'U', 0, 0, -1, A, 1, AF, 1, B, 1, X, 1, R1, R2, W,
  407. $ IW, INFO )
  408. CALL CHKXER( 'SPBRFS', INFOT, NOUT, LERR, OK )
  409. INFOT = 6
  410. CALL SPBRFS( 'U', 2, 1, 1, A, 1, AF, 2, B, 2, X, 2, R1, R2, W,
  411. $ IW, INFO )
  412. CALL CHKXER( 'SPBRFS', INFOT, NOUT, LERR, OK )
  413. INFOT = 8
  414. CALL SPBRFS( 'U', 2, 1, 1, A, 2, AF, 1, B, 2, X, 2, R1, R2, W,
  415. $ IW, INFO )
  416. CALL CHKXER( 'SPBRFS', INFOT, NOUT, LERR, OK )
  417. INFOT = 10
  418. CALL SPBRFS( 'U', 2, 0, 1, A, 1, AF, 1, B, 1, X, 2, R1, R2, W,
  419. $ IW, INFO )
  420. CALL CHKXER( 'SPBRFS', INFOT, NOUT, LERR, OK )
  421. INFOT = 12
  422. CALL SPBRFS( 'U', 2, 0, 1, A, 1, AF, 1, B, 2, X, 1, R1, R2, W,
  423. $ IW, INFO )
  424. CALL CHKXER( 'SPBRFS', INFOT, NOUT, LERR, OK )
  425. *
  426. * SPBCON
  427. *
  428. SRNAMT = 'SPBCON'
  429. INFOT = 1
  430. CALL SPBCON( '/', 0, 0, A, 1, ANRM, RCOND, W, IW, INFO )
  431. CALL CHKXER( 'SPBCON', INFOT, NOUT, LERR, OK )
  432. INFOT = 2
  433. CALL SPBCON( 'U', -1, 0, A, 1, ANRM, RCOND, W, IW, INFO )
  434. CALL CHKXER( 'SPBCON', INFOT, NOUT, LERR, OK )
  435. INFOT = 3
  436. CALL SPBCON( 'U', 1, -1, A, 1, ANRM, RCOND, W, IW, INFO )
  437. CALL CHKXER( 'SPBCON', INFOT, NOUT, LERR, OK )
  438. INFOT = 5
  439. CALL SPBCON( 'U', 2, 1, A, 1, ANRM, RCOND, W, IW, INFO )
  440. CALL CHKXER( 'SPBCON', INFOT, NOUT, LERR, OK )
  441. *
  442. * SPBEQU
  443. *
  444. SRNAMT = 'SPBEQU'
  445. INFOT = 1
  446. CALL SPBEQU( '/', 0, 0, A, 1, R1, RCOND, ANRM, INFO )
  447. CALL CHKXER( 'SPBEQU', INFOT, NOUT, LERR, OK )
  448. INFOT = 2
  449. CALL SPBEQU( 'U', -1, 0, A, 1, R1, RCOND, ANRM, INFO )
  450. CALL CHKXER( 'SPBEQU', INFOT, NOUT, LERR, OK )
  451. INFOT = 3
  452. CALL SPBEQU( 'U', 1, -1, A, 1, R1, RCOND, ANRM, INFO )
  453. CALL CHKXER( 'SPBEQU', INFOT, NOUT, LERR, OK )
  454. INFOT = 5
  455. CALL SPBEQU( 'U', 2, 1, A, 1, R1, RCOND, ANRM, INFO )
  456. CALL CHKXER( 'SPBEQU', INFOT, NOUT, LERR, OK )
  457. END IF
  458. *
  459. * Print a summary line.
  460. *
  461. CALL ALAESM( PATH, OK, NOUT )
  462. *
  463. RETURN
  464. *
  465. * End of SERRPO
  466. *
  467. END