Home
last modified time | relevance | path

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

1234

/phasta/phSolver/compressible/
H A Dau1gmr.f1 subroutine Au1GMR (EGmass, uBrg, ilwork,iBC,iper ) argument
23 & uBtmp(nshg,nflow), ilwork(nlwork),
30 call commu (uBrg, ilwork, nflow , 'out')
77 call commu (uBrg , ilwork, nflow , 'in ')
81 numtask = ilwork(1)
86 iacc = ilwork (itkbeg + 2)
87 numseg = ilwork (itkbeg + 4)
91 isgbeg = ilwork (itkbeg + 3 + 2*is)
92 lenseg = ilwork (itkbeg + 4 + 2*is)
110 subroutine Au1GMRSclr (EGmasst, uBrg, ilwork, iper ) argument
[all …]
H A Dbc3res.f1 subroutine bc3Res (y, iBC, BC, res, iper, ilwork) argument
25 & res(nshg,nflow), ilwork(nlwork),
177 numtask = ilwork(1)
182 iacc = ilwork (itkbeg + 2)
183 numseg = ilwork (itkbeg + 4)
187 isgbeg = ilwork (itkbeg + 3 + 2*is)
188 lenseg = ilwork (itkbeg + 4 + 2*is)
208 & iper, ilwork) argument
232 & rest(nshg), ilwork(nlwork),
268 numtask = ilwork(1)
[all …]
H A Ditrfdi.f4 & ilwork, shp, shgl,
44 & ilwork(nlwork),
74 & iper, ilwork,
82 call sumgat (rtmp, nflow, summed, ilwork)
108 & iper, ilwork, ac)
125 & iper, ilwork, ac)
134 call sumgat (rtmp, nflow, summed, ilwork)
154 & ilwork, shp, shgl, wght,
194 & engBC(nshg), ilwork(nlwork),
213 & iper, ilwork, ac)
[all …]
H A Dsolgmr.f5 & ilwork, shp, shgl, shpb,
50 & Rsin(*), ilwork(nlwork),
82 & ilwork, EGmass, rerr )
112 call i3pre (BDiag, Binv, EGmass, ilwork)
126 call sumgat (temp, nflow, summed, ilwork)
162 call Au1GMR (EGmass, temp, ilwork, iBC,iper)
166 call bc3per (iBC, temp, iper, ilwork, nflow)
180 call sumgat (temp, nflow, summed, ilwork)
211 call Au1GMR ( EGmass, uBrg(:,:,iKs+1), ilwork, iBC,iper)
215 call bc3per (iBC, uBrg(:,:,iKs+1), iper, ilwork, nflow)
[all …]
H A Ditrdrv.f3 & iper, ilwork, shp, argument
48 & BC(nshg,ndofBC), ilwork(nlwork),
154 if(BC_enable) call itrBC (yold, ac, iBC, BC, iper, ilwork)
215 call vortGLB(yold, x, shp, shgl, ilwork, vortG)
236 call itrBCsclr(yold,ac,iBC,BC,iper,ilwork)
303 call itrBC (yold, ac, iBC, BC, iper, ilwork)
305 call itrBCsclr(yold,ac,iBC,BC,iper,ilwork)
370 & iper, ilwork, nsons,
376 & iper, ilwork,
382 & iper, ilwork, x)
[all …]
H A Dsparseap.f1 subroutine SparseAp(iper, ilwork, iBC, col, row, lhsK, p) argument
19 & iper(nshg), ilwork(nlwork) local
28 call commu (p, ilwork, nflow , 'out')
110 call commu (p , ilwork, nflow , 'in ')
114 numtask = ilwork(1)
119 iacc = ilwork (itkbeg + 2)
120 numseg = ilwork (itkbeg + 4)
124 isgbeg = ilwork (itkbeg + 3 + 2*is)
125 lenseg = ilwork (itkbeg + 4 + 2*is)
/phasta/phSolver/common/
H A DcommuInt.f1 subroutine commuInt (global, ilwork, n, code) argument
38 integer ilwork(nlwork) local
92 numtask = ilwork(1)
100 itag = ilwork (itkbeg + 1)
101 iacc = ilwork (itkbeg + 2)
102 iother = ilwork (itkbeg + 3)
103 numseg = ilwork (itkbeg + 4)
104 isgbeg = ilwork (itkbeg + 5)
138 lenseg = ilwork (itkbeg + 4 + 2*is)
172 iacc = ilwork (itkbeg + 2)
[all …]
H A Dgen_ncorp.c14 void commu_int(int* global, int* ilwork, int* n, char* code);
24 static lcorp_t count_owned(int* ilwork, int nlwork,gcorp_t* ncorp_tmp, int* num_nodes);
25 static lcorp_t count_local(int* ilwork, int nlwork,gcorp_t* ncorp_tmp, int* num_nodes);
28 void gen_ncorp(gcorp_t* ncorp, int* ilwork, lcorp_t* nilwork_f, int* num_nodes) in gen_ncorp() argument
44 owned = count_owned(ilwork, nilwork, ncorp, num_nodes); in gen_ncorp()
45 local = count_local(ilwork, nilwork, ncorp, num_nodes); in gen_ncorp()
121 static lcorp_t count_local(int* ilwork, int nlwork,gcorp_t* ncorp_tmp, int* num_nodes) in count_local() argument
133 static lcorp_t count_owned(int* ilwork, int nlwork,gcorp_t* ncorp_tmp, int* num_nodes) in count_owned() argument
135 int numtask = ilwork[0]; in count_owned()
141 int itag = ilwork[itkbeg+1]; //mpi tag in count_owned()
[all …]
H A Dcommu.f1 subroutine commu (global, ilwork, n, code) argument
39 & ilwork(nlwork)
131 numtask = ilwork(1)
139 itag = ilwork (itkbeg + 1)
140 iacc = ilwork (itkbeg + 2)
141 iother = ilwork (itkbeg + 3)
142 numseg = ilwork (itkbeg + 4)
143 isgbeg = ilwork (itkbeg + 5)
199 lenseg = ilwork (itkbeg + 4 + 2*is)
271 iacc = ilwork (itkbeg + 2)
[all …]
H A Dctypes.f1 subroutine ctypes (ilwork) argument
11 dimension ilwork(nlwork)
25 numtask = ilwork (1)
38 iacc = ilwork (itkbeg + 2)
42 numseg = ilwork (itkbeg + 4)
47 ilwork (itkbeg + 3) = ilwork (itkbeg + 3) - 1
58 isbegin (is) = ilwork (itkbeg + 3 + 2*is)
62 lenseg (is) = ilwork (itkbeg + 4 + 2*is)
/phasta/phSolver/AMG/
H A Dramg_paratools.f11 & ilwork,BC,iBC,iper) argument
27 integer,intent(in),dimension(nlwork) :: ilwork local
66 numtask = ilwork(1)
91 itag = ilwork(itkbeg+1)
92 iacc = ilwork(itkbeg+2)
93 iother = ilwork(itkbeg+3)
94 numseg = ilwork(itkbeg+4)
95 isgbeg = ilwork(itkbeg+5)
107 k = ilwork(itkbeg+3+2*j) ! row idx
175 itag = ilwork(itkbeg+1)
[all …]
H A Dramg_driver.f17 & colm,rowp,lhsK,lhsP,ilwork,BC,iBC,iper argument
33 integer,intent(in),dimension(nlwork) :: ilwork local
53 & ilwork,BC,iBC,iper)
65 & ilwork,BC,iBC,iper,2) !dx1
69 & ilwork,BC,iBC,iper,1)
75 & colm,rowp,lhsK,lhsP,ilwork,BC,iBC,iper)
78 & ilwork,BC,iBC,iper) ! v2hat
84 & ilwork,BC,iBC,iper,1)
107 & colm,rowp,lhsK,lhsP,ilwork,BC,iBC,iper,iterNum) argument
123 integer,intent(in),dimension(nlwork) :: ilwork local
[all …]
H A Dramg_mls.f10 & ilwork,BC,iBC,iper) argument
26 integer,intent(in),dimension(nlwork) :: ilwork local
68 call ramg_generate_gmap(ilwork,asize,nsize,gmap,grevmap,level)
137 & ilwork,BC,iBC,iper,1)
141 & ilwork,BC,iBC,iper)
190 & ilwork,BC,iBC,iper) argument
206 integer,intent(in),dimension(nlwork) :: ilwork local
248 call ramg_generate_gmap(ilwork,asize,nsize,gmap,grevmap,level)
317 & ilwork,BC,iBC,iper,1)
321 & ilwork,BC,iBC,iper)
[all …]
H A Dramg_smoother.f6 & ilwork,BC,iBC,iper, argument
16 integer,intent(in),dimension(nlwork) :: ilwork local
27 call commOut(v,ilwork,1,iper,iBC,BC)
29 call commIn(utmp,ilwork,3,iper,iBC,BC)
41 call commOut(utmp4,ilwork,4,iper,iBC,BC)
43 call commIn(u,ilwork,1,iper,iBC,BC)
98 & ilwork,BC,iBC,iper) argument
111 integer,intent(in),dimension(nlwork) :: ilwork local
129 call ramg_calcAv_b(clevel,tmp,v2,ilwork,BC,iBC,iper,1,0)
169 & ilwork,BC,iBC,iper) argument
[all …]
H A Dramg_control.f8 & ilwork,BC,iBC,iper) argument
17 integer, intent(in), dimension(nlwork) :: ilwork local
36 & ilwork,BC,iBC,iper)
38 call ramg_prep(ilwork,BC,iBC,iper)
39 call ramg_init_ilwork(ilwork,BC,iBC,iper)
43 & ilwork,BC,iBC,iper)
46 & ilwork,BC,iBC,iper)
57 call ramg_ggb_setup(colm,rowp,lhsK,lhsP,ilwork,BC,iBC,iper)
67 subroutine ramg_prep(ilwork,BC,iBC,iper)
73 integer,intent(in),dimension(nlwork) :: ilwork variable
[all …]
H A Dramg_ggb.f2 & ilwork,BC,iBC,iper) argument
16 integer,intent(in),dimension(nlwork) :: ilwork local
56 call ramg_generate_gmap(ilwork,asize,nsize,gmap,grevmap,1)
112 & colm,rowp,lhsK,lhsP,ilwork,BC,iBC,iper)
153 & ilwork,BC,iBC,iper,1)
193 subroutine ramg_generate_gmap(ilwork,asize,nsize,gmap,grevmap, argument
202 integer,intent(in),dimension(nlwork) :: ilwork local
221 numtask = ilwork(1)
231 itag = ilwork(itkbeg+1)
232 iacc = ilwork(itkbeg+2)
[all …]
/phasta/phSolver/common/test/
H A DphIOreadIlwork.cc44 int* ilwork = NULL; in main() local
66 ilwork = (int*) malloc(len*sizeof(int)); in main()
67 phio_readdatablock(file, phrase, ilwork, &len, type, iotype); in main()
75 int numtask = ilwork[0]; in main()
78 int iacc = ilwork [itkbeg + 2]; in main()
79 int iother = ilwork [itkbeg + 3]; in main()
80 int numseg = ilwork [itkbeg + 4]; in main()
112 int itag = ilwork [itkbeg + 1]; in main()
113 int iacc = ilwork [itkbeg + 2]; in main()
114 int iother = ilwork [itkbeg + 3]; in main()
[all …]
/phasta/AcuStat/src/
H A DcommuMax.f1 subroutine commuMax (global, ilwork, n, code) argument
39 & ilwork(nlwork)
128 numtask = ilwork(1)
136 itag = ilwork (itkbeg + 1)
137 iacc = ilwork (itkbeg + 2)
138 iother = ilwork (itkbeg + 3)
139 numseg = ilwork (itkbeg + 4)
140 isgbeg = ilwork (itkbeg + 5)
180 lenseg = ilwork (itkbeg + 4 + 2*is)
227 iacc = ilwork (itkbeg + 2)
[all …]
H A Dctypes.f1 subroutine ctypes (ilwork) argument
11 dimension ilwork(nlwork)
26 numtask = ilwork (1)
40 iacc = ilwork (itkbeg + 2)
44 numseg = ilwork (itkbeg + 4)
49 ilwork (itkbeg + 3) = ilwork (itkbeg + 3) - 1
60 isbegin (is) = ilwork (itkbeg + 3 + 2*is)
64 lenseg (is) = ilwork (itkbeg + 4 + 2*is)
/phasta/M2NFixBnd/src/
H A DcommuMax.f1 subroutine commuMax (global, ilwork, n, code) argument
39 & ilwork(nlwork)
129 numtask = ilwork(1)
137 itag = ilwork (itkbeg + 1)
138 iacc = ilwork (itkbeg + 2)
139 iother = ilwork (itkbeg + 3)
140 numseg = ilwork (itkbeg + 4)
141 isgbeg = ilwork (itkbeg + 5)
181 lenseg = ilwork (itkbeg + 4 + 2*is)
228 iacc = ilwork (itkbeg + 2)
[all …]
H A Dctypes.f1 subroutine ctypes (ilwork) argument
11 dimension ilwork(nlwork)
26 numtask = ilwork (1)
40 iacc = ilwork (itkbeg + 2)
44 numseg = ilwork (itkbeg + 4)
49 ilwork (itkbeg + 3) = ilwork (itkbeg + 3) - 1
60 isbegin (is) = ilwork (itkbeg + 3 + 2*is)
64 lenseg (is) = ilwork (itkbeg + 4 + 2*is)
/phasta/M2N/src/
H A Dcommu.f1 subroutine commu (global, ilwork, n, code) argument
39 & ilwork(nlwork)
125 numtask = ilwork(1)
133 itag = ilwork (itkbeg + 1)
134 iacc = ilwork (itkbeg + 2)
135 iother = ilwork (itkbeg + 3)
136 numseg = ilwork (itkbeg + 4)
137 isgbeg = ilwork (itkbeg + 5)
177 lenseg = ilwork (itkbeg + 4 + 2*is)
224 iacc = ilwork (itkbeg + 2)
[all …]
H A Dctypes.f1 subroutine ctypes (ilwork) argument
11 dimension ilwork(nlwork)
26 numtask = ilwork (1)
39 iacc = ilwork (itkbeg + 2)
43 numseg = ilwork (itkbeg + 4)
48 ilwork (itkbeg + 3) = ilwork (itkbeg + 3) - 1
59 isbegin (is) = ilwork (itkbeg + 3 + 2*is)
63 lenseg (is) = ilwork (itkbeg + 4 + 2*is)
/phasta/phSolver/incompressible/
H A Dbc3per.f1 subroutine bc3per (iBC, res, iper, ilwork,nQs) argument
23 & res(nshg,nQs), ilwork(nlwork),
41 numtask = ilwork(1)
46 iacc = ilwork (itkbeg + 2)
47 numseg = ilwork (itkbeg + 4)
51 isgbeg = ilwork (itkbeg + 3 + 2*is)
52 lenseg = ilwork (itkbeg + 4 + 2*is)
H A Ditrbc.f1 subroutine itrBC (y,ac, iBC, BC, iper, ilwork) argument
26 dimension ilwork(nlwork), iper(nshg)
114 call commu (y, ilwork, nflow, 'out')
115 call commu (ac, ilwork, nflow, 'out')
132 subroutine itrBCSclr (y, ac, iBC, BC, iper, ilwork) argument
145 dimension ilwork(nlwork), iper(nshg)
182 call commu (T, ilwork, 1, 'out')
185 call commu (T, ilwork, 1, 'out')

1234