LAPACK  3.7.0
LAPACK: Linear Algebra PACKage

§ check0()

subroutine check0 ( real  SFAC)