LAPACK  3.7.0
LAPACK: Linear Algebra PACKage
subroutine check2 ( double precision  SFAC)