LAPACK  3.6.0
LAPACK: Linear Algebra PACKage
subroutine check3 ( double precision  SFAC)