/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/NWints/texas/ |
H A D | conbuf2_der.F | 13 * nqij,nqij1,nsij1,nqkl,nqkl1,nskl1,ijbeg,klbeg 38 do kl=nfu(nqkl)+1,nfu(nskl+1) 53 do kl=nfu(nqkl)+1,nfu(nskl) 70 do kl=nfu(nqkl)+1,nfu(nskl+1) 85 do kl=nfu(nqkl)+1,nfu(nskl) 121 * nqij,nqij1,nsij1,nqkl,nqkl1,nskl1,ijbeg,klbeg 143 do kl=nfu(nqkl)+1,nfu(nskl+1) 154 do kl=nfu(nqkl)+1,nfu(nskl) 167 do kl=nfu(nqkl)+1,nfu(nskl+1) 178 do kl=nfu(nqkl)+1,nfu(nskl)
|
H A D | derivat.F | 46 lqkl=nfu(nqkl+1) 308 do 200 kl=nfu(nqkl)+1,lnkl 402 lqkl=nfu(nqkl+1) 748 do 200 kl=nfu(nqkl)+1,lnkl 887 lqkl=nfu(nqkl+1) 1386 do 200 kl=nfu(nqkl)+1,lnkl 1460 do 200 kl=nfu(nqkl)+1,lnkl 1532 do 200 kl=nfu(nqkl)+1,lnkl 1589 do 200 kl=nfu(nqkl)+1,lnkl 1661 do 200 kl=nfu(nqkl)+1,lnkl [all …]
|
H A D | memoha.F | 105 lqkl=nfu(nqkl +1) 240 mbfkl12=lnij*nfu(nqkl+1)*nbls 249 * +10*nfu(nsij)*nfu(nqkl+1)*nbls 270 mbf2l=nfu(nqij+1)*nfu(nqkl+1)*nbls 276 * +6*nfu(nqij +1)*nfu(nqkl +1)*nbls 283 * +10*nfu(nqij +1)*nfu(nqkl +1)*nbls 309 mbf3l0=max( nfu(nqij +1),nfu(nqkl +1) ) 313 mbf3l0=max( nfu(nqij +1),nfu(nqkl +1) ) 318 mbf3l0=max( nfu(nqij +1),nfu(nqkl +1) ) 498 myz=nfu(nqi+1)*nfu(nqj+1)*nfu(nqkl+1) [all …]
|
H A D | assemblx.F | 146 DO 501 KL=nfu(nqkl)+1,LNKL 156 DO KL=nfu(nqkl)+1,LNKL 164 DO KL=nfu(nqkl)+1,LNKL 470 kl1=nfu(nqkl) 658 nqklr=nqkl 1065 klenx=nfu(nqkl+1) 1152 klenx=nfu(nqkl+1) 1416 nqklr=nqkl 1780 klenx=nfu(nqkl+1) 1847 klenx=nfu(nqkl+1) [all …]
|
H A D | spec_calcint.F | 854 nqklr=nqkl 860 nqkl=nqkl-1 862 if(nqkl.le.0) nqkl=1 868 nqkl=nqkl-2 870 if(nqkl.le.0) nqkl=1 1070 nqkl=nqklr 1417 nqklr=nqkl 1423 nqkl=nqkl-1 1425 if(nqkl.le.0) nqkl=1 1431 nqkl=nqkl-2 [all …]
|
H A D | amshift.F | 73 lqkl=nfu(nqkl+1) 496 nqklx=nqkl 600 nqklx=nqkl 799 nqklx=nqkl 850 if( nkl.le.nfu(nqkl+1)) then 902 if( nkl.le.nfu(nqkl+1)) then 1094 nqklx=nqkl 1145 if( nkl.le.nfu(nqkl+1)) then 1197 if( nkl.le.nfu(nqkl+1)) then 1708 nqklx=nqkl [all …]
|
H A D | spec_block.F | 1015 mbfkl12=lnij*nfu(nqkl+1)*nbls 1024 * +10*nfu(nsij)*nfu(nqkl+1)*nbls 1041 mbf2l =nfu(nqij+1)*nfu(nqkl+1)*nbls 1046 * +6*nfu(nqij +1)*nfu(nqkl +1)*nbls 1052 * +10*nfu(nqij +1)*nfu(nqkl +1)*nbls 1191 myz=nfu(nqi+1)*nfu(nqj+1)*nfu(nqkl+1) 1207 mbf2l=nfu(nqij+1)*nfu(nqkl+1) *nbls 1496 nqkl=nqk 1497 if(nql.gt.nqk) nqkl=nql 1529 nqxx=nqkl [all …]
|
H A D | gencon.f | 195 * nqij,nqij1,nsij1,nqkl,nqkl1,nskl1,ijbeg,klbeg local 388 * nqij,nqij1,nsij1,nqkl,nqkl1,nskl1,ijbeg,klbeg local 396 kls=nfu(nqkl)+1 483 kls=nfu(nqkl)+1 578 * nqij,nqij1,nsij1,nqkl,nqkl1,nskl1,ijbeg,klbeg local 592 kls=nfu(nqkl)+1
|
H A D | trobsa.F | 68 * nqij,nqij1,nsij1,nqkl,nqkl1,nskl1,ijbeg,klbeg local 197 * nqij,nqij1,nsij1,nqkl,nqkl1,nskl1,ijbeg,klbeg local 381 call copy_unstable_4(nbls1, bl(iq_u),nbls1_u,nqij,nqkl, 488 subroutine copy_unstable_4(nbls1,iq_u,nbls1_u,nqij,nqkl, argument 496 do kl=nfu(nqkl)+1,lnkl 997 k0e=nqkl-nsij+ip 1068 k0e=nqkl-nsij+ip 1188 if(nrec.ge.nqkl) then 1271 if(nrec.ge.nqkl) then 1368 do 150 kn0=nfu(nqkl)+1,nfu(nskl+1) [all …]
|
H A D | abcd.F | 28 * nqij,nqij1,nsij1,nqkl,nqkl1,nskl1,ijbeg,klbeg
|
H A D | zeroint.F | 57 * bl(ibut2),l01,l02,nfu(nqij)+1,nfu(nqkl)+1 )
|
H A D | precalc2.F | 1023 * nqij,nqij1,nsij1,nqkl,nqkl1,nskl1,ijbeg,klbeg local 2012 * nqij,nqij1,nsij1,nqkl,nqkl1,nskl1,ijbeg,klbeg local 2182 * nqij,nqij1,nsij1,nqkl,nqkl1,nskl1,ijbeg,klbeg local 2441 * nqij,nqij1,nsij1,nqkl,nqkl1,nskl1,ijbeg,klbeg local
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/NWints/texas/ |
H A D | conbuf2_der.F | 13 * nqij,nqij1,nsij1,nqkl,nqkl1,nskl1,ijbeg,klbeg 38 do kl=nfu(nqkl)+1,nfu(nskl+1) 53 do kl=nfu(nqkl)+1,nfu(nskl) 70 do kl=nfu(nqkl)+1,nfu(nskl+1) 85 do kl=nfu(nqkl)+1,nfu(nskl) 121 * nqij,nqij1,nsij1,nqkl,nqkl1,nskl1,ijbeg,klbeg 143 do kl=nfu(nqkl)+1,nfu(nskl+1) 154 do kl=nfu(nqkl)+1,nfu(nskl) 167 do kl=nfu(nqkl)+1,nfu(nskl+1) 178 do kl=nfu(nqkl)+1,nfu(nskl)
|
H A D | derivat.F | 46 lqkl=nfu(nqkl+1) 308 do 200 kl=nfu(nqkl)+1,lnkl 402 lqkl=nfu(nqkl+1) 748 do 200 kl=nfu(nqkl)+1,lnkl 887 lqkl=nfu(nqkl+1) 1386 do 200 kl=nfu(nqkl)+1,lnkl 1460 do 200 kl=nfu(nqkl)+1,lnkl 1532 do 200 kl=nfu(nqkl)+1,lnkl 1589 do 200 kl=nfu(nqkl)+1,lnkl 1661 do 200 kl=nfu(nqkl)+1,lnkl [all …]
|
H A D | memoha.F | 105 lqkl=nfu(nqkl +1) 240 mbfkl12=lnij*nfu(nqkl+1)*nbls 249 * +10*nfu(nsij)*nfu(nqkl+1)*nbls 270 mbf2l=nfu(nqij+1)*nfu(nqkl+1)*nbls 276 * +6*nfu(nqij +1)*nfu(nqkl +1)*nbls 283 * +10*nfu(nqij +1)*nfu(nqkl +1)*nbls 309 mbf3l0=max( nfu(nqij +1),nfu(nqkl +1) ) 313 mbf3l0=max( nfu(nqij +1),nfu(nqkl +1) ) 318 mbf3l0=max( nfu(nqij +1),nfu(nqkl +1) ) 498 myz=nfu(nqi+1)*nfu(nqj+1)*nfu(nqkl+1) [all …]
|
H A D | assemblx.F | 146 DO 501 KL=nfu(nqkl)+1,LNKL 156 DO KL=nfu(nqkl)+1,LNKL 164 DO KL=nfu(nqkl)+1,LNKL 470 kl1=nfu(nqkl) 658 nqklr=nqkl 1065 klenx=nfu(nqkl+1) 1152 klenx=nfu(nqkl+1) 1416 nqklr=nqkl 1780 klenx=nfu(nqkl+1) 1847 klenx=nfu(nqkl+1) [all …]
|
H A D | spec_calcint.F | 854 nqklr=nqkl 860 nqkl=nqkl-1 862 if(nqkl.le.0) nqkl=1 868 nqkl=nqkl-2 870 if(nqkl.le.0) nqkl=1 1070 nqkl=nqklr 1417 nqklr=nqkl 1423 nqkl=nqkl-1 1425 if(nqkl.le.0) nqkl=1 1431 nqkl=nqkl-2 [all …]
|
H A D | amshift.F | 73 lqkl=nfu(nqkl+1) 496 nqklx=nqkl 600 nqklx=nqkl 799 nqklx=nqkl 850 if( nkl.le.nfu(nqkl+1)) then 902 if( nkl.le.nfu(nqkl+1)) then 1094 nqklx=nqkl 1145 if( nkl.le.nfu(nqkl+1)) then 1197 if( nkl.le.nfu(nqkl+1)) then 1708 nqklx=nqkl [all …]
|
H A D | spec_block.F | 1015 mbfkl12=lnij*nfu(nqkl+1)*nbls 1024 * +10*nfu(nsij)*nfu(nqkl+1)*nbls 1041 mbf2l =nfu(nqij+1)*nfu(nqkl+1)*nbls 1046 * +6*nfu(nqij +1)*nfu(nqkl +1)*nbls 1052 * +10*nfu(nqij +1)*nfu(nqkl +1)*nbls 1191 myz=nfu(nqi+1)*nfu(nqj+1)*nfu(nqkl+1) 1207 mbf2l=nfu(nqij+1)*nfu(nqkl+1) *nbls 1496 nqkl=nqk 1497 if(nql.gt.nqk) nqkl=nql 1529 nqxx=nqkl [all …]
|
H A D | gencon.f | 195 * nqij,nqij1,nsij1,nqkl,nqkl1,nskl1,ijbeg,klbeg 388 * nqij,nqij1,nsij1,nqkl,nqkl1,nskl1,ijbeg,klbeg 396 kls=nfu(nqkl)+1 483 kls=nfu(nqkl)+1 578 * nqij,nqij1,nsij1,nqkl,nqkl1,nskl1,ijbeg,klbeg 592 kls=nfu(nqkl)+1
|
H A D | trobsa.F | 68 * nqij,nqij1,nsij1,nqkl,nqkl1,nskl1,ijbeg,klbeg 197 * nqij,nqij1,nsij1,nqkl,nqkl1,nskl1,ijbeg,klbeg 381 call copy_unstable_4(nbls1, bl(iq_u),nbls1_u,nqij,nqkl, 488 subroutine copy_unstable_4(nbls1,iq_u,nbls1_u,nqij,nqkl, 496 do kl=nfu(nqkl)+1,lnkl 997 k0e=nqkl-nsij+ip 1068 k0e=nqkl-nsij+ip 1188 if(nrec.ge.nqkl) then 1271 if(nrec.ge.nqkl) then 1368 do 150 kn0=nfu(nqkl)+1,nfu(nskl+1) [all …]
|
H A D | abcd.F | 28 * nqij,nqij1,nsij1,nqkl,nqkl1,nskl1,ijbeg,klbeg
|
H A D | zeroint.F | 57 * bl(ibut2),l01,l02,nfu(nqij)+1,nfu(nqkl)+1 )
|
H A D | precalc2.F | 1023 * nqij,nqij1,nsij1,nqkl,nqkl1,nskl1,ijbeg,klbeg 2012 * nqij,nqij1,nsij1,nqkl,nqkl1,nskl1,ijbeg,klbeg 2182 * nqij,nqij1,nsij1,nqkl,nqkl1,nskl1,ijbeg,klbeg 2441 * nqij,nqij1,nsij1,nqkl,nqkl1,nskl1,ijbeg,klbeg
|
/dports/chinese/rime-array/rime-array-d10f2f8b2aec7c7e736ace01e8a399e5ae5e7c3a/ |
H A D | array30_phrases.dict.yaml | 98688 它們的 nqkl'
|