C THIS GENERATES A SAMPLE GRAPH USING GRAF. C REAL X(100), Y(100) DO 10 J=1,100 X(J) = J-1 Y(J) = SIN(X(J)/5.0) * EXP(-X(J)/30.0) 10 CONTINUE C C DRAW THE CURVE, WITH AUTOSCALED AXES. C CALL GRAF1 (X, Y, 100) CALL GRTITL ('Sample 1', 100, 'X axis label', 100, 1 'Y axis label', 100) CALL EXIT END