ibtsizeof()

integer function ibtsizeof

(

character*1

type

)

Definition at line 285 of file btprim.f.

*
*  -- BLACS tester (version 1.0) --
*  University of Tennessee
*  December 15, 1994
*
*     .. Scalar Arguments ..
      CHARACTER*1 TYPE
*     ..
*
*  Purpose
*  =======
*  IBTSIZEOF: Returns the size, in bytes, of the 5 data types.
*  If your platform has a different size for DOUBLE PRECISION, you must
*  change the parameter statement in BLACSTEST as well.
*
*  Arguments
*  =========
*  TYPE     (input) CHARACTER*1
*           The data type who's size is to be determined:
*           'I' : INTEGER
*           'S' : SINGLE PRECISION REAL
*           'D' : DOUBLE PRECISION REAL
*           'C' : SINGLE PRECISION COMPLEX
*           'Z' : DOUBLE PRECISION COMPLEX
*
* =====================================================================
*
*     .. External Functions ..
      LOGICAL  LSAME
      EXTERNAL lsame
*     ..
*     .. Include Files ..
      include 'mpif.h'
*     ..
*     .. Common Blocks ..
      COMMON /btmpi/ btcomm, ierr
      INTEGER BTCOMM, IERR
*     ..
*     .. Local Scalars ..
      INTEGER LENGTH
      LOGICAL INIT
      DATA init /.false./
*     ..
*     .. Executable Statements ..
*
*
*     Initialize MPI, if necessary
*
      IF (.NOT.init) THEN
         CALL mpi_initialized(init, ierr)
         IF (.NOT.init) CALL mpi_init(ierr)
         IF (ierr.NE.0) CALL btmpierr("mpi_init", ierr)
         init = .true.
      END IF
*
      IF( lsame(TYPE, 'I') ) THEN
         CALL mpi_type_size( mpi_integer, length, ierr )
         IF (ierr.NE.0) CALL btmpierr("MPI_TYPE_SIZE", ierr)
      ELSE IF( lsame(TYPE, 'S') ) THEN
         CALL mpi_type_size( mpi_real, length, ierr )
         IF (ierr.NE.0) CALL btmpierr("MPI_TYPE_SIZE", ierr)
      ELSE IF( lsame(TYPE, 'D') ) THEN
         CALL mpi_type_size( mpi_double_precision, length, ierr )
         IF (ierr.NE.0) CALL btmpierr("MPI_TYPE_SIZE", ierr)
      ELSE IF( lsame(TYPE, 'C') ) THEN
         CALL mpi_type_size( mpi_complex, length, ierr )
         IF (ierr.NE.0) CALL btmpierr("MPI_TYPE_SIZE", ierr)
      ELSE IF( lsame(TYPE, 'Z') ) THEN
         CALL mpi_type_size( mpi_double_complex, length, ierr )
         IF (ierr.NE.0) CALL btmpierr("MPI_TYPE_SIZE", ierr)
      END IF
      ibtsizeof = length
*
      RETURN

Here is the call graph for this function:

Here is the caller graph for this function: