INTERFACEThis is a part of the F77_LAPACK interface module blocks.
FUNCTION SLAMCH( CMACH )
USE LA_PRECISION, ONLY: WP SP
REAL(WP) :: SLAMCH
CHARACTER( LEN = 1 ), INTENT( IN ) :: CMACH
END FUNCTION SLAMCH
FUNCTION DLAMCH( CMACH )
USE LA_PRECISION, ONLY: WP DP
REAL( WP ) :: DLAMCH
CHARACTER( LEN = 1 ), INTENT( IN ) :: CMACH
END FUNCTION DLAMCH
END INTERFACE
FUNTION LA_LAMCH( 1.0_wp, CMACH, INFO )This is a part of the F95_LAPACK interface module blocks.
CHARACTER(LEN=1), INTENT( IN ) :: CMACH
REAL(wp) :: LA_LAMCH
INTEGER, INTENT( OUT ), OPTIONAL :: INFO
where
wp ::= KIND( 1.0 ) KIND( 1.0D0 )
For function values of LA_LAMCH (SLAMCH and/or DLAMCH) see Table 1.1.