*GUREF
*       evref common
*
        real x1pos(dim1,dim2,dim3,dim4,dim5)
        real y1pos(dim1,dim2,dim3,dim4,dim5)
        real x2pos(dim1,dim2,dim3,dim4,dim5)
        real y2pos(dim1,dim2,dim3,dim4,dim5)
        real x3pos(dim1,dim2,dim3,dim4,dim5)
        real y3pos(dim1,dim2,dim3,dim4,dim5)
        real x4pos(dim1,dim2,dim3,dim4,dim5)
        real y4pos(dim1,dim2,dim3,dim4,dim5)
        real sx1pos(dim1,dim2,dim3,dim4,dim5)
        real sy1pos(dim1,dim2,dim3,dim4,dim5)
        real sx2pos(dim1,dim2,dim3,dim4,dim5)
        real sy2pos(dim1,dim2,dim3,dim4,dim5)
        real sx3pos(dim1,dim2,dim3,dim4,dim5)
        real sy3pos(dim1,dim2,dim3,dim4,dim5)
        real sx4pos(dim1,dim2,dim3,dim4,dim5)
        real sy4pos(dim1,dim2,dim3,dim4,dim5)
        real PMCR(30)

        integer*4 iref(5),iref0(5),ir(5),ir0(5),nb(4),nref(4)

        COMMON/evref/iref,iref0,ir,ir0,nb,nref,PMCR,
     1	     x1pos,y1pos,x2pos,y2pos,x3pos,y3pos,x4pos,y4pos,
     1	     sx1pos,sy1pos,sx2pos,sy2pos,sx3pos,sy3pos,sx4pos,sy4pos
C