SUBROUTINE PLTME (X1,Y1,X2,Y2) C [MARGINAL EXCURSION] C N POINTS OF A DISTORTED LINE IN THE MARGIN, AS REQUIRED BY PLTMC. C [03-NOV-73] N=11 EN=FLOAT(N-1) DX=(X2-X1)/EN DY=(Y2-Y1)/EN EX=X1 WY=Y1 DO 10 I=1,N CALL PLTMA (XX,YY,EX,WY) CALL PLOT (YY,-XX,2) EX=EX+DX 10 WY=WY+DY RETURN END