1*DECK DF1C 2 DOUBLE PRECISION FUNCTION DF1C (X) 3C***BEGIN PROLOGUE DF1C 4C***PURPOSE Subsidiary to 5C***LIBRARY SLATEC 6C***AUTHOR (UNKNOWN) 7C***ROUTINES CALLED (NONE) 8C***REVISION HISTORY (YYMMDD) 9C ?????? DATE WRITTEN 10C 891214 Prologue converted to Version 4.0 format. (BAB) 11C***END PROLOGUE DF1C 12 DOUBLE PRECISION X 13C***FIRST EXECUTABLE STATEMENT DF1C 14 DF1C = 0.0D+00 15 IF(X.NE.0.33D+00) DF1C = (X-0.5D+00)*ABS(X-0.33D+00)**(-0.9D+00) 16 RETURN 17 END 18