/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwpw/nwpwlib/C3dB/ |
H A D | C3dB-tcgmsg.F | 310 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 D | C3dB-mpi.F | 452 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 D | C3dB-new.F | 3368 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 D | C3dB-tcgmsg.F | 310 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 D | C3dB-mpi.F | 433 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 D | C3dB-new.F | 3271 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 D | D3dB-tcgmsg.F | 462 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 D | D3dBs-new.F | 2920 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 D | D3dBs-mpi.F | 421 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 D | D3dB-new.F | 4763 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 D | D3dB-mpi.F | 426 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 D | D3dB-tcgmsg.F | 462 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 D | D3dB-new.F | 4735 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 D | D3dB-mpi.F | 426 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 …]
|