#ifdef ALLOW_GENTIM2D_CONTROL
CADJ STORE xx_gentim2d  = tapelev2, key = ilev_2
CADJ STORE xx_gentim2d0 = tapelev2, key = ilev_2
CADJ STORE xx_gentim2d1 = tapelev2, key = ilev_2
#endif