LOGICAL*1 LINILT, LPOSND COMMON /GCLTYP/ ILNTYP, DLEFT, DIST(4,3), LINILT, LPOSND