LAPACK  3.7.0
LAPACK: Linear Algebra PACKage

◆ check1()

subroutine check1 ( real  SFAC)