1*DECK T5 2 REAL FUNCTION T5 (X) 3C***BEGIN PROLOGUE T5 4C***PURPOSE Subsidiary to 5C***LIBRARY SLATEC 6C***AUTHOR (UNKNOWN) 7C***ROUTINES CALLED F5S 8C***REVISION HISTORY (YYMMDD) 9C ?????? DATE WRITTEN 10C 891214 Prologue converted to Version 4.0 format. (BAB) 11C***END PROLOGUE T5 12 REAL A,B,F5S,X,X1,Y 13C***FIRST EXECUTABLE STATEMENT T5 14 A = 0.0E+00 15 B = 0.1E+01 16 X1 = X+0.1E+01 17 Y = (B-A)/X1+A 18 T5 = (B-A)*F5S(Y)/X1/X1 19 RETURN 20 END 21