/dports/math/spooles-mpich/spooles.2.2/InpMtx/src/ |
H A D | gmvm.c | 158 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmvm() 159 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmvm() 186 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmvm() 187 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmvm() 229 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmvm() 230 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmvm() 388 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmvm_T() 389 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmvm_T() 416 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmvm_T() 417 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmvm_T() [all …]
|
H A D | mvmVector.c | 136 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmmVector() 137 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmmVector() 164 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmmVector() 165 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmmVector() 207 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmmVector() 208 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmmVector() 348 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmmVector_T() 349 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmmVector_T() 376 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmmVector_T() 377 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmmVector_T() [all …]
|
H A D | gmmm.c | 181 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmmm() 182 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmmm() 218 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmmm() 219 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmmm() 270 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmmm() 271 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmmm() 453 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmmm_T() 454 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmmm_T() 490 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmmm_T() 491 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmmm_T() [all …]
|
H A D | mvm.c | 205 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmm() 206 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmm() 242 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmm() 243 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmm() 294 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmm() 295 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmm() 506 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmm_T() 507 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmm_T() 543 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmm_T() 544 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmm_T() [all …]
|
/dports/math/spooles-mpich/spooles.2.2_SHARED/InpMtx/src/ |
H A D | mvmVector.c | 136 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmmVector() 137 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmmVector() 164 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmmVector() 165 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmmVector() 207 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmmVector() 208 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmmVector() 348 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmmVector_T() 349 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmmVector_T() 376 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmmVector_T() 377 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmmVector_T() [all …]
|
H A D | gmvm.c | 158 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmvm() 159 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmvm() 186 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmvm() 187 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmvm() 229 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmvm() 230 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmvm() 388 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmvm_T() 389 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmvm_T() 416 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmvm_T() 417 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmvm_T() [all …]
|
H A D | gmmm.c | 181 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmmm() 182 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmmm() 218 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmmm() 219 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmmm() 270 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmmm() 271 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmmm() 453 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmmm_T() 454 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmmm_T() 490 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmmm_T() 491 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmmm_T() [all …]
|
H A D | mvm.c | 205 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmm() 206 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmm() 242 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmm() 243 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmm() 294 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmm() 295 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmm() 506 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmm_T() 507 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmm_T() 543 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmm_T() 544 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmm_T() [all …]
|
/dports/math/spooles/spooles.2.2_SHARED/InpMtx/src/ |
H A D | gmvm.c | 158 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmvm() 159 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmvm() 186 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmvm() 187 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmvm() 229 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmvm() 230 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmvm() 388 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmvm_T() 389 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmvm_T() 416 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmvm_T() 417 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmvm_T() [all …]
|
H A D | mvmVector.c | 136 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmmVector() 137 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmmVector() 164 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmmVector() 165 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmmVector() 207 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmmVector() 208 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmmVector() 348 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmmVector_T() 349 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmmVector_T() 376 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmmVector_T() 377 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmmVector_T() [all …]
|
H A D | gmmm.c | 181 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmmm() 182 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmmm() 218 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmmm() 219 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmmm() 270 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmmm() 271 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmmm() 453 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmmm_T() 454 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmmm_T() 490 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmmm_T() 491 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmmm_T() [all …]
|
H A D | mvm.c | 205 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmm() 206 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmm() 242 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmm() 243 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmm() 294 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmm() 295 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmm() 506 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmm_T() 507 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmm_T() 543 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmm_T() 544 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmm_T() [all …]
|
/dports/math/spooles/spooles.2.2/InpMtx/src/ |
H A D | mvmVector.c | 136 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmmVector() 137 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmmVector() 164 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmmVector() 165 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmmVector() 207 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmmVector() 208 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmmVector() 348 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmmVector_T() 349 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmmVector_T() 376 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmmVector_T() 377 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmmVector_T() [all …]
|
H A D | gmvm.c | 158 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmvm() 159 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmvm() 186 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmvm() 187 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmvm() 229 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmvm() 230 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmvm() 388 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmvm_T() 389 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmvm_T() 416 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmvm_T() 417 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmvm_T() [all …]
|
H A D | gmmm.c | 181 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmmm() 182 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmmm() 218 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmmm() 219 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmmm() 270 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmmm() 271 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmmm() 453 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmmm_T() 454 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmmm_T() 490 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_gmmm_T() 491 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_gmmm_T() [all …]
|
H A D | mvm.c | 205 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmm() 206 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmm() 242 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmm() 243 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmm() 294 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmm() 295 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmm() 506 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmm_T() 507 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmm_T() 543 t1 = areal*xreal - aimag*ximag ; in InpMtx_nonsym_mmm_T() 544 t2 = areal*ximag + aimag*xreal ; in InpMtx_nonsym_mmm_T() [all …]
|
/dports/math/blis/blis-0.8.1/frame/include/level0/old/ |
H A D | bli_invscalcjs.h | 90 float aimag = ( bli_is_conj( conj ) ? ( float ) -(a).imag : \ 92 float temp = ( float ) (a).real * (a).real + ( float ) aimag * (a).imag; \ 93 float xr = ( float ) ( ( float ) (a).real * (x).real + ( float ) aimag * (x).imag ) / temp; \ 94 float xi = ( float ) ( ( float ) (a).real * (x).imag - ( float ) aimag * (x).real ) / temp; \ 100 float aimag = ( bli_is_conj( conj ) ? ( float ) -(a).imag : \ 102 float temp = ( float ) (a).real * (a).real + ( float ) aimag * (a).imag; \ 103 float xr = ( float ) ( ( float ) (a).real * (x).real + ( float ) aimag * (x).imag ) / temp; \ 121 double aimag = ( bli_is_conj( conj ) ? ( double ) -(a).imag : \ 123 double temp = ( double ) (a).real * (a).real + ( double ) aimag * (a).imag; \ 131 double aimag = ( bli_is_conj( conj ) ? ( double ) -(a).imag : \ [all …]
|
H A D | bli_scalcjs.h | 91 float aimag = ( bli_is_conj( conj ) ? ( float ) -(a).imag : \ 93 float tempr = ( float ) (a).real * (x).real - ( float ) aimag * (x).imag; \ 94 float tempi = ( float ) (a).real * (x).imag + ( float ) aimag * (x).real; \ 100 float aimag = ( bli_is_conj( conj ) ? ( float ) -(a).imag : \ 102 float tempr = ( float ) (a).real * (x).real - ( float ) aimag * (x).imag; \ 103 float tempi = ( float ) (a).real * (x).imag + ( float ) aimag * (x).real; \ 120 double aimag = ( bli_is_conj( conj ) ? ( double ) -(a).imag : \ 122 double tempr = ( double ) (a).real * (x).real - ( double ) aimag * (x).imag; \ 123 double tempi = ( double ) (a).real * (x).imag + ( double ) aimag * (x).real; \ 129 double aimag = ( bli_is_conj( conj ) ? ( double ) -(a).imag : \ [all …]
|
/dports/science/qwalk/mainline-1.0.1-300-g1b7e381/src/attic/ |
H A D | get_zpol.pl | 15 ($areal[0],$areal[1],$aimag[0], $aimag[1])=get_realimag("centro", $suffix); 16 print "centro real/imag $areal[0] $aimag[0] errors $areal[1] $aimag[1] \n"; 17 @a=magnitude(@areal, @aimag); 29 $adotb[0]=$areal[0]*$breal[0]+$aimag[0]*$bimag[0]; 31 +$aimag[1]*$bimag[0]+$aimag[0]*$bimag[1];
|
/dports/math/spooles/spooles.2.2/Utilities/ |
H A D | ZV.h | 30 double aimag, 54 double aimag, 182 double aimag, 201 double aimag, 221 double aimag
|
/dports/math/spooles-mpich/spooles.2.2_SHARED/Utilities/ |
H A D | ZV.h | 30 double aimag, 54 double aimag, 182 double aimag, 201 double aimag, 221 double aimag
|
/dports/math/spooles-mpich/spooles.2.2/Utilities/ |
H A D | ZV.h | 30 double aimag, 54 double aimag, 182 double aimag, 201 double aimag, 221 double aimag
|
/dports/math/spooles/spooles.2.2_SHARED/Utilities/ |
H A D | ZV.h | 30 double aimag, 54 double aimag, 182 double aimag, 201 double aimag, 221 double aimag
|
/dports/math/spooles-mpich/spooles.2.2/Iter/src/ |
H A D | util.c | 287 aimag=*(alpha+1); in DenseMtx_colGenAxpy() 291 if (aimag == 0.0) { in DenseMtx_colGenAxpy() 294 else if (aimag == 1.0){ in DenseMtx_colGenAxpy() 300 {tmp=Ai[k]; Ai[k]=-aimag*Ai[k+1]; Ai[k+1]=aimag*tmp;} in DenseMtx_colGenAxpy() 304 if (aimag == 1.0) { in DenseMtx_colGenAxpy() 308 else if (aimag != 0.0) { in DenseMtx_colGenAxpy() 310 {tmp=Ai[k]; Ai[k]-=aimag*Ai[k+1]; Ai[k+1]+=aimag*tmp;} in DenseMtx_colGenAxpy() 314 if (aimag == 0) { in DenseMtx_colGenAxpy() 317 else if (aimag == 1.0) { in DenseMtx_colGenAxpy() 324 Ai[k]=areal*Ai[k]-aimag*Ai[k+1]; in DenseMtx_colGenAxpy() [all …]
|
/dports/math/spooles-mpich/spooles.2.2_SHARED/Iter/src/ |
H A D | util.c | 287 aimag=*(alpha+1); in DenseMtx_colGenAxpy() 291 if (aimag == 0.0) { in DenseMtx_colGenAxpy() 294 else if (aimag == 1.0){ in DenseMtx_colGenAxpy() 300 {tmp=Ai[k]; Ai[k]=-aimag*Ai[k+1]; Ai[k+1]=aimag*tmp;} in DenseMtx_colGenAxpy() 304 if (aimag == 1.0) { in DenseMtx_colGenAxpy() 308 else if (aimag != 0.0) { in DenseMtx_colGenAxpy() 310 {tmp=Ai[k]; Ai[k]-=aimag*Ai[k+1]; Ai[k+1]+=aimag*tmp;} in DenseMtx_colGenAxpy() 314 if (aimag == 0) { in DenseMtx_colGenAxpy() 317 else if (aimag == 1.0) { in DenseMtx_colGenAxpy() 324 Ai[k]=areal*Ai[k]-aimag*Ai[k+1]; in DenseMtx_colGenAxpy() [all …]
|