Home
last modified time | relevance | path

Searched refs:itemp (Results 1 – 8 of 8) sorted by relevance

/phasta/phSolver/common/
H A Dgenibc.f39 dimension itemp(6)
58 itemp( 1) = mod(iBCtmp(nb) ,2) - mod(iBCtmp(nb)/ 4,2)
59 itemp( 2) = mod(iBCtmp(nb)/ 8,2)
60 itemp( 3) = mod(iBCtmp(nb)/16,2)
61 itemp( 4) = mod(iBCtmp(nb)/32,2)
62 itemp(ndof) = mod(iBCtmp(nb)/ 2,2)
63 write(iecho,1100) n,(itemp(i),i=1,ndof)
H A DcommuInt.f182 itemp = 1
189 & + rtemp (itemp:itemp+lenseg-1,jdl)
190 itemp = itemp + lenseg
H A Dcommu.f281 itemp = 1
288 & + rtemp (itemp:itemp+lenseg-1,jdl)
289 itemp = itemp + lenseg
/phasta/phSolver/AMG/
H A Dramg_ITAI.f15 integer :: itemp(max(m,l)) local
18 itemp = 0
25 if (itemp(q).ne.i) then
26 itemp(q)=i
47 integer :: itemp(max(m,l)) local
50 itemp = 0
55 itemp(i)=i
61 if (itemp(q).ne.i) then
62 itemp(q)=i
88 integer :: itemp(max(m,l)) local
[all …]
/phasta/M2N/src/
H A Dcommu.f234 itemp = 1
244 & rtemp (itemp,jdl))
245 itemp=itemp+1 ! advance this index one at a time instead of in lenseg jumps
/phasta/M2NFixBnd/src/
H A DcommuMax.f238 itemp = 1
247 global(k,idof) = max(global(k,idof),rtemp (itemp,jdl))
248 itemp=itemp+1 ! advance this index one at a time instead of in lenseg jumps
/phasta/AcuStat/src/
H A DcommuMax.f237 itemp = 1
246 global(k,idof) = max(global(k,idof),rtemp (itemp,jdl))
247 itemp=itemp+1 ! advance this index one at a time instead of in lenseg jumps
/phasta/phSolver/compressible/
H A Dbflux.f55 & temp(nshg), itemp(numflx),
166 itemp = nodflx
169 invflx(itemp) = (/ (i, i=1,numflx) /)