LOGICAL LCURNT COMMON /GCCPOS/ XAPOS, YAPOS, IVIS, LCURNT