Home
last modified time | relevance | path

Searched refs:nnfft3d (Results 1 – 14 of 14) sorted by relevance

/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwpw/nwpwlib/C3dB/
H A DC3dB-tcgmsg.F310 integer i,c,nnfft3d
326 if ((op.eq.1).or.(op.eq.5)) nnfft3d = (nx(nb))*nq1(nb)
327 if ((op.eq.2).or.(op.eq.4)) nnfft3d = (ny(nb))*nq2(nb)
328 if ((op.eq.3).or.(op.eq.6)) nnfft3d = (nz(nb))*nq3(nb)
332 do i=1,nnfft3d
387 if ((op.eq.4).or.(op.eq.6)) nnfft3d = (nx(nb))*nq1(nb)
388 if ((op.eq.1).or.(op.eq.3)) nnfft3d = (ny(nb))*nq2(nb)
393 do i=1,nnfft3d
453 integer i,c,nnfft3d
475 do i=1,nnfft3d
[all …]
H A DC3dB-mpi.F452 integer i,nnfft3d
476 if ((op.eq.1).or.(op.eq.5)) nnfft3d = nx(nb)*nq1(nb)
477 if ((op.eq.2).or.(op.eq.4)) nnfft3d = ny(nb)*nq2(nb)
478 if ((op.eq.3).or.(op.eq.6)) nnfft3d = nz(nb)*nq3(nb)
483 do i=1,nnfft3d
572 if ((op.eq.4).or.(op.eq.6)) nnfft3d = nx(nb)*nq1(nb)
573 if ((op.eq.1).or.(op.eq.3)) nnfft3d = ny(nb)*nq2(nb)
579 do i=1,nnfft3d
645 integer i,nnfft3d
679 do i=1,nnfft3d
[all …]
H A DC3dB-new.F3368 subroutine C3dB_cc_Vector_dot(nb,nnfft3d,nn,ne,A,B,sumall) argument
3371 integer nnfft3d,nn,ne local
3394 shift1 = 1 + (n-1)*nnfft3d*2
3395 shift2 = 1 + (m-1)*nnfft3d*2
3425 subroutine C3dB_cc_Vector_ndot(nb,nnfft3d,ne,A,B,sumall) argument
3428 integer nnfft3d,ne local
3451 shift1 = 1 + (n-1)*nnfft3d*2
/dports/science/nwchem-data/nwchem-7.0.2-release/src/nwpw/nwpwlib/C3dB/
H A DC3dB-tcgmsg.F310 integer i,c,nnfft3d
326 if ((op.eq.1).or.(op.eq.5)) nnfft3d = (nx(nb))*nq1(nb)
327 if ((op.eq.2).or.(op.eq.4)) nnfft3d = (ny(nb))*nq2(nb)
328 if ((op.eq.3).or.(op.eq.6)) nnfft3d = (nz(nb))*nq3(nb)
332 do i=1,nnfft3d
387 if ((op.eq.4).or.(op.eq.6)) nnfft3d = (nx(nb))*nq1(nb)
388 if ((op.eq.1).or.(op.eq.3)) nnfft3d = (ny(nb))*nq2(nb)
393 do i=1,nnfft3d
453 integer i,c,nnfft3d
475 do i=1,nnfft3d
[all …]
H A DC3dB-mpi.F433 integer i,nnfft3d
457 if ((op.eq.1).or.(op.eq.5)) nnfft3d = nx(nb)*nq1(nb)
458 if ((op.eq.2).or.(op.eq.4)) nnfft3d = ny(nb)*nq2(nb)
459 if ((op.eq.3).or.(op.eq.6)) nnfft3d = nz(nb)*nq3(nb)
463 do i=1,nnfft3d
546 if ((op.eq.4).or.(op.eq.6)) nnfft3d = nx(nb)*nq1(nb)
547 if ((op.eq.1).or.(op.eq.3)) nnfft3d = ny(nb)*nq2(nb)
552 do i=1,nnfft3d
617 integer i,nnfft3d
650 do i=1,nnfft3d
[all …]
H A DC3dB-new.F3271 subroutine C3dB_cc_Vector_dot(nb,nnfft3d,nn,ne,A,B,sumall) argument
3274 integer nnfft3d,nn,ne local
3296 shift1 = 1 + (n-1)*nnfft3d*2
3297 shift2 = 1 + (m-1)*nnfft3d*2
3326 subroutine C3dB_cc_Vector_ndot(nb,nnfft3d,ne,A,B,sumall) argument
3329 integer nnfft3d,ne local
3351 shift1 = 1 + (n-1)*nnfft3d*2
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwpw/nwpwlib/D3dB/
H A DD3dB-tcgmsg.F462 integer i,c,nnfft3d
478 if ((op.eq.1).or.(op.eq.5)) nnfft3d = (nx(nb)/2+1)*nq1(nb)
479 if ((op.eq.2).or.(op.eq.4)) nnfft3d = (ny(nb)) *nq2(nb)
480 if ((op.eq.3).or.(op.eq.6)) nnfft3d = (nz(nb)) *nq3(nb)
484 do i=1,nnfft3d
539 if ((op.eq.4).or.(op.eq.6)) nnfft3d = (nx(nb)/2+1)*nq1(nb)
540 if ((op.eq.1).or.(op.eq.3)) nnfft3d = (ny(nb)) *nq2(nb)
545 do i=1,nnfft3d
604 integer i,c,nnfft3d
626 do i=1,nnfft3d
[all …]
H A DD3dBs-new.F2920 subroutine D3dBs_cc_Vector_dot(nb,nnfft3d,nn,ne,A,B,sumall) argument
2923 integer nnfft3d,nn,ne local
2949 shift1 = (n-1)*nnfft3d
2950 shift2 = (m-1)*nnfft3d
2996 shift1 = (n-1)*nnfft3d
2997 shift2 = (m-1)*nnfft3d
3049 subroutine D3dBs_cc_Vector_ndot(nb,nnfft3d,ne,A,B,sumall) argument
3052 integer nnfft3d,ne local
3077 shift1 = (n-1)*nnfft3d
3120 shift1 = (n-1)*nnfft3d
H A DD3dBs-mpi.F421 integer i,nnfft3d
450 if ((op.eq.1).or.(op.eq.5)) nnfft3d = (nx(nb)/2+1)*nq1(nb)
451 if ((op.eq.2).or.(op.eq.4)) nnfft3d = (ny(nb)) *nq2(nb)
452 if ((op.eq.3).or.(op.eq.6)) nnfft3d = (nz(nb)) *nq3(nb)
461 do i=1,nnfft3d
549 if ((op.eq.4).or.(op.eq.6)) nnfft3d = (nx(nb)/2+1)*nq1(nb)
550 if ((op.eq.1).or.(op.eq.3)) nnfft3d = (ny(nb)) *nq2(nb)
557 do i=1,nnfft3d
622 integer i,nnfft3d
655 do i=1,nnfft3d
[all …]
H A DD3dB-new.F4763 subroutine D3dB_cc_Vector_dot(nb,nnfft3d,nn,ne,A,B,sumall) argument
4766 integer nnfft3d,nn,ne local
4792 shift1 = (n-1)*nnfft3d
4793 shift2 = (m-1)*nnfft3d
4839 shift1 = (n-1)*nnfft3d
4840 shift2 = (m-1)*nnfft3d
4893 subroutine D3dB_cc_Vector_ndot(nb,nnfft3d,ne,A,B,sumall) argument
4896 integer nnfft3d,ne local
4921 shift1 = (n-1)*nnfft3d
4964 shift1 = (n-1)*nnfft3d
H A DD3dB-mpi.F426 integer i,nnfft3d
455 if ((op.eq.1).or.(op.eq.5)) nnfft3d = (nx(nb)/2+1)*nq1(nb)
456 if ((op.eq.2).or.(op.eq.4)) nnfft3d = (ny(nb)) *nq2(nb)
457 if ((op.eq.3).or.(op.eq.6)) nnfft3d = (nz(nb)) *nq3(nb)
467 do i=1,nnfft3d
556 if ((op.eq.4).or.(op.eq.6)) nnfft3d = (nx(nb)/2+1)*nq1(nb)
557 if ((op.eq.1).or.(op.eq.3)) nnfft3d = (ny(nb)) *nq2(nb)
564 do i=1,nnfft3d
629 integer i,nnfft3d
662 do i=1,nnfft3d
[all …]
/dports/science/nwchem-data/nwchem-7.0.2-release/src/nwpw/nwpwlib/D3dB/
H A DD3dB-tcgmsg.F462 integer i,c,nnfft3d
478 if ((op.eq.1).or.(op.eq.5)) nnfft3d = (nx(nb)/2+1)*nq1(nb)
479 if ((op.eq.2).or.(op.eq.4)) nnfft3d = (ny(nb)) *nq2(nb)
480 if ((op.eq.3).or.(op.eq.6)) nnfft3d = (nz(nb)) *nq3(nb)
484 do i=1,nnfft3d
539 if ((op.eq.4).or.(op.eq.6)) nnfft3d = (nx(nb)/2+1)*nq1(nb)
540 if ((op.eq.1).or.(op.eq.3)) nnfft3d = (ny(nb)) *nq2(nb)
545 do i=1,nnfft3d
604 integer i,c,nnfft3d
626 do i=1,nnfft3d
[all …]
H A DD3dB-new.F4735 subroutine D3dB_cc_Vector_dot(nb,nnfft3d,nn,ne,A,B,sumall) argument
4738 integer nnfft3d,nn,ne local
4764 shift1 = (n-1)*nnfft3d
4765 shift2 = (m-1)*nnfft3d
4811 shift1 = (n-1)*nnfft3d
4812 shift2 = (m-1)*nnfft3d
4865 subroutine D3dB_cc_Vector_ndot(nb,nnfft3d,ne,A,B,sumall) argument
4868 integer nnfft3d,ne local
4893 shift1 = (n-1)*nnfft3d
4936 shift1 = (n-1)*nnfft3d
H A DD3dB-mpi.F426 integer i,nnfft3d
455 if ((op.eq.1).or.(op.eq.5)) nnfft3d = (nx(nb)/2+1)*nq1(nb)
456 if ((op.eq.2).or.(op.eq.4)) nnfft3d = (ny(nb)) *nq2(nb)
457 if ((op.eq.3).or.(op.eq.6)) nnfft3d = (nz(nb)) *nq3(nb)
467 do i=1,nnfft3d
556 if ((op.eq.4).or.(op.eq.6)) nnfft3d = (nx(nb)/2+1)*nq1(nb)
557 if ((op.eq.1).or.(op.eq.3)) nnfft3d = (ny(nb)) *nq2(nb)
564 do i=1,nnfft3d
629 integer i,nnfft3d
662 do i=1,nnfft3d
[all …]