1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
*DECK PRINAM
SUBROUTINE PRINAM(T,A,N)
*
*-----------------------------------------------------------------------
*
* PRINT A REAL, INTEGER OR DOUBLE PRECISION ARRAY.
*
* INPUT PARAMETER:
* T : CHARACTER*6 NAME OF THE ARRAY.
* A : REAL ARRAY TO PRINT. DIMENSION A(N)
* IA : INTEGER ARRAY TO PRINT. DIMENSION IA(N)
* DA : DOUBLE PRECISION ARRAY TO PRINT. DIMENSION DA(N)
*
*-----------------------------------------------------------------------
*
CHARACTER*6 T
INTEGER N
REAL A(N)
PARAMETER (MAX5=5,MAX10=10,IOUT=6)
*
MN=MIN0(N,MAX5)
WRITE (IOUT,10) T,(A(I),I=1,MN)
10 FORMAT(1X,20('-')/1X,A6,1X,1P,5E13.6)
IF(N.LT.MAX5) GOTO 30
MN=MN+1
WRITE (IOUT,20) (A(I),I=MN,N)
20 FORMAT(8X,1P,5E13.6)
30 CONTINUE
RETURN
END SUBROUTINE PRINAM
C ------------------ P R I N I M
SUBROUTINE PRINIM(T,IA,N)
CHARACTER*6 T
INTEGER N,IA(N)
PARAMETER (MAX5=5,MAX10=10,IOUT=6)
*
MN=MIN0(N,MAX10)
WRITE (IOUT,40) T,(IA(I),I=1,MN)
40 FORMAT(1X,20('-')/1X,A6,1X,10I6)
IF(N.LT.MAX10) GOTO 60
MN=MN+1
WRITE (IOUT,50) (IA(I),I=MN,N)
50 FORMAT(8X,10I6)
60 CONTINUE
RETURN
END SUBROUTINE PRINIM
C ------------------ P R I N D M
SUBROUTINE PRINDM(T,DA,N)
CHARACTER*6 T
INTEGER N
DOUBLE PRECISION DA(N)
PARAMETER (MAX5=5,MAX10=10,IOUT=6)
*
MN=MIN0(N,MAX5)
WRITE (IOUT,70) T,(DA(I),I=1,MN)
70 FORMAT(1X,20('-')/1X,A6,1X,1P,5D13.6)
IF(N.LT.MAX5) GOTO 90
MN=MN+1
WRITE (IOUT,80) (DA(I),I=MN,N)
80 FORMAT(8X,1P,5D13.6)
90 CONTINUE
RETURN
END SUBROUTINE PRINDM
|
