Home
last modified time | relevance | path

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

123456

/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwpw/nwpwlib/utilities/
H A Dbutter.F15 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 Dtask_paulsmatrix.F229 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 Dbutter.F15 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 Dtask_paulsmatrix.F229 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 DD1dBs-mpi.F258 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 DD1dB-mpi.F420 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 DD1dB-tcgmsg.F26 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 DD1dB.F85 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 DC1dB-mpi.F420 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 DC1dB-tcgmsg.F26 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 DC1dB.F84 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 DD1dB-mpi.F420 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 DD1dB-tcgmsg.F26 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 DD1dB.F85 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 DCMatrix-mpi.F73 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 DCMatrix-tcgmsg.F51 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 DCMatrix-mpi.F73 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 DCMatrix-tcgmsg.F51 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 DDMatrix-mpi.F73 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 DDMatrix-tcgmsg.F52 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 DDMatrix-mpi.F73 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 DDMatrix-tcgmsg.F52 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 DParallel-tcgmsg.F45 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 DParallel-tcgmsg.F45 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 DParallel.F112 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)

123456