mirror of
https://git.planet-casio.com/Lephenixnoir/OpenLibm.git
synced 2025-01-01 06:23:39 +01:00
27 lines
759 B
Fortran
27 lines
759 B
Fortran
*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
|