allpass()

logical function allpass

(

logical

thistest

)

Definition at line 1880 of file blacstest.f.

*
*  -- BLACS tester (version 1.0) --
*  University of Tennessee
*  December 15, 1994
*
*
*     .. Scalar Arguments ..
      LOGICAL THISTEST
*     ..
*  Purpose
*  =======
*  ALLPASS: Returns whether all tests have passed so far.
*
*  =====================================================================
*
*     .. Local Scalars ..
      LOGICAL PASSHIST
*     ..
*     .. Save Statement ..
      SAVE passhist
*     ..
*     .. Data Statements ..
      DATA passhist /.true./
*     ..
*     .. Executable Statements ..
      passhist = (passhist .AND. thistest)
      allpass = passhist
*
      RETURN

Here is the call graph for this function:

Here is the caller graph for this function: