Mercurial > hg > nnls-chroma
comparison nnls.f @ 25:6d9e1ee7b35a matthiasm-plugin
* OK, let's revert to a C version (after discovering that the FORTRAN compiler isn't standard on the Mac)
| author | Chris Cannam |
|---|---|
| date | Thu, 21 Oct 2010 14:38:02 +0100 |
| parents | 444c344681f3 |
| children |
comparison
equal
deleted
inserted
replaced
| 24:568ff0daa659 | 25:6d9e1ee7b35a |
|---|---|
| 343 C | 343 C |
| 344 210 continue | 344 210 continue |
| 345 ITER=ITER+1 | 345 ITER=ITER+1 |
| 346 IF (ITER .gt. ITMAX) then | 346 IF (ITER .gt. ITMAX) then |
| 347 MODE=3 | 347 MODE=3 |
| 348 write (*,'(/a)') ' NNLS quitting on iteration count.' | 348 c write (*,'(/a)') ' NNLS quitting on iteration count.' |
| 349 GO TO 350 | 349 GO TO 350 |
| 350 endif | 350 endif |
| 351 C | 351 C |
| 352 C SEE IF ALL NEW CONSTRAINED COEFFS ARE FEASIBLE. | 352 C SEE IF ALL NEW CONSTRAINED COEFFS ARE FEASIBLE. |
| 353 C IF NOT COMPUTE ALPHA. | 353 C IF NOT COMPUTE ALPHA. |