MINICERN/packlib/kernlib/kernnum/f011fort/tmprnt.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/02/15 17:49:04  mclareni
   6 * Kernlib
   7 *
   8 *
   9 #include "kernnum/pilot.h"
  10           SUBROUTINE          TMPRNT(NAME,N,IDIM,K)
  11           CHARACTER*6         NAME
  12           LOGICAL             MFLAG,    RFLAG
  13           IF(NAME(2:2) .EQ. 'S') THEN
  14              CALL KERMTR('F012.1',LGFILE,MFLAG,RFLAG)
  15           ELSE
  16              CALL KERMTR('F011.1',LGFILE,MFLAG,RFLAG)
  17           ENDIF
  18           IF(NAME(3:6) .EQ. 'FEQN') ASSIGN 1002 TO IFMT
  19           IF(NAME(3:6) .NE. 'FEQN') ASSIGN 1001 TO IFMT
  20           IF(MFLAG) THEN
  21              IF(LGFILE .EQ. 0) THEN
  22                 IF(NAME(3:6) .EQ. 'FEQN') THEN
  23                    WRITE(*,IFMT) NAME, N, IDIM, K
  24                 ELSE
  25                    WRITE(*,IFMT) NAME, N, IDIM
  26                 ENDIF
  27              ELSE
  28                 IF(NAME(3:6) .EQ. 'FEQN') THEN
  29                    WRITE(LGFILE,IFMT) NAME, N, IDIM, K
  30                 ELSE
  31                    WRITE(LGFILE,IFMT) NAME, N, IDIM
  32                 ENDIF
  33              ENDIF
  34           ENDIF
  35           IF(.NOT. RFLAG) CALL ABEND
  36           RETURN
  37 1001      FORMAT(7X, 31H PARAMETER ERROR IN SUBROUTINE , A6,
  38      +             27H ... (N.LT.1 OR IDIM.LT.N).,
  39      +             5X, 3HN =, I4, 5X, 6HIDIM =, I4, 1H. )
  40 1002      FORMAT(7X, 31H PARAMETER ERROR IN SUBROUTINE , A6,
  41      +             37H ... (N.LT.1 OR IDIM.LT.N OR K.LT.1).,
  42      +             5X, 3HN =, I4, 5X, 6HIDIM =, I4, 5X, 3HK =, I4,1H.)
  43           END