c in string variable. Then accumulate values. If character is 

 c not in Line(J) array, then simply add in the column number. 

 DO 10, iColumn=l,80 

 DO 20, iChar=l,80 

 IF(string(iColumn).EQ.Line(iChar))THEN 



CharTotal = ILine(iChar) + iColumn + CharTotal 

 GOTO 10 

 END IF 

 20 CONTINUE 



CharTotal = CharTotal + iColumn 

 10 CONTINUE 



LineTotal = MOD(CharTotal ,100) 

 Line 1 OTotal = LineTotal + Line 1 OTotal 



IF(LineCount.EQ. 10)THEN 



WRITE(8,101)LINE,LineTotalXinel0Total 



101 FORMAT(80A1,3X,I6,I7) 

 LineCount= 1 



Line 1 OTotal = 

 ELSE 

 WRITE(8, 102)LINE,LineTotal 



102 FORMAT(80A1,3X,I6) 

 LineCount = LineCount+ 1 



END IF 

 GO TO 50 

 99 STOP 

 END 



i 



Appendix B Table of Profile Date B3 



