60 INTEGER(mpi),
INTENT(IN) :: n
61 REAL(mps),
INTENT(IN) :: x(n)
62 INTEGER(mpi),
PARAMETER :: nn=6
64 CHARACTER (LEN=66):: px(10)
65 CHARACTER (LEN=66)::ch(10)*1
67 DATA ch/
'0',
'1',
'2',
'3',
'4',
'5',
'6',
'7',
'8',
'9'/
79 IF(abs(x(j)) > xm)
THEN
83 IF(x(j) < 0.0) px(1)(6+j:6+j)=
'-'
86 IF(xm == 0.0.OR.jl <= 0)
RETURN
89 kn=min(6,max(2,iabs(nn)))
90 ke=int(log10(xm*1.0001),
mpi)
101 ij=nint(fac*abs(x(j)),
mpi)
108 IF(in /= 0.AND.im == 0) im=ia-i+1
109 px(ia-i)(6+j:6+j)=ch(in+1)
141 IF(x(j) /= 0.0.AND.px(jm-1)(6+j:6+j) ==
' ') px(jm-1)(6+j:6+j)=
'0'
147 DO j=1,((jl+9)/10)*10
148 IF(px(jm-1)(6+j:6+j) ==
' ') px(jm-1)(6+j:6+j)=
'_'
149 IF(mod(j,2) /= 1)
THEN
151 px(jm+1)(6+j:6+j)=ch(i)
154 px(jm)(6+j:6+j)=ch(i)
161 IF(x(j) == x(mx))
THEN
170 WRITE(*,*) px(j)(1:lc)
192 INTEGER(mpi) :: nhist
194 INTEGER(mpi),
INTENT(IN) :: n
195 INTEGER(mpi),
INTENT(IN) :: list(n)
207 IF(i+l <= n) nhist=nhist+list(i+l)
235 INTEGER(mpi),
INTENT(IN) :: n
236 INTEGER(mpi),
INTENT(IN) :: x(n)
243 IF(i+l <= n) dsum=dsum+x(i+l)
267 REAL(mps),
INTENT(IN) :: xa
268 REAL(mps),
INTENT(IN) :: xb
272 sc(i)=(real(7-i,mps)*xa+real(i-1,mps)*xc)/6.0
integer, parameter mpi
integer
subroutine pfvert(n, x)
Vertical print of floating point data.
subroutine pzvert(n, x)
Print vertical.
subroutine pivert(n, list)
Vertical print of integer data.
subroutine psvert(xa, xb)
Print scale.