Include Zlatko changes following Paul Roberts from NAG report
authorjulie <julielangou@users.noreply.github.com>
Tue, 25 Jan 2011 22:02:14 +0000 (22:02 +0000)
committerjulie <julielangou@users.noreply.github.com>
Tue, 25 Jan 2011 22:02:14 +0000 (22:02 +0000)
commit0c127da695fbb3a28c48c687813d007e2837fddf
treefcc49f766930a97986a81c2fbf595f57abd8e983
parentc4e5f2da72c3bf8c83b84e3da15d21b616fef93f
Include Zlatko changes following Paul Roberts from NAG report

Message from Zlatko:

The following changes are made in the
current version of the code:

1. in dgejsv, sgejsv:

- a typo in checking the parameters LSVEC.OR.LSVEC
  has been changed to LSVEC.OR.RSVEC
- the length of WORK, LWORK, its description
  and the minimal length for different JOBs
  have been revised and corrected
- in a call to xGESVJ with WORK(N+1), the length
  of the workspace is set to the correct value of
  LWORK-N, instead of the incorrect LWORK
- a missing RETURN after a call to XERBLA
  has been inserted
- In the case of zero matrix on input, IWORK(3)
  is set to ZERO, to correspond to the description
  of IWORK in other nontrivial cases
2. in all routines
- simple editing so that the single and
  the corresponding double routines have matching
  lines in the source codes.
SRC/dgesvj.f
SRC/dgsvj0.f
SRC/dgsvj1.f
SRC/sgejsv.f
SRC/sgesvj.f
SRC/sgsvj0.f