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