fnrsum.f

Go to the documentation of this file.

      subroutine   fnrsum   ( fstcmp, lstcmp, ccmstr, rcmstr, output )
 
c     ==================================================================
c     ==================================================================
c     ====  fnrsum -- print fine summary of fine structure          ====
c     ==================================================================
c     ==================================================================
 
c     created by john lewis, boeing computer services, sept. 17, 1990
 
      integer       fstcmp, lstcmp, ccmstr (*), rcmstr (*), output
 
      integer       i, cmpcol, cmpnum, cmprow
 
c     ==================================================================
 
      cmpnum = 1
 
      do 100 i = fstcmp, lstcmp
 
         cmpcol = ccmstr(i+1) - ccmstr(i)
         cmprow = rcmstr(i+1) - rcmstr(i)
 
         write (output, '(15x, i12, 2i10)') cmpnum, cmprow, cmpcol
         cmpnum = cmpnum+1
 
 100  continue
 
      return
      end