Home
last modified time | relevance | path

Searched refs:TwoSLup (Results 1 – 4 of 4) sorted by relevance

/dports/science/chemps2/CheMPS2-1.8.10/CheMPS2/
H A DTwoDM.cpp934 …for (int TwoSLup = denBK->gTwoSmin(theindex,NL); TwoSLup<= denBK->gTwoSmax(theindex,NL); TwoSLup+=… in doD8() local
990 …for (int TwoSLup = denBK->gTwoSmin(theindex,NL); TwoSLup<= denBK->gTwoSmax(theindex,NL); TwoSLup+=… in doD9andD10andD11() local
1060 …for (int TwoSLup = denBK->gTwoSmin(theindex,NL); TwoSLup<= denBK->gTwoSmax(theindex,NL); TwoSLup+=… in doD12() local
1115 …for (int TwoSLup = denBK->gTwoSmin(theindex,NL); TwoSLup<= denBK->gTwoSmax(theindex,NL); TwoSLup+=… in doD13() local
1171 …for (int TwoSLup = denBK->gTwoSmin(theindex,NL); TwoSLup<= denBK->gTwoSmax(theindex,NL); TwoSLup+=… in doD14() local
1227 …for (int TwoSLup = denBK->gTwoSmin(theindex,NL); TwoSLup<= denBK->gTwoSmax(theindex,NL); TwoSLup+=… in doD15() local
1286 …for (int TwoSLup = denBK->gTwoSmin(theindex,NL); TwoSLup<= denBK->gTwoSmax(theindex,NL); TwoSLup+=… in doD16() local
1345 …for (int TwoSLup = denBK->gTwoSmin(theindex,NL); TwoSLup<= denBK->gTwoSmax(theindex,NL); TwoSLup+=… in doD17orD21() local
1402 …for (int TwoSLup = denBK->gTwoSmin(theindex,NL); TwoSLup<= denBK->gTwoSmax(theindex,NL); TwoSLup+=… in doD18orD22() local
1461 …for (int TwoSLup = denBK->gTwoSmin(theindex,NL); TwoSLup<= denBK->gTwoSmax(theindex,NL); TwoSLup+=… in doD19orD23() local
[all …]
H A DTensorL.cpp143 const int TwoSLup = sector_spin_up[ ikappa ]; in create_left() local
146 int dimLup = bk_up ->gCurrentDim( index, NLup, TwoSLup, ILup ); in create_left()
159 TwoSR = TwoSLup; in create_left()
171 double * Tup = mps_tensor_up ->gStorage( NLup, TwoSLup, ILup, NR, TwoSR, IR ); in create_left()
178 … alpha = Special::phase( TwoSLup - TwoSLdown + 1 ) * sqrt( ( TwoSLup + 1.0 ) / ( TwoSLdown + 1 ) ); in create_left()
187 double * Tup = mps_tensor_up ->gStorage( NLup, TwoSLup, ILup, NR, TwoSR, IR ); in create_left()
195 … alpha = Special::phase( TwoSLup - TwoSLdown + 1 ) * sqrt( ( TwoSLup + 1.0 ) / ( TwoSLdown + 1 ) ); in create_left()
H A DTensorX.cpp174 int NLup,TwoSLup,ILup,NLdown,TwoSLdown,ILdown; in addTermQLRight() local
178 TwoSLup = sector_spin_up[ikappa]-1; in addTermQLRight()
186 TwoSLup = sector_spin_up[ikappa]+1; in addTermQLRight()
194 TwoSLup = sector_spin_up[ikappa]; in addTermQLRight()
202 TwoSLup = sector_spin_up[ikappa]; in addTermQLRight()
545 int TwoSLup, TwoSLdown; in addTermDRight() local
548 TwoSLup = sector_spin_up[ikappa]-1; in addTermDRight()
552 TwoSLup = sector_spin_up[ikappa]+1; in addTermDRight()
556 TwoSLup = sector_spin_up[ikappa]-1; in addTermDRight()
560 TwoSLup = sector_spin_up[ikappa]+1; in addTermDRight()
[all …]
H A DCorrelations.cpp531 for (int TwoSLup = TwoSR-1; TwoSLup <= TwoSR+1; TwoSLup += 2){ in diagram5() local
533 int dimLup = denBK->gCurrentDim(theindex, NR-1, TwoSLup, ILup); in diagram5()
538 double * blockTup = denT->gStorage(NR-1, TwoSLup, ILup, NR, TwoSR, IR); in diagram5()
539 … double * blockM = denM->gStorage(NR-2, TwoSR, IR, NR-1, TwoSLup, ILup); in diagram5()
548 const int fase = ((((TwoSLup + 1 - TwoSR)/2)%2)!=0)?-1:1; in diagram5()
549 … total += fase * sqrt((TwoSLup+1.0)*(TwoSR+1)) * ddot_(&length, workmem, &inc, blockTdown, &inc); in diagram5()