
C     INCLUDE 'Zch80.inc'

C     ------ /XCH80/ for storage of 80 cc charcater lines 
C was max=599 --- 2008: tempry set to 1399
***   PARAMETER (MCH80=599)
      PARAMETER (MCH80=1399)
      COMMON /XCH80/ CH80(MCH80)
      CHARACTER*80 CH80

C end of 'Zch80.inc'
 