Home
last modified time | relevance | path

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

/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/NWints/texas/
H A Dconbuf2_der.F13 * 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 Dderivat.F46 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 Dmemoha.F105 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 Dassemblx.F146 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 Dspec_calcint.F854 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 Damshift.F73 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 Dspec_block.F1015 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 Dgencon.f195 * 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 Dtrobsa.F68 * 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 Dabcd.F28 * nqij,nqij1,nsij1,nqkl,nqkl1,nskl1,ijbeg,klbeg
H A Dzeroint.F57 * bl(ibut2),l01,l02,nfu(nqij)+1,nfu(nqkl)+1 )
H A Dprecalc2.F1023 * 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 Dconbuf2_der.F13 * 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 Dderivat.F46 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 Dmemoha.F105 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 Dassemblx.F146 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 Dspec_calcint.F854 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 Damshift.F73 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 Dspec_block.F1015 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 Dgencon.f195 * 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 Dtrobsa.F68 * 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 Dabcd.F28 * nqij,nqij1,nsij1,nqkl,nqkl1,nskl1,ijbeg,klbeg
H A Dzeroint.F57 * bl(ibut2),l01,l02,nfu(nqij)+1,nfu(nqkl)+1 )
H A Dprecalc2.F1023 * 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 Darray30_phrases.dict.yaml98688 它們的 nqkl'