3
c ----- print out a real triangular matrix -----
5
C$Id: prtri.f,v 1.2 1995-02-02 23:24:24 d3g681 Exp $
6
implicit double precision (a-h, o-z)
14
if (imax .gt. n) imax = n
16
write (iw,8028) (i,i = imin,imax)
21
m = max0(i,j)*(max0(i,j)-1)/2 + min0(i,j)
24
write (iw,8048) j,(dd(i),i = 1,k)
26
if (imax .lt. n) go to 100
29
8028 format(6x,6(4x,i4,4x))
30
8048 format(i5,1x,6f12.6)