Patch LAPACK XLASD4.f as discussed in JuliaLang/julia#2340

Patch LAPACK XLASD4.f as discussed in JuliaLang/julia#2340