EpetraExt Development
Loading...
Searching...
No Matches
fnrsum.f
Go to the documentation of this file.
1 subroutine fnrsum ( fstcmp, lstcmp, ccmstr, rcmstr, output )
2
3c ==================================================================
4c ==================================================================
5c ==== fnrsum -- print fine summary of fine structure ====
6c ==================================================================
7c ==================================================================
8
9c created by john lewis, boeing computer services, sept. 17, 1990
10
11 integer fstcmp, lstcmp, ccmstr (*), rcmstr (*), output
12
13 integer i, cmpcol, cmpnum, cmprow
14
15c ==================================================================
16
17 cmpnum = 1
18
19 do 100 i = fstcmp, lstcmp
20
21 cmpcol = ccmstr(i+1) - ccmstr(i)
22 cmprow = rcmstr(i+1) - rcmstr(i)
23
24 write (output, '(15x, i12, 2i10)') cmpnum, cmprow, cmpcol
25 cmpnum = cmpnum+1
26
27 100 continue
28
29 return
30 end
31
subroutine fnrsum(fstcmp, lstcmp, ccmstr, rcmstr, output)
Definition: fnrsum.f:2