FUNCTION PPGSF (X,IZ,C,A,BH) DIMENSION A(1) ,C(1) ,BH(1) SUM = 0. DO 101 J=1,IZ SUM = SUM-1./(X-BH(J))**2 101 CONTINUE PPGSF = SUM RETURN END