summaryrefslogtreecommitdiff
path: root/SRC/cuncsd.f
AgeCommit message (Collapse)AuthorFilesLines
2017-06-10Preparing for 3.7.1 releaseJulie1-1/+1
Update version number from discussion with Vendors, they still would like to have the version number inside the source file.
2017-06-06xUNCSD, xORCSD: use LDx for leading dimensions, although the arrays contain ↵Henning Thielemann1-4/+4
square matrices This fixes commit 366f9b3541705231cfbb1724b221b8857ac768a8.
2017-06-03xUNCSD, xORCSD; U1, U2, V1T, V2T: duplicate dimensions of square matricesHenning Thielemann1-4/+4
2016-12-23Updating version number on source file modified since 3.6.1Julie1-1/+1
This is really old school, but a lot of times we have users sending us copy pasting of codes, and that is the only way to know the version of the code.
2016-11-02Fix #80 from @reeuwijk-altiumJulie1-2/+2
Remove a bunch of unused symbols
2016-07-09STYLE: Remove trailing whitespace in Fortran filesHans Johnson1-17/+17
This is mostly a long term maintenance improvement. Many coding styles require elimination of trailing whitespace, and many editors and source code management configurations automatically gobble up whitespace. When these tools gobble up whitespace, it complicates reviewing the meaningful code changes. By removing whitespace on one patch, it makes future code reviews much easier. =SCRIPT==================================================================== if which tempfile &>/dev/null; then TEMPMAKER=tempfile elif which mktemp &>/dev/null; then TEMPMAKER=mktemp else echo "Cannot find tempfile program." 2>&1 exit 1 fi MYTEMP=$($TEMPMAKER) trap 'rm -f $MYTEMP' SIGINT SIGTERM stripit() { echo "stripping $1" sed 's/[ \t]*$//' "$1" > $MYTEMP cp $MYTEMP "$1" } if [ $# -gt 0 ]; then while [ "$1" != "" ]; do stripit $1 shift done else while read -t 2; do stripit $REPLY done fi rm $MYTEMP =================================================
2016-06-18Update date, version for 3.6.1 releaseJulie1-3/+3
2016-06-17Patch from Tim Hopkins sent by email on March 14th, 2016Tim Hopkins, University of Kent1-1/+1
(merge from Julien on June 17th, 2016)
2016-04-29Fix CUNCSD: Illegal use of integer for array argument - [Forum 4956, ↵julie1-2/+2
reported by nathanw] In the CUNCSD function I saw an illegal use of an integer for an array argument. To fix I replaced 0 with U1 in 4th argument of CUNGQR and CUNGLQ to be consistent with ZUNCSD. SRC/cuncsd.f:491,496
2013-11-17Update release number and datejulie1-3/+3
2013-11-17Patch provided by Lawrence Mulholland from Nag on Nov 1st 2013julie1-17/+39
Email below: ============ I have been incorporating some routines into the NAG Library, which means some automatic code translation and writing some example and test programs. The routines I have been adding are: ?geqrt, ?gemqrt, ?tpqrt, ?tpmqrt, ?orcsd, ?uncsd At the end of this message I will give you my current svn status and svn diff for consideration and approval before I commit. In each case, when testing immediate exits, my tests failed because constraints were mutually exclusive for the immediate return case. I have already committed changes to the constraints for some of the above to allow immediate exit. I have completed this for the remainder of this set. Less importantly, there are things in the code that trip up a checking compiler: a) an IF ( clause1(i) .AND. clause2(array(i)) ) THEN where array(i) is either not initialized or is out of bounds if clause1(i) is .FALSE. This is wrong since a Fortran compiler is at liberty to test clause2 first. In my changes this has been split into two as best suits the case. b) an CALL SUB (i, array(N-i+2)) with i = 1 and array(N+1) either not initialized or out of bounds, but internally array(N+1) is not referenced. In this case I don't think the Fortran standard is clear, but it trips up the nagfor compiler with checking on. So in the NAG incorporated versions of Lapack routines such calls are protected and/or a special i=1 call is made. The changes I want to commit also do this. c) workspace queries passing zero instead of array references e.g. lwork = -1 call barf(n,m,0,0,0,0,0,-1,info) a checking compiler won't like this. I have changed cases like this to pass available arrays of sufficient size and the right shape in place of the zeros.
2012-04-11Remove unused parametersjulie1-5/+2
2011-11-11Update version number to 3.4.0julie1-1/+1
2011-11-03Cosmetic changes in Doxygen presentation.julie1-17/+15
Use \par instead of \details for section. add a Contributors Section and a Reference Section. Remove (some) verbatim section when not needed. Those changes have been done by hand so I am not sure I manage to catch them all.
2011-11-01Never say never...julie1-8/+4
2011-11-01Last commit related to Doxygen integration following Albert's commentjulie1-1/+3
2011-10-31Correct Warning detected during Doxygen Generation.julie1-6/+42
Now each routine should have the correct list of arguments. This allowed to detect and fix problems in parameter description of many routines.
2011-10-13adding link to individual download, the links will appear directly in ↵julie1-0/+8
Doxygen html documentation
2011-10-12fix problem detected by Svenjulie1-4/+4
xerbla was called without SRNAMT and INFOT. Actually the problem was that the CSD routines did not have error exits. So I added them, and i also modified the source files because info was not set correctly.
2011-10-06Integrating Doxygen in commentsjulie1-151/+278
2011-04-13Upadte header for the modified routine for the 3.3.1 releasejulie1-1/+1
2011-03-03Correct Workspace Query to make sure we return the max of LWORKOPT and LWORKMINjulie1-4/+6
2011-01-31Fix bug0070 : IWORK dimension is incorrectjulie1-1/+1
bug report sent by nmozarto on Jan 27th see forum topic 2156 From Brian: The correct dimension is (M-R), in which R is the smallest of P, M-P, Q, and M-Q. An M-by-M matrix is partitioned into a 2-by-2 block structure. The dimensions of the blocks are P-by-Q, P-by-(M-Q), (M-P)-by-Q, and (M-P)-by-(M-Q). IWORK is involved in the permutation of rows or columns of these blocks, and it is the largest block, in terms of number of rows or columns, that determines the size of IWORK.
2010-11-08Start getting ready for the releasejulie1-3/+7
2010-11-03Added CS decomposition source files to SRC/brian1-0/+466