chkmatdat()

subroutine chkmatdat	(	integer	nout,
		character*8	infile,
		logical	tstflag,
		integer	nmat,
		integer, dimension(nmat)	m0,
		integer, dimension(nmat)	n0,
		integer, dimension(nmat)	ldas0,
		integer, dimension(nmat)	ldad0,
		integer, dimension(nmat)	ldi0
	)

Definition at line 1789 of file blacstest.f.

*
*  -- BLACS tester (version 1.0) --
*  University of Tennessee
*  December 15, 1994
*
*
*     .. Scalar Arguments ..
      LOGICAL TSTFLAG
      INTEGER NOUT, NMAT
*     ..
*     .. Array Arguments ..
      CHARACTER*8 INFILE
      INTEGER M0(NMAT), N0(NMAT), LDAS0(NMAT), LDAD0(NMAT), LDI0(NMAT)
*     ..
*   Purpose
*  =======
*  CHKMATDAT: Checks that matrix data is correct.
*
*  Arguments
*  =========
*  NOUT    (input) INTEGER
*          The device number to write output to.
*
*  INFILE  (input) CHARACTER*8
*          The name of the input file where matrix values came from.
*
*  TSTFLAG (input) LOGICAL
*          Whether to test RCFLAG (LDI) values or not.
*
*  NMAT    (input) INTEGER
*          The number of matrices to be tested.
*
*  M0      (input) INTEGER array of dimension (NMAT)
*          Values of M to be tested.
*
*  M0      (input) INTEGER array of dimension (NMAT)
*          Values of M to be tested.
*
*  N0      (input) INTEGER array of dimension (NMAT)
*          Values of N to be tested.
*
*  LDAS0   (input) INTEGER array of dimension (NMAT)
*          Values of LDAS (leading dimension of A on source process)
*          to be tested.
*
*  LDAD0   (input) INTEGER array of dimension (NMAT)
*          Values of LDAD (leading dimension of A on destination
*          process) to be tested.
*
*  ====================================================================
*
*     .. Local Scalars ..
      LOGICAL MATOK
      INTEGER I
*     ..
*     .. Executable Statements ..
      matok = .true.
      DO 10 i = 1, nmat
         IF( m0(i) .LT. 0 ) THEN
            WRITE(nout,1000) infile, 'M', m0(i)
            matok = .false.
         ELSE IF( n0(i) .LT. 0 ) THEN
            WRITE(nout,1000) infile, 'N', n0(i)
            matok = .false.
         ELSE IF( ldas0(i) .LT. m0(i) ) THEN
            WRITE(nout,2000) infile, 'LDASRC', ldas0(i), m0(i)
            matok = .false.
         ELSE IF( ldad0(i) .LT. m0(i) ) THEN
            WRITE(nout,2000) infile, 'LDADST', ldad0(i), m0(i)
            matok = .false.
         ELSE IF( tstflag ) THEN
            IF( (ldi0(i).LT.m0(i)) .AND. (ldi0(i).NE.-1) ) THEN
               WRITE(nout,2000) infile, 'RCFLAG', ldi0(i), m0(i)
               matok = .false.
            END IF
         END IF
   10 CONTINUE
*
      IF( .NOT.matok ) THEN
         IF( nout .NE. 6 .AND. nout .NE. 0 ) CLOSE(nout)
         CALL blacs_abort(-1, 1)
      END IF
*
 1000 FORMAT(a8,' INPUT ERROR: Illegal ',a1,'; value=',i6,'.')
 2000 FORMAT(a8,' INPUT ERROR: Illegal ',a6,'; value=',i6,', but M=',i6)
*
      RETURN

Here is the caller graph for this function: