#CTRACE DECLARATIONS FOR TRACE ROUTINES # INTEGER IUNIT, # UNIT NUMBER TO WRITE FLAG, # INITIALIZATION FLAG COUNT, # OUTPUT ITEM COUNT NUMBER, # NUMBER OF ITEMS PER LINE LINE # OUTPUT LINE NUMBER CHARACTER BUF(132), # LINE BUFFER NAMOUT(40) # OUTPUT FILE NAME COMMON/TRACEC/FLAG,IUNIT,BUF,COUNT,NUMBER,LINE,NAMOUT