1 subroutine fnrsum ( fstcmp, lstcmp, ccmstr, rcmstr, output )
11 integer fstcmp, lstcmp, ccmstr (*), rcmstr (*), output
13 integer i, cmpcol, cmpnum, cmprow
19 do 100 i = fstcmp, lstcmp
21 cmpcol = ccmstr(i+1) - ccmstr(i)
22 cmprow = rcmstr(i+1) - rcmstr(i)
24 write (output,
'(15x, i12, 2i10)') cmpnum, cmprow, cmpcol
subroutine fnrsum(fstcmp, lstcmp, ccmstr, rcmstr, output)