*DECK PIMACH FUNCTION PIMACH (DUM) C***BEGIN PROLOGUE PIMACH C***SUBSIDIARY C***PURPOSE Subsidiary to HSTCSP, HSTSSP and HWSCSP C***LIBRARY SLATEC C***TYPE SINGLE PRECISION (PIMACH-S) C***AUTHOR (UNKNOWN) C***DESCRIPTION C C This subprogram supplies the value of the constant PI correct to C machine precision where C C PI=3.1415926535897932384626433832795028841971693993751058209749446 C C***SEE ALSO HSTCSP, HSTSSP, HWSCSP C***ROUTINES CALLED (NONE) C***REVISION HISTORY (YYMMDD) C 801001 DATE WRITTEN C 891214 Prologue converted to Version 4.0 format. (BAB) C 900402 Added TYPE section. (WRB) C***END PROLOGUE PIMACH C C***FIRST EXECUTABLE STATEMENT PIMACH PIMACH = 3.14159265358979 RETURN END