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