Home
last modified time | relevance | path

Searched refs:NEWFTT (Results 1 – 25 of 51) sorted by relevance

123

/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/src_f77/
H A Ddlarrv.f129 $ 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 Dslarrv.f129 $ 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 Dzlarrv.f133 $ 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 Dclarrv.f133 $ 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 Ddlarrv.f129 $ 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 Dslarrv.f129 $ 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 Dclarrv.f133 $ 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 Dzlarrv.f133 $ 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 Dslarrv.f138 $ 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 Dclarrv.f140 $ 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 Ddlarrv.f138 $ 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 Dzlarrv.f140 $ 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 Ddlarrv.f138 $ 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 Dzlarrv.f140 $ 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 Dclarrv.f140 $ 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 Dslarrv.f138 $ 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 Ddlarrv2.f723 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 Dslarrv2.f723 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 Dclarrv.f321 $ 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 Dzlarrv.f321 $ 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 Dzlarrv.f321 $ 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 Dclarrv.f321 $ 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 Dclarrv.f321 $ 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 Dclarrv.f321 $ 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 Dzlarrv.f321 $ 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 )

123