![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to dlansf.f CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [local] / rpl / lapack / lapack|
Return to dlansf.f CVS log | Up to [local] / rpl / lapack / lapack |
| version 1.8, 2011/11/21 22:19:32 | version 1.9, 2012/07/31 11:06:36 |
|---|---|
| Line 248 | Line 248 |
| IF( N.EQ.0 ) THEN | IF( N.EQ.0 ) THEN |
| DLANSF = ZERO | DLANSF = ZERO |
| RETURN | RETURN |
| ELSE IF( N.EQ.1 ) THEN | |
| DLANSF = ABS( A(0) ) | |
| RETURN | |
| END IF | END IF |
| * | * |
| * set noe = 1 if n is odd. if n is even set noe=0 | * set noe = 1 if n is odd. if n is even set noe=0 |