/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwpw/nwpwlib/utilities/ |
H A D | butter.F | 15 integer np_j 22 do while (v.le.np_j) 40 integer taskid_j,np_j,na(*) 50 Level = Butter_levels(np_j) 84 integer l,taskid_j,np_j,na(*) 163 integer taskid_j,np_j,na(*) 177 Level = Butter_levels(np_j) 185 pr = mod(pfrom + i,np_j) 217 integer taskid_j,np_j,na(*) 239 pr = mod(pfrom + i,np_j) [all …]
|
H A D | task_paulsmatrix.F | 229 integer i,j,np_i,np_j,mapping,l 247 np_j = 1 251 if (abs(i-j).lt.abs(np_i-np_j)) then 253 np_j = j 259 call Parallel2d_Init(np_j) 261 call Parallel2d_np_j(np_j) 272 write(luout,*) "np_j = ",np_j
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/nwpw/nwpwlib/utilities/ |
H A D | butter.F | 15 integer np_j 22 do while (v.le.np_j) 40 integer taskid_j,np_j,na(*) 50 Level = Butter_levels(np_j) 84 integer l,taskid_j,np_j,na(*) 163 integer taskid_j,np_j,na(*) 177 Level = Butter_levels(np_j) 185 pr = mod(pfrom + i,np_j) 217 integer taskid_j,np_j,na(*) 239 pr = mod(pfrom + i,np_j) [all …]
|
H A D | task_paulsmatrix.F | 229 integer i,j,np_i,np_j,mapping,l 247 np_j = 1 251 if (abs(i-j).lt.abs(np_i-np_j)) then 253 np_j = j 259 call Parallel2d_Init(np_j) 261 call Parallel2d_np_j(np_j) 272 write(luout,*) "np_j = ",np_j
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwpw/nwpwlib/D1dB/ |
H A D | D1dBs-mpi.F | 258 proc_from = mod(taskid_j-j+np_j,np_j) 467 integer taskid_j,np_j 476 call Parallel2d_np_j(np_j) 479 Level = Butter_levels(np_j) 483 pto = mod(taskid_j+np_j-shift,np_j) 504 pr = mod(pfrom + i,np_j) 505 ps = mod(taskid_j + i,np_j) 560 integer taskid_j,np_j 570 call Parallel2d_np_j(np_j) 573 Level = Butter_levels(np_j) [all …]
|
H A D | D1dB-mpi.F | 420 proc_from = mod(taskid_j-j+np_j,np_j) 654 integer taskid_j,np_j 663 call Parallel2d_np_j(np_j) 666 Level = Butter_levels(np_j) 670 pto = mod(taskid_j+np_j-shift,np_j) 691 pr = mod(pfrom + i,np_j) 692 ps = mod(taskid_j + i,np_j) 747 integer taskid_j,np_j 757 call Parallel2d_np_j(np_j) 760 Level = Butter_levels(np_j) [all …]
|
H A D | D1dB-tcgmsg.F | 26 if (np_j.gt.1) then 57 if (np_j.gt.1) then 89 if (np_j.gt.1) then 125 if (np_j.gt.1) then 157 if (np_j.gt.1) then 285 integer taskid_j,np_j 330 integer taskid_j,np_j
|
H A D | D1dB.F | 85 value = value.and.BA_alloc_get(mt_int,np_j,'nqarray', 103 if (p .ge. np_j) then 114 do p=0,np_j-1 121 p = mod(p+1,np_j) 125 do p=0,np_j-1 270 call Parallel2d_np_j(np_j) 275 if (np_j.gt.nz_in) then
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwpw/nwpwlib/C1dB/ |
H A D | C1dB-mpi.F | 420 proc_from = mod(taskid_j-j+np_j,np_j) 654 integer taskid_j,np_j 663 call Parallel3d_np_j(np_j) 666 Level = Butter_levels(np_j) 670 pto = mod(taskid_j+np_j-shift,np_j) 691 pr = mod(pfrom + i,np_j) 692 ps = mod(taskid_j + i,np_j) 747 integer taskid_j,np_j 757 call Parallel3d_np_j(np_j) 760 Level = Butter_levels(np_j) [all …]
|
H A D | C1dB-tcgmsg.F | 26 if (np_j.gt.1) then 57 if (np_j.gt.1) then 89 if (np_j.gt.1) then 125 if (np_j.gt.1) then 157 if (np_j.gt.1) then 285 integer taskid_j,np_j 330 integer taskid_j,np_j
|
H A D | C1dB.F | 84 value = value.and.BA_alloc_get(mt_int,np_j,'nqarray', 102 if (p .ge. np_j) then 113 do p=0,np_j-1 120 p = mod(p+1,np_j) 124 do p=0,np_j-1 269 call Parallel3d_np_j(np_j) 274 if (np_j.gt.nz_in) then
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/nwpw/nwpwlib/D1dB/ |
H A D | D1dB-mpi.F | 420 proc_from = mod(taskid_j-j+np_j,np_j) 654 integer taskid_j,np_j 663 call Parallel2d_np_j(np_j) 666 Level = Butter_levels(np_j) 670 pto = mod(taskid_j+np_j-shift,np_j) 691 pr = mod(pfrom + i,np_j) 692 ps = mod(taskid_j + i,np_j) 747 integer taskid_j,np_j 757 call Parallel2d_np_j(np_j) 760 Level = Butter_levels(np_j) [all …]
|
H A D | D1dB-tcgmsg.F | 26 if (np_j.gt.1) then 57 if (np_j.gt.1) then 89 if (np_j.gt.1) then 125 if (np_j.gt.1) then 157 if (np_j.gt.1) then 285 integer taskid_j,np_j 330 integer taskid_j,np_j
|
H A D | D1dB.F | 85 value = value.and.BA_alloc_get(mt_int,np_j,'nqarray', 103 if (p .ge. np_j) then 114 do p=0,np_j-1 121 p = mod(p+1,np_j) 125 do p=0,np_j-1 270 call Parallel2d_np_j(np_j) 275 if (np_j.gt.nz_in) then
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/nwpw/nwpwlib/CMatrix/ |
H A D | CMatrix-mpi.F | 73 do jj=1,np_j 132 jcur = mod(jcur-1+np_j,np_j) 151 jcur = mod(jcur-1+np_j,np_j) 171 jcur = mod(jcur-1+np_j,np_j) 185 jcur = mod(jcur-1+np_j,np_j) 272 do j=1,np_j 354 jcur = mod(jcur-1+np_j,np_j) 373 jcur = mod(jcur-1+np_j,np_j) 393 jcur = mod(jcur-1+np_j,np_j) 407 jcur = mod(jcur-1+np_j,np_j) [all …]
|
H A D | CMatrix-tcgmsg.F | 51 integer np_i,np_j 97 integer np_i,np_j 141 integer np_i,np_j 187 if (np_j.gt.1) 256 integer np_i,np_j 299 if (np_j.gt.1) 385 integer np_i,np_j 437 if (np_j.gt.1) 489 integer np_i,np_j 636 integer np_i,np_j [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwpw/nwpwlib/CMatrix/ |
H A D | CMatrix-mpi.F | 73 do jj=1,np_j 136 jcur = mod(jcur-1+np_j,np_j) 155 jcur = mod(jcur-1+np_j,np_j) 176 jcur = mod(jcur-1+np_j,np_j) 190 jcur = mod(jcur-1+np_j,np_j) 277 do j=1,np_j 366 jcur = mod(jcur-1+np_j,np_j) 385 jcur = mod(jcur-1+np_j,np_j) 406 jcur = mod(jcur-1+np_j,np_j) 420 jcur = mod(jcur-1+np_j,np_j) [all …]
|
H A D | CMatrix-tcgmsg.F | 51 integer np_i,np_j 97 integer np_i,np_j 141 integer np_i,np_j 187 if (np_j.gt.1) 256 integer np_i,np_j 299 if (np_j.gt.1) 385 integer np_i,np_j 437 if (np_j.gt.1) 489 integer np_i,np_j 636 integer np_i,np_j [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwpw/nwpwlib/DMatrix/ |
H A D | DMatrix-mpi.F | 73 do jj=1,np_j 136 jcur = mod(jcur-1+np_j,np_j) 155 jcur = mod(jcur-1+np_j,np_j) 176 jcur = mod(jcur-1+np_j,np_j) 190 jcur = mod(jcur-1+np_j,np_j) 277 do j=1,np_j 367 jcur = mod(jcur-1+np_j,np_j) 386 jcur = mod(jcur-1+np_j,np_j) 407 jcur = mod(jcur-1+np_j,np_j) 421 jcur = mod(jcur-1+np_j,np_j) [all …]
|
H A D | DMatrix-tcgmsg.F | 52 integer np_i,np_j 98 integer np_i,np_j 142 integer np_i,np_j 188 if (np_j.gt.1) 257 integer np_i,np_j 300 if (np_j.gt.1) 386 integer np_i,np_j 429 if (np_j.gt.1) 516 integer np_i,np_j 568 if (np_j.gt.1) [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/nwpw/nwpwlib/DMatrix/ |
H A D | DMatrix-mpi.F | 73 do jj=1,np_j 136 jcur = mod(jcur-1+np_j,np_j) 155 jcur = mod(jcur-1+np_j,np_j) 176 jcur = mod(jcur-1+np_j,np_j) 190 jcur = mod(jcur-1+np_j,np_j) 277 do j=1,np_j 367 jcur = mod(jcur-1+np_j,np_j) 386 jcur = mod(jcur-1+np_j,np_j) 407 jcur = mod(jcur-1+np_j,np_j) 421 jcur = mod(jcur-1+np_j,np_j) [all …]
|
H A D | DMatrix-tcgmsg.F | 52 integer np_i,np_j 98 integer np_i,np_j 142 integer np_i,np_j 188 if (np_j.gt.1) 257 integer np_i,np_j 300 if (np_j.gt.1) 386 integer np_i,np_j 429 if (np_j.gt.1) 516 integer np_i,np_j 568 if (np_j.gt.1) [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwpw/nwpwlib/Parallel/ |
H A D | Parallel-tcgmsg.F | 45 np_j = 1 84 np_j = ncolumns 86 if (np_j.gt.1) then 89 do j=0,np_j-1 106 do j=0,np_j-1 133 if (np_j.gt.1) then 169 np_j = ncolumns 176 do j=0,np_j-1 198 do j=0,np_j-1 872 mynp = np_j [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/nwpw/nwpwlib/Parallel/ |
H A D | Parallel-tcgmsg.F | 45 np_j = 1 84 np_j = ncolumns 86 if (np_j.gt.1) then 89 do j=0,np_j-1 106 do j=0,np_j-1 133 if (np_j.gt.1) then 169 np_j = ncolumns 176 do j=0,np_j-1 198 do j=0,np_j-1 872 mynp = np_j [all …]
|
H A D | Parallel.F | 112 np_out = np_j 164 > + taskid_k*np_i*np_j) 184 > + taskid_k*np_i*np_j) 205 > + taskid_k*np_i*np_j) 268 np_out = np_j 351 > + taskid_k*np_i*np_j) 371 > + taskid_k*np_i*np_j) 391 > + k*np_i*np_j) 413 > + k*np_i*np_j)
|