5 * Revision 1.1.1.1 1995/10/24 10:21:39 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.25 by S.Giani
12 FUNCTION GSTINT(X,A,F,N)
14 * Simple linear interpolation
19 * Check (N==NO) & (A(K1)<X<A(K2))
21 IF (N.NE.NO.OR.A(K1).GT.X.OR.X.GT.A(K2)) THEN
44 IF(K2-K1.GT.1) GO TO 10
48 GSTINT=(F(K1)*(X-X2)+F(K2)*(X1-X))/(X1-X2)