*
* $Id: f010pr.F,v 1.1 2001/04/26 23:00:22 murat Exp $
*
* $Log: f010pr.F,v $
* Revision 1.1  2001/04/26 23:00:22  murat
* - port CTVMFT (starting from Craig's interface)
* - add first definition of e+e- conversion
*
* Revision 1.1.1.1  1996/02/15 17:48:49  mclareni
* Kernlib
*
*
c$$$ #include "kernnum/pilot.h"
      SUBROUTINE F010PR(NAME,N,IDIM,K,KPRNT)
      CHARACTER*6 NAME
      LOGICAL MFLAG,RFLAG
      integer  n, idim, k, kprnt
C
C     ******************************************************************
C
C     PRINT ROUTINE FOR PARAMETER ERRORS IN MATRIX SUBROUTINES $EQINV,
C     $EQN, $INV (WHERE $ IS A LETTER SPECIFYING THE ARITHMETIC TYPE).
C
C     NAME         (CHARACTER*6) NAME OF THE CALLING ROUTINE.
C
C     N,IDIM,K     PARAMETERS OF THE CALLING ROUTINE (WITH K=0 IF K IS
C                  NOT TO BE PRINTED).
C
C     KPRNT        PRINT FLAG FOR K (K IS NOT PRINTED IF KPRNT=0).
C
C     ******************************************************************
C
C  START.
c$$$      CALL KERMTR('F010.1',LGFILE,MFLAG,RFLAG)
c$$$      IF(MFLAG) THEN
c$$$         IF(LGFILE.EQ.0)  THEN
c$$$            IF(KPRNT.EQ.0) WRITE(*,2000) NAME,N,IDIM
c$$$            IF(KPRNT.NE.0) WRITE(*,2001) NAME,N,IDIM,K
c$$$         ELSE
c$$$            IF(KPRNT.EQ.0) WRITE(LGFILE,2000) NAME,N,IDIM
c$$$            IF(KPRNT.NE.0) WRITE(LGFILE,2001) NAME,N,IDIM,K
c$$$         ENDIF
c$$$      ENDIF
c$$$      IF(.NOT. RFLAG) CALL ABEND
c$$$      RETURN
c$$$C
c$$$ 2000 FORMAT( 7X, 11HSUBROUTINE , A6, 14H ... PARAMETER,
c$$$     *        29H ERROR (N.LT.1 OR N.GT.IDIM).,
c$$$     *        6X, 3HN =, I4, 6X, 6HIDIM =, I4, 1H. )
c$$$ 2001 FORMAT( 7X, 11HSUBROUTINE , A6, 14H ... PARAMETER,
c$$$     *        39H ERROR (N.LT.1 OR N.GT.IDIM OR K.LT.1).,
c$$$     *        6X, 3HN =, I4, 6X, 6HIDIM =, I4, 6X, 3HK =, I4, 1H. )
      END