*KEEP,CEVCM.
      COMMON / CEVCM / Y0,B0,T(4,7),CAM2(130),CAM3(200),WAPS(250,20)
C