Home
last modified time | relevance | path

Searched refs:tolpt (Results 1 – 7 of 7) sorted by relevance

/phasta/phSolver/common/
H A Delem-search.f34 tolpt = 0.000001
79 if (zi0(e,1).lt.(one+tolpt).and.
80 & zi0(e,1).gt.(zero-tolpt)) then
84 if (zi0(e,2).lt.(one+tolpt).and.
85 & zi0(e,2).gt.(zero-tolpt)) then
89 if (zi0(e,3).lt.(one+tolpt).and.
90 & zi0(e,3).gt.(zero-tolpt)) then
94 if ((1-zi0(e,1)-zi0(e,2)-zi0(e,3)).lt.(one+tolpt).and.
95 & (1-zi0(e,1)-zi0(e,2)-zi0(e,3)).gt.(zero-tolpt)) then
/phasta/phSolver/compressible/
H A Dtimeseries.f145 if ((abs(zi0(e,1)).lt.(one+tolpt)).and.
146 & (abs(zi0(e,2)).lt.(one+tolpt)).and.
147 & (abs(zi0(e,3)).lt.(one+tolpt))) then ! got the element
194 if ((zi0(e,1)+zi0(e,2)+zi0(e,3)).lt.(one+tolpt).and.
195 …& zi0(e,1).lt.(one +tolpt).and. !should not be necessary; the limit in the tet …
196 & zi0(e,1).gt.(zero-tolpt).and.
197 & zi0(e,2).lt.(one +tolpt).and. !should not be necessary
198 & zi0(e,2).gt.(zero-tolpt).and.
199 & zi0(e,3).lt.(one +tolpt).and. !should not be necessary
200 & zi0(e,3).gt.(zero-tolpt)) then
H A Dmod_timedata.f905 real*8 tolpt variable
H A Dtimedata.f9089 read(626,*) ntspts, freq, tolpt, iterat, nbuff
100 call MPI_Bcast(tolpt, 1, MPI_DOUBLE_PRECISION, master,
/phasta/phSolver/incompressible/
H A Dtimeseries.f145 if ((abs(zi0(e,1)).lt.(one+tolpt)).and.
146 & (abs(zi0(e,2)).lt.(one+tolpt)).and.
147 & (abs(zi0(e,3)).lt.(one+tolpt))) then ! got the element
194 if ((zi0(e,1)+zi0(e,2)+zi0(e,3)).lt.(one+tolpt).and.
195 …& zi0(e,1).lt.(one +tolpt).and. !should not be necessary; the limit in the tet …
196 & zi0(e,1).gt.(zero-tolpt).and.
197 & zi0(e,2).lt.(one +tolpt).and. !should not be necessary
198 & zi0(e,2).gt.(zero-tolpt).and.
199 & zi0(e,3).lt.(one +tolpt).and. !should not be necessary
200 & zi0(e,3).gt.(zero-tolpt)) then
H A Dtimedata.f5 real*8 tolpt variable
H A Ditrdrv.f1371 read(626,*) ntspts, freq, tolpt, iterat, varcod