SUBROUTINE OFFSET(XOFF,XFCT,YOFF,YFCT) COMMON/OFSDES/XO,XF,YO,YF XO=XOFF XF=XFCT YO=YOFF YF=YFCT RETURN END