couple fixes

Author: perazz

fypp/src/la_blas_aux.fypp

@@ -207,10 +207,6 @@ module la_blas_aux
            character(len=*), intent(in) :: srname
            integer(ilp), intent(in) :: info
        ! =====================================================================
-           ! Intrinsic Functions 
-           intrinsic :: len_trim
-           ! Executable Statements 
-      9999 format( ' ** ON ENTRY TO ', a, ' PARAMETER NUMBER ', i2, ' HAD ','AN ILLEGAL VALUE' )
 
      end subroutine la_xerbla
 

fypp/src/la_blas_s.fypp

@@ -453,7 +453,7 @@ module la_blas_s
            intrinsic :: real
            dsdot = sb
            if (n<=0) then
-              la_sdsdot = dsdot
+              la_sdsdot = real(dsdot,KIND=sp)
               return
            end if
            if (incx==incy .and. incx>0) then
@@ -474,7 +474,7 @@ module la_blas_s
                  ky = ky + incy
               end do
            end if
-           la_sdsdot = dsdot
+           la_sdsdot = real(dsdot,KIND=sp)
            return
      end function la_sdsdot