| 123456789101112131415161718192021222324 |
- *DECK PPSPF
- FUNCTION PPSPF (X, IZ, C, A, BH)
- C***BEGIN PROLOGUE PPSPF
- C***SUBSIDIARY
- C***PURPOSE Subsidiary to BLKTRI
- C***LIBRARY SLATEC
- C***TYPE SINGLE PRECISION (PPSPF-S)
- C***AUTHOR (UNKNOWN)
- C***SEE ALSO BLKTRI
- C***ROUTINES CALLED (NONE)
- C***REVISION HISTORY (YYMMDD)
- C 801001 DATE WRITTEN
- C 891214 Prologue converted to Version 4.0 format. (BAB)
- C 900402 Added TYPE section. (WRB)
- C***END PROLOGUE PPSPF
- DIMENSION A(*) ,C(*) ,BH(*)
- C***FIRST EXECUTABLE STATEMENT PPSPF
- SUM = 0.
- DO 101 J=1,IZ
- SUM = SUM+1./(X-BH(J))
- 101 CONTINUE
- PPSPF = SUM
- RETURN
- END
|
