pilaenv.f

Go to the documentation of this file.

      INTEGER FUNCTION pilaenv( ICTXT, PREC )
*
*  -- PBLAS auxiliary routine (version 2.0) --
*     University of Tennessee, Knoxville, Oak Ridge National Laboratory,
*     and University of California, Berkeley.
*     April 1, 1998
*
*     .. Scalar Arguments ..
      INTEGER            ictxt
      CHARACTER*1        prec
*     ..
*
*  Purpose
*  =======
*
*  PILAENV  returns  the  positive integer value of the logical blocking
*  size. This value is machine and precision specific. This version pro-
*  vides a logical blocking size which should give good but  not optimal
*  performance on many  of the  currently  available  distributed-memory
*  concurrent computers.  Users are encouraged to modify this subroutine
*  to set this tuning parameter for their particular machine.
*
*  Arguments
*  =========
*
*  ICTXT   (local input) INTEGER
*          On entry,  ICTXT  specifies the BLACS context handle, indica-
*          ting the global  context of the operation. The context itself
*          is global, but the value of ICTXT is local.
*
*  PREC    (global input) CHARACTER*1
*          On input, PREC specifies the precision for which the  logical
*          block size should be returned as follows:
*             PREC = 'S' or 's' single precision real,
*             PREC = 'D' or 'd' double precision real,
*             PREC = 'C' or 'c' single precision complex,
*             PREC = 'Z' or 'z' double precision complex,
*             PREC = 'I' or 'i' integer.
*
*  Notes
*  =====
*
*  Before modifying this routine to tune the library performance on your
*  system, be aware of the following:
*
*  1) The value this function returns must be STRICTLY LARGER THAN ZERO,
*
*  2) If you are planning to link your program with different  instances
*  of the library, (for example on a heterogeneous  machine),  you  MUST
*  compile each instance of the library with the  EXACT SAME  version of
*  this routine for obvious inter-operability reasons.
*
*  -- Written on April 1, 1998 by
*     Antoine Petitet, University  of  Tennessee, Knoxville 37996, USA.
*
*  =====================================================================
*
*     .. External Functions ..
      LOGICAL            lsame
      EXTERNAL           lsame
*     ..
*     .. Executable Statements ..
*
      IF( lsame( prec, 'S' ) ) THEN
*
*        Single precision real logical block size
*
         pilaenv = 32
*
      ELSE IF( lsame( prec, 'D' ) ) THEN
*
*        Double precision real logical block size
*
         pilaenv = 32
*
      ELSE IF( lsame( prec, 'C' ) ) THEN
*
*        Single precision complex logical block size
*
         pilaenv = 32
*
      ELSE IF( lsame( prec, 'Z' ) ) THEN
*
*        Double precision complex logical block size
*
         pilaenv = 32
*
      ELSE IF( lsame( prec, 'I' ) ) THEN
*
*        Integer logical block size
*
         pilaenv = 32
*
      ELSE
*
*        Probably unused
*
         pilaenv = 32
*
      END IF
*
      RETURN
*
*     End of PILAENV
*
      END