MINICERN/packlib/kernlib/kernnum/f010fort/f010pr.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/02/15 17:48:49  mclareni
   6 * Kernlib
   7 *
   8 *
   9 #include "kernnum/pilot.h"
  10       SUBROUTINE F010PR(NAME,N,IDIM,K,KPRNT)
  11       CHARACTER*6 NAME
  12       LOGICAL MFLAG,RFLAG
  13 C
  14 C     ******************************************************************
  15 C
  16 C     PRINT ROUTINE FOR PARAMETER ERRORS IN MATRIX SUBROUTINES $EQINV,
  17 C     $EQN, $INV (WHERE $ IS A LETTER SPECIFYING THE ARITHMETIC TYPE).
  18 C
  19 C     NAME         (CHARACTER*6) NAME OF THE CALLING ROUTINE.
  20 C
  21 C     N,IDIM,K     PARAMETERS OF THE CALLING ROUTINE (WITH K=0 IF K IS
  22 C                  NOT TO BE PRINTED).
  23 C
  24 C     KPRNT        PRINT FLAG FOR K (K IS NOT PRINTED IF KPRNT=0).
  25 C
  26 C     ******************************************************************
  27 C
  28 C  START.
  29       CALL KERMTR('F010.1',LGFILE,MFLAG,RFLAG)
  30       IF(MFLAG) THEN
  31          IF(LGFILE.EQ.0)  THEN
  32             IF(KPRNT.EQ.0) WRITE(*,2000) NAME,N,IDIM
  33             IF(KPRNT.NE.0) WRITE(*,2001) NAME,N,IDIM,K
  34          ELSE
  35             IF(KPRNT.EQ.0) WRITE(LGFILE,2000) NAME,N,IDIM
  36             IF(KPRNT.NE.0) WRITE(LGFILE,2001) NAME,N,IDIM,K
  37          ENDIF
  38       ENDIF
  39       IF(.NOT. RFLAG) CALL ABEND
  40       RETURN
  41 C
  42  2000 FORMAT( 7X, 11HSUBROUTINE , A6, 14H ... PARAMETER,
  43      *        29H ERROR (N.LT.1 OR N.GT.IDIM).,
  44      *        6X, 3HN =, I4, 6X, 6HIDIM =, I4, 1H. )
  45  2001 FORMAT( 7X, 11HSUBROUTINE , A6, 14H ... PARAMETER,
  46      *        39H ERROR (N.LT.1 OR N.GT.IDIM OR K.LT.1).,
  47      *        6X, 3HN =, I4, 6X, 6HIDIM =, I4, 6X, 3HK =, I4, 1H. )
  48       END