EpetraExt  Development
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Groups Pages
fnrsum.f
Go to the documentation of this file.
1  subroutine fnrsum ( fstcmp, lstcmp, ccmstr, rcmstr, output )
2 
3 c ==================================================================
4 c ==================================================================
5 c ==== fnrsum -- print fine summary of fine structure ====
6 c ==================================================================
7 c ==================================================================
8 
9 c 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 
15 c ==================================================================
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:1