ScaLAPACK 2.1  2.1
ScaLAPACK: Scalable Linear Algebra PACKage
pxerbla.f
Go to the documentation of this file.
1  SUBROUTINE pxerbla( ICTXT, SRNAME, INFO )
2 *
3 * -- ScaLAPACK auxiliary routine (version 2.0) --
4 * University of Tennessee, Knoxville, Oak Ridge National Laboratory,
5 * and University of California, Berkeley.
6 * April 1, 1998
7 *
8 * .. Scalar Arguments ..
9  INTEGER ICTXT, INFO
10 * ..
11 * .. Array Arguments ..
12  CHARACTER*(*) SRNAME
13 * ..
14 *
15 * Purpose
16 * =======
17 *
18 * PXERBLA is an error handler for the ScaLAPACK routines. It is called
19 * by a ScaLAPACK routine if an input parameter has an invalid value. A
20 * message is printed. Installers may consider modifying this routine in
21 * order to call system-specific exception-handling facilities.
22 *
23 * Arguments
24 * =========
25 *
26 * ICTXT (local input) INTEGER
27 * On entry, ICTXT specifies the BLACS context handle, indica-
28 * ting the global context of the operation. The context itself
29 * is global, but the value of ICTXT is local.
30 *
31 * SRNAME (global input) CHARACTER*(*)
32 * On entry, SRNAME specifies the name of the routine which cal-
33 * ling PXERBLA.
34 *
35 * INFO (global input) INTEGER
36 * On entry, INFO specifies the position of the invalid parame-
37 * ter in the parameter list of the calling routine.
38 *
39 * -- Written on April 1, 1998 by
40 * Antoine Petitet, University of Tennessee, Knoxville 37996, USA.
41 *
42 * =====================================================================
43 *
44 * .. Local Scalars ..
45  INTEGER MYCOL, MYROW, NPCOL, NPROW
46 * ..
47 * .. External Subroutines ..
48  EXTERNAL blacs_gridinfo
49 * ..
50 * .. Executable Statements ..
51 *
52  CALL blacs_gridinfo( ictxt, nprow, npcol, myrow, mycol )
53 *
54  WRITE( *, fmt = 9999 ) myrow, mycol, srname, info
55 *
56  9999 FORMAT( '{', i5, ',', i5, '}: On entry to ', a,
57  $ ' parameter number ', i4, ' had an illegal value' )
58 *
59  RETURN
60 *
61 * End of PXERBLA
62 *
63  END
pxerbla
subroutine pxerbla(ICTXT, SRNAME, INFO)
Definition: pxerbla.f:2