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