PARAMETER ( NBRANCH = 10 ) COMMON /OHANDS/ NLEVEL, 1 DIAGNOSTICS, 2 NSEG (NBRANCH), 3 NADDR (NBRANCH) LOGICAL DIAGNOSTICS