Fix workspace calculation in GEQRF/GERQF (Reference-LAPACK PR 638)
This commit is contained in:
		
							parent
							
								
									8c99d5d1b6
								
							
						
					
					
						commit
						3e2d52c502
					
				| 
						 | 
				
			
			@ -204,7 +204,7 @@
 | 
			
		|||
      END IF
 | 
			
		||||
*
 | 
			
		||||
*     Quick return if possible
 | 
			
		||||
*
 | 
			
		||||
*     
 | 
			
		||||
      IF( K.EQ.0 ) THEN
 | 
			
		||||
         WORK( 1 ) = 1
 | 
			
		||||
         RETURN
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue