Searched refs:founde (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/compressible/ |
| H A D | timeseries.f | 18 integer e, founde local
21 founde = 0
31 founde=statptts(jj,2)
152 founde=e
205 founde=e
211 if(founde.ne.0) then !store values for next time steps
213 statptts(jj,2)=founde
214 parptts(jj,:)=zi0(founde,:)
222 if(founde.ne.0) then
227 & +ycl(founde,i,1:ndofl)*shape(i)
[all …]
|
| /phasta/phSolver/incompressible/ |
| H A D | timeseries.f | 18 integer e, founde local
21 founde = 0
31 founde=statptts(jj,2)
152 founde=e
205 founde=e
211 if(founde.ne.0) then !store values for next time steps
213 statptts(jj,2)=founde
214 parptts(jj,:)=zi0(founde,:)
222 if(founde.ne.0) then
227 & +ycl(founde,i,1:ndofl)*shape(i)
[all …]
|