COMMON/YAR/Y(NC,L),Y2(L,NY),Y3(NY,L),Y4(L,NY),P(L,NY),D(L,NY)