projects
/
unres.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
UNRES caly zmienione 21 na ntyp1
[unres.git]
/
source
/
wham
/
src-M
/
printmat.f
1
subroutine printmat(ldim,m,n,iout,key,a)
2
character*3 key(n)
3
double precision a(ldim,n)
4
do 1 i=1,n,8
5
nlim=min0(i+7,n)
6
write (iout,1000) (key(k),k=i,nlim)
7
write (iout,1020)
8
1000 format (/5x,8(6x,a3))
9
1020 format (/80(1h-)/)
10
do 2 j=1,n
11
write (iout,1010) key(j),(a(j,k),k=i,nlim)
12
2 continue
13
1 continue
14
1010 format (a3,2x,8(f9.4))
15
return
16
end