5 * Revision 1.1.1.1 1996/02/15 17:49:04 mclareni
9 #include "kernnum/pilot.h"
10 SUBROUTINE TMPRNT(NAME,N,IDIM,K)
13 IF(NAME(2:2) .EQ. 'S') THEN
14 CALL KERMTR('F012.1',LGFILE,MFLAG,RFLAG)
16 CALL KERMTR('F011.1',LGFILE,MFLAG,RFLAG)
18 IF(NAME(3:6) .EQ. 'FEQN') ASSIGN 1002 TO IFMT
19 IF(NAME(3:6) .NE. 'FEQN') ASSIGN 1001 TO IFMT
21 IF(LGFILE .EQ. 0) THEN
22 IF(NAME(3:6) .EQ. 'FEQN') THEN
23 WRITE(*,IFMT) NAME, N, IDIM, K
25 WRITE(*,IFMT) NAME, N, IDIM
28 IF(NAME(3:6) .EQ. 'FEQN') THEN
29 WRITE(LGFILE,IFMT) NAME, N, IDIM, K
31 WRITE(LGFILE,IFMT) NAME, N, IDIM
35 IF(.NOT. RFLAG) CALL ABEND
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.)