pb_noabort()

integer function pb_noabort

(

integer

cinfo

)

Definition at line 1852 of file pblastim.f.

*
*  -- PBLAS test routine (version 2.0) --
*     University of Tennessee, Knoxville, Oak Ridge National Laboratory,
*     and University of California, Berkeley.
*     April 1, 1998
*
*     .. Scalar Arguments ..
      INTEGER            CINFO
*     ..
*
*  Purpose
*  =======
*
*  PB_NOABORT  transmits  the  info  parameter of a PBLAS routine to the
*  tester  and  tells the PBLAS error handler to avoid aborting on erro-
*  neous input arguments.
*
*  Notes
*  =====
*
*  This  routine  is  necessary  because of the CRAY C fortran interface
*  and  the  fact  that  the  usual PBLAS error handler routine has been
*  initially written in C.
*
*  -- Written on April 1, 1998 by
*     Antoine Petitet, University  of  Tennessee, Knoxville 37996, USA.
*
*  =====================================================================
*
*     .. Common Blocks ..
      INTEGER            INFO, NBLOG, NOUT
      LOGICAL            ABRTFLG
      COMMON             /infoc/info, nblog
      COMMON             /pberrorc/nout, abrtflg
*     ..
*     .. Executable Statements ..
*
      info = cinfo
      IF( abrtflg ) THEN
         pb_noabort = 0
      ELSE
         pb_noabort = 1
      END IF
*
      RETURN
*
*     End of PB_NOABORT
*

Here is the call graph for this function: