Lines Matching refs:HALF
413 COMPLEX*16 ZERO, HALF
415 $ HALF = ( 0.5D0, 0.0D0 ) )
533 TRANSL = HALF
759 COMPLEX*16 ZERO, HALF
761 $ HALF = ( 0.5D0, 0.0D0 ) )
867 TRANSL = HALF
1107 COMPLEX*16 ZERO, HALF, ONE
1109 $ HALF = ( 0.5D0, 0.0D0 ),
1224 TRANSL = HALF
1470 COMPLEX*16 ZERO, HALF, ONE
1472 $ HALF = ( 0.5D0, 0.0D0 ),
1546 TRANSL = HALF
1748 COMPLEX*16 ZERO, HALF, ONE
1750 $ HALF = ( 0.5D0, 0.0D0 ),
1831 TRANSL = HALF
2033 COMPLEX*16 ZERO, HALF, ONE
2035 $ HALF = ( 0.5D0, 0.0D0 ),
2117 TRANSL = HALF
2982 * If the loop completes, all results are at least half accurate.
