EpetraExt Development
fnrsum.f
Go to the documentation of this file.
00001       subroutine   fnrsum   ( fstcmp, lstcmp, ccmstr, rcmstr, output )
00002 
00003 c     ==================================================================
00004 c     ==================================================================
00005 c     ====  fnrsum -- print fine summary of fine structure          ====
00006 c     ==================================================================
00007 c     ==================================================================
00008 
00009 c     created by john lewis, boeing computer services, sept. 17, 1990
00010 
00011       integer       fstcmp, lstcmp, ccmstr (*), rcmstr (*), output
00012 
00013       integer       i, cmpcol, cmpnum, cmprow
00014 
00015 c     ==================================================================
00016 
00017       cmpnum = 1
00018 
00019       do 100 i = fstcmp, lstcmp
00020 
00021          cmpcol = ccmstr(i+1) - ccmstr(i)
00022          cmprow = rcmstr(i+1) - rcmstr(i)
00023 
00024          write (output, '(15x, i12, 2i10)') cmpnum, cmprow, cmpcol
00025          cmpnum = cmpnum+1
00026 
00027  100  continue
00028 
00029       return
00030       end
00031 
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Defines