Update zscal.c · 5e7f714e93 - OpenBLAS - 开源协同云脑生态支撑系统

Update zscal.c

tags/v0.3.27

Martin Kroeker

GitHub 1 year ago

parent

cf8b03ae8b

commit

5e7f714e93

No known key found for this signature in database GPG Key ID: 4AEE18F83AFDEB23

1 changed files with 1 additions and 0 deletions

Unified View

							
								+ 1
								
								- 0
							
kernel/mips/zscal.cView File
								
																@@ -47,6 +47,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r,FLOAT da_i, F
															
																			else
																
																			else
															
																			{
																
																			{
															
																				temp = - da_i * x[ip+1] ;
																
																				temp = - da_i * x[ip+1] ;
															
																				if (isnan(x[ip]) || isinf(x[ip])) temp = x[ip];
															
																				x[ip+1] = da_i * x[ip]  ;
																
																				x[ip+1] = da_i * x[ip]  ;
															
																			}
																
																			}
															
																		}
																
																		}