1*DECK F2S 2 REAL FUNCTION F2S (X) 3C***BEGIN PROLOGUE F2S 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 F2S 12 REAL X 13C***FIRST EXECUTABLE STATEMENT F2S 14 F2S = 100.0 15 IF(X.NE.0.0) F2S = SIN(0.314159E+03*X)/(0.314159E+01*X) 16 RETURN 17 END 18