COMMON /XYZOLD/ OOLD(3,3), LCOLD, XOLD, YOLD, ZOLD, CURRNT
      REAL            LCOLD