Symbol Description Uses
a 94


File Line number Procedure Code
./pkg/exf/exf_interp.F 12 NO PROCEDURE 
        real*8 function lagran(i,x,a,sp)
./pkg/exf/exf_interp.F 16 NO PROCEDURE 
        real*8 a(4)
./pkg/exf/exf_interp.F 24 NO PROCEDURE 
          denom = denom*(a(i) - a(k))
./pkg/exf/exf_interp.F 25 NO PROCEDURE 
          numer = numer*(x    - a(k))