/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/src_f77/ |
H A D | dlarrv.f | 129 $ NEWFRS, NEWFTT, NEWLST, NEWSIZ, NSPLIT, OLDCLS, local 277 NEWFTT = OLDIEN + NEWFRS 284 $ Z( IBEGIN, NEWFTT ), 285 $ Z( IBEGIN, NEWFTT+1 ), 322 $ Z( IBEGIN, NEWFTT ), LDZ, 338 KTOT = NEWFTT 378 ITMP1 = ISUPPZ( 2*NEWFTT-1 ) 379 ITMP2 = ISUPPZ( 2*NEWFTT ) 381 DO 120 P = NEWFTT + 1, KTOT 382 DO 110 Q = NEWFTT, P - 1 [all …]
|
H A D | slarrv.f | 129 $ NEWFRS, NEWFTT, NEWLST, NEWSIZ, NSPLIT, OLDCLS, local 275 NEWFTT = OLDIEN + NEWFRS 282 $ Z( IBEGIN, NEWFTT ), 283 $ Z( IBEGIN, NEWFTT+1 ), 320 $ Z( IBEGIN, NEWFTT ), LDZ, 336 KTOT = NEWFTT 376 ITMP1 = ISUPPZ( 2*NEWFTT-1 ) 377 ITMP2 = ISUPPZ( 2*NEWFTT ) 379 DO 120 P = NEWFTT + 1, KTOT 380 DO 110 Q = NEWFTT, P - 1 [all …]
|
H A D | zlarrv.f | 133 $ NDONE, NEWCLS, NEWFRS, NEWFTT, NEWLST, NEWSIZ, 289 NEWFTT = OLDIEN + NEWFRS 295 $ NEWFTT ) ) 297 $ NEWFTT+1 ) ) 339 $ Z( IBEGIN, NEWFTT ), LDZ, 355 KTOT = NEWFTT 395 ITMP1 = ISUPPZ( 2*NEWFTT-1 ) 396 ITMP2 = ISUPPZ( 2*NEWFTT ) 398 DO 140 P = NEWFTT + 1, KTOT 399 DO 130 Q = NEWFTT, P - 1 [all …]
|
H A D | clarrv.f | 133 $ NDONE, NEWCLS, NEWFRS, NEWFTT, NEWLST, NEWSIZ, local 285 NEWFTT = OLDIEN + NEWFRS 291 $ NEWFTT ) ) 293 $ NEWFTT+1 ) ) 335 $ Z( IBEGIN, NEWFTT ), LDZ, 351 KTOT = NEWFTT 391 ITMP1 = ISUPPZ( 2*NEWFTT-1 ) 392 ITMP2 = ISUPPZ( 2*NEWFTT ) 394 DO 120 P = NEWFTT + 1, KTOT 395 DO 110 Q = NEWFTT, P - 1 [all …]
|
/dports/science/elmerfem/elmerfem-release-9.0/mathlibs/src/lapack/ |
H A D | dlarrv.f | 129 $ NEWFRS, NEWFTT, NEWLST, NEWSIZ, NSPLIT, OLDCLS, 277 NEWFTT = OLDIEN + NEWFRS 284 $ Z( IBEGIN, NEWFTT ), 285 $ Z( IBEGIN, NEWFTT+1 ), 322 $ Z( IBEGIN, NEWFTT ), LDZ, 338 KTOT = NEWFTT 378 ITMP1 = ISUPPZ( 2*NEWFTT-1 ) 379 ITMP2 = ISUPPZ( 2*NEWFTT ) 381 DO 120 P = NEWFTT + 1, KTOT 382 DO 110 Q = NEWFTT, P - 1 [all …]
|
H A D | slarrv.f | 129 $ NEWFRS, NEWFTT, NEWLST, NEWSIZ, NSPLIT, OLDCLS, 275 NEWFTT = OLDIEN + NEWFRS 282 $ Z( IBEGIN, NEWFTT ), 283 $ Z( IBEGIN, NEWFTT+1 ), 320 $ Z( IBEGIN, NEWFTT ), LDZ, 336 KTOT = NEWFTT 376 ITMP1 = ISUPPZ( 2*NEWFTT-1 ) 377 ITMP2 = ISUPPZ( 2*NEWFTT ) 379 DO 120 P = NEWFTT + 1, KTOT 380 DO 110 Q = NEWFTT, P - 1 [all …]
|
H A D | clarrv.f | 133 $ NDONE, NEWCLS, NEWFRS, NEWFTT, NEWLST, NEWSIZ, 285 NEWFTT = OLDIEN + NEWFRS 291 $ NEWFTT ) ) 293 $ NEWFTT+1 ) ) 335 $ Z( IBEGIN, NEWFTT ), LDZ, 351 KTOT = NEWFTT 391 ITMP1 = ISUPPZ( 2*NEWFTT-1 ) 392 ITMP2 = ISUPPZ( 2*NEWFTT ) 394 DO 120 P = NEWFTT + 1, KTOT 395 DO 110 Q = NEWFTT, P - 1 [all …]
|
H A D | zlarrv.f | 133 $ NDONE, NEWCLS, NEWFRS, NEWFTT, NEWLST, NEWSIZ, 289 NEWFTT = OLDIEN + NEWFRS 295 $ NEWFTT ) ) 297 $ NEWFTT+1 ) ) 339 $ Z( IBEGIN, NEWFTT ), LDZ, 355 KTOT = NEWFTT 395 ITMP1 = ISUPPZ( 2*NEWFTT-1 ) 396 ITMP2 = ISUPPZ( 2*NEWFTT ) 398 DO 140 P = NEWFTT + 1, KTOT 399 DO 130 Q = NEWFTT, P - 1 [all …]
|
/dports/math/libflame/libflame-5.2.0/old/lapack-test/lapack-timing/EIG/EIGSRC/ |
H A D | slarrv.f | 138 $ NEWFRS, NEWFTT, NEWLST, NEWSIZ, NSPLIT, OLDCLS, 290 NEWFTT = OLDIEN + NEWFRS 297 $ Z( IBEGIN, NEWFTT ), 298 $ Z( IBEGIN, NEWFTT+1 ), 336 $ Z( IBEGIN, NEWFTT ), LDZ, 352 KTOT = NEWFTT 396 ITMP1 = ISUPPZ( 2*NEWFTT-1 ) 397 ITMP2 = ISUPPZ( 2*NEWFTT ) 399 DO 120 P = NEWFTT + 1, KTOT 400 DO 110 Q = NEWFTT, P - 1 [all …]
|
H A D | clarrv.f | 140 $ NDONE, NEWCLS, NEWFRS, NEWFTT, NEWLST, NEWSIZ, 298 NEWFTT = OLDIEN + NEWFRS 304 $ NEWFTT ) ) 306 $ NEWFTT+1 ) ) 349 $ Z( IBEGIN, NEWFTT ), LDZ, 365 KTOT = NEWFTT 409 ITMP1 = ISUPPZ( 2*NEWFTT-1 ) 410 ITMP2 = ISUPPZ( 2*NEWFTT ) 412 DO 120 P = NEWFTT + 1, KTOT 413 DO 110 Q = NEWFTT, P - 1 [all …]
|
H A D | dlarrv.f | 138 $ NEWFRS, NEWFTT, NEWLST, NEWSIZ, NSPLIT, OLDCLS, 292 NEWFTT = OLDIEN + NEWFRS 299 $ Z( IBEGIN, NEWFTT ), 300 $ Z( IBEGIN, NEWFTT+1 ), 338 $ Z( IBEGIN, NEWFTT ), LDZ, 354 KTOT = NEWFTT 398 ITMP1 = ISUPPZ( 2*NEWFTT-1 ) 399 ITMP2 = ISUPPZ( 2*NEWFTT ) 401 DO 120 P = NEWFTT + 1, KTOT 402 DO 110 Q = NEWFTT, P - 1 [all …]
|
H A D | zlarrv.f | 140 $ NDONE, NEWCLS, NEWFRS, NEWFTT, NEWLST, NEWSIZ, 302 NEWFTT = OLDIEN + NEWFRS 308 $ NEWFTT ) ) 310 $ NEWFTT+1 ) ) 353 $ Z( IBEGIN, NEWFTT ), LDZ, 369 KTOT = NEWFTT 413 ITMP1 = ISUPPZ( 2*NEWFTT-1 ) 414 ITMP2 = ISUPPZ( 2*NEWFTT ) 416 DO 140 P = NEWFTT + 1, KTOT 417 DO 130 Q = NEWFTT, P - 1 [all …]
|
/dports/math/openblas/TIMING/EIG/EIGSRC/ |
H A D | dlarrv.f | 138 $ NEWFRS, NEWFTT, NEWLST, NEWSIZ, NSPLIT, OLDCLS, 292 NEWFTT = OLDIEN + NEWFRS 299 $ Z( IBEGIN, NEWFTT ), 300 $ Z( IBEGIN, NEWFTT+1 ), 338 $ Z( IBEGIN, NEWFTT ), LDZ, 354 KTOT = NEWFTT 398 ITMP1 = ISUPPZ( 2*NEWFTT-1 ) 399 ITMP2 = ISUPPZ( 2*NEWFTT ) 401 DO 120 P = NEWFTT + 1, KTOT 402 DO 110 Q = NEWFTT, P - 1 [all …]
|
H A D | zlarrv.f | 140 $ NDONE, NEWCLS, NEWFRS, NEWFTT, NEWLST, NEWSIZ, 302 NEWFTT = OLDIEN + NEWFRS 308 $ NEWFTT ) ) 310 $ NEWFTT+1 ) ) 353 $ Z( IBEGIN, NEWFTT ), LDZ, 369 KTOT = NEWFTT 413 ITMP1 = ISUPPZ( 2*NEWFTT-1 ) 414 ITMP2 = ISUPPZ( 2*NEWFTT ) 416 DO 140 P = NEWFTT + 1, KTOT 417 DO 130 Q = NEWFTT, P - 1 [all …]
|
H A D | clarrv.f | 140 $ NDONE, NEWCLS, NEWFRS, NEWFTT, NEWLST, NEWSIZ, 298 NEWFTT = OLDIEN + NEWFRS 304 $ NEWFTT ) ) 306 $ NEWFTT+1 ) ) 349 $ Z( IBEGIN, NEWFTT ), LDZ, 365 KTOT = NEWFTT 409 ITMP1 = ISUPPZ( 2*NEWFTT-1 ) 410 ITMP2 = ISUPPZ( 2*NEWFTT ) 412 DO 120 P = NEWFTT + 1, KTOT 413 DO 110 Q = NEWFTT, P - 1 [all …]
|
H A D | slarrv.f | 138 $ NEWFRS, NEWFTT, NEWLST, NEWSIZ, NSPLIT, OLDCLS, 290 NEWFTT = OLDIEN + NEWFRS 297 $ Z( IBEGIN, NEWFTT ), 298 $ Z( IBEGIN, NEWFTT+1 ), 336 $ Z( IBEGIN, NEWFTT ), LDZ, 352 KTOT = NEWFTT 396 ITMP1 = ISUPPZ( 2*NEWFTT-1 ) 397 ITMP2 = ISUPPZ( 2*NEWFTT ) 399 DO 120 P = NEWFTT + 1, KTOT 400 DO 110 Q = NEWFTT, P - 1 [all …]
|
/dports/math/scalapack/scalapack-2.1.0/SRC/ |
H A D | dlarrv2.f | 723 NEWFTT = WBEGIN + NEWFST - 1 727 NEWFTT = DOL - 1 730 NEWFTT = DOU 732 NEWFTT = WBEGIN + NEWFST - 1 736 NEWFTT = NEWFTT - ZOFFSET 825 $ Z( IBEGIN, NEWFTT ), 826 $ Z( IBEGIN, NEWFTT+1 ), 832 Z( IEND, NEWFTT+1 ) = SSIGMA 866 $ Z(K,NEWFTT)* 867 $ (Z(K,NEWFTT+1)**2) [all …]
|
H A D | slarrv2.f | 723 NEWFTT = WBEGIN + NEWFST - 1 727 NEWFTT = DOL - 1 730 NEWFTT = DOU 732 NEWFTT = WBEGIN + NEWFST - 1 736 NEWFTT = NEWFTT - ZOFFSET 825 $ Z( IBEGIN, NEWFTT ), 826 $ Z( IBEGIN, NEWFTT+1 ), 832 Z( IEND, NEWFTT+1 ) = SSIGMA 866 $ Z(K,NEWFTT)* 867 $ (Z(K,NEWFTT+1)**2) [all …]
|
/dports/math/xlapack/lapack-3.10.0/SRC/ |
H A D | clarrv.f | 321 $ NDEPTH, NEGCNT, NEWCLS, NEWFST, NEWFTT, NEWLST, 650 NEWFTT = WBEGIN + NEWFST - 1 654 NEWFTT = DOL - 1 657 NEWFTT = DOU 659 NEWFTT = WBEGIN + NEWFST - 1 735 Z( IBEGIN+K-1, NEWFTT ) = 737 Z( IBEGIN+K-1, NEWFTT+1 ) = 740 Z( IEND, NEWFTT ) = 746 Z( IEND, NEWFTT+1 ) = CMPLX( SSIGMA, ZERO )
|
H A D | zlarrv.f | 321 $ NDEPTH, NEGCNT, NEWCLS, NEWFST, NEWFTT, NEWLST, 650 NEWFTT = WBEGIN + NEWFST - 1 654 NEWFTT = DOL - 1 657 NEWFTT = DOU 659 NEWFTT = WBEGIN + NEWFST - 1 735 Z( IBEGIN+K-1, NEWFTT ) = 737 Z( IBEGIN+K-1, NEWFTT+1 ) = 740 Z( IEND, NEWFTT ) = 746 Z( IEND, NEWFTT+1 ) = DCMPLX( SSIGMA, ZERO )
|
/dports/math/blas/lapack-3.10.0/SRC/ |
H A D | zlarrv.f | 321 $ NDEPTH, NEGCNT, NEWCLS, NEWFST, NEWFTT, NEWLST, 650 NEWFTT = WBEGIN + NEWFST - 1 654 NEWFTT = DOL - 1 657 NEWFTT = DOU 659 NEWFTT = WBEGIN + NEWFST - 1 735 Z( IBEGIN+K-1, NEWFTT ) = 737 Z( IBEGIN+K-1, NEWFTT+1 ) = 740 Z( IEND, NEWFTT ) = 746 Z( IEND, NEWFTT+1 ) = DCMPLX( SSIGMA, ZERO )
|
H A D | clarrv.f | 321 $ NDEPTH, NEGCNT, NEWCLS, NEWFST, NEWFTT, NEWLST, 650 NEWFTT = WBEGIN + NEWFST - 1 654 NEWFTT = DOL - 1 657 NEWFTT = DOU 659 NEWFTT = WBEGIN + NEWFST - 1 735 Z( IBEGIN+K-1, NEWFTT ) = 737 Z( IBEGIN+K-1, NEWFTT+1 ) = 740 Z( IEND, NEWFTT ) = 746 Z( IEND, NEWFTT+1 ) = CMPLX( SSIGMA, ZERO )
|
/dports/math/lapacke/lapack-3.10.0/SRC/ |
H A D | clarrv.f | 321 $ NDEPTH, NEGCNT, NEWCLS, NEWFST, NEWFTT, NEWLST, 650 NEWFTT = WBEGIN + NEWFST - 1 654 NEWFTT = DOL - 1 657 NEWFTT = DOU 659 NEWFTT = WBEGIN + NEWFST - 1 735 Z( IBEGIN+K-1, NEWFTT ) = 737 Z( IBEGIN+K-1, NEWFTT+1 ) = 740 Z( IEND, NEWFTT ) = 746 Z( IEND, NEWFTT+1 ) = CMPLX( SSIGMA, ZERO )
|
/dports/math/lapack/lapack-3.10.0/SRC/ |
H A D | clarrv.f | 321 $ NDEPTH, NEGCNT, NEWCLS, NEWFST, NEWFTT, NEWLST, 650 NEWFTT = WBEGIN + NEWFST - 1 654 NEWFTT = DOL - 1 657 NEWFTT = DOU 659 NEWFTT = WBEGIN + NEWFST - 1 735 Z( IBEGIN+K-1, NEWFTT ) = 737 Z( IBEGIN+K-1, NEWFTT+1 ) = 740 Z( IEND, NEWFTT ) = 746 Z( IEND, NEWFTT+1 ) = CMPLX( SSIGMA, ZERO )
|
H A D | zlarrv.f | 321 $ NDEPTH, NEGCNT, NEWCLS, NEWFST, NEWFTT, NEWLST, local 650 NEWFTT = WBEGIN + NEWFST - 1 654 NEWFTT = DOL - 1 657 NEWFTT = DOU 659 NEWFTT = WBEGIN + NEWFST - 1 735 Z( IBEGIN+K-1, NEWFTT ) = 737 Z( IBEGIN+K-1, NEWFTT+1 ) = 740 Z( IEND, NEWFTT ) = 746 Z( IEND, NEWFTT+1 ) = DCMPLX( SSIGMA, ZERO )
|