| 1234567891011121314151617181920212223242526272829303132333435 |
- *DECK DMACON
- SUBROUTINE DMACON
- C***BEGIN PROLOGUE DMACON
- C***SUBSIDIARY
- C***PURPOSE Subsidiary to DBVSUP
- C***LIBRARY SLATEC
- C***TYPE DOUBLE PRECISION (MACON-S, DMACON-D)
- C***AUTHOR (UNKNOWN)
- C***SEE ALSO DBVSUP
- C***ROUTINES CALLED D1MACH
- C***COMMON BLOCKS DML5MC
- C***REVISION HISTORY (YYMMDD)
- C 750601 DATE WRITTEN
- C 890531 Changed all specific intrinsics to generic. (WRB)
- C 890921 Realigned order of variables in certain COMMON blocks.
- C (WRB)
- C 891214 Prologue converted to Version 4.0 format. (BAB)
- C 900328 Added TYPE section. (WRB)
- C***END PROLOGUE DMACON
- DOUBLE PRECISION D1MACH
- INTEGER KE, LPAR
- DOUBLE PRECISION DD, EPS, FOURU, SQOVFL, SRU, TWOU, URO
- COMMON /DML5MC/ URO,SRU,EPS,SQOVFL,TWOU,FOURU,LPAR
- C***FIRST EXECUTABLE STATEMENT DMACON
- URO = D1MACH(4)
- SRU = SQRT(URO)
- DD = -LOG10(URO)
- LPAR = 0.5D0*DD
- KE = 0.5D0 + 0.75D0*DD
- EPS = 10.0D0**(-2*KE)
- SQOVFL = SQRT(D1MACH(2))
- TWOU = 2.0D0*URO
- FOURU = 4.0D0*URO
- RETURN
- END
|
