Searched refs:zi0 (Results 1 – 3 of 3) sorted by relevance
| /phasta/phSolver/compressible/ |
| H A D | timeseries.f | 11 & zi0(npro,nsd), detaij(npro), dzi0(npro,nsd), local
52 zi0(:,1) = detaij(:)*((al(:,4,2)*al(:,3,3)
60 zi0(:,2) = detaij(:)*((al(:,2,2)*al(:,4,3)
67 zi0(:,3) = detaij(:)*((al(:,3,2)*al(:,2,3)
81 m11(:)=al(:,2,1)+al(:,5,1)*zi0(:,2)+al(:,7,1)*zi0(:,3)
82 & +al(:,8,1)*zi0(:,2)*zi0(:,3)
83 m12(:)=al(:,3,1)+al(:,5,1)*zi0(:,1)+al(:,6,1)*zi0(:,3)
84 & +al(:,8,1)*zi0(:,1)*zi0(:,3)
85 m13(:)=al(:,4,1)+al(:,6,1)*zi0(:,2)+al(:,7,1)*zi0(:,1)
86 & +al(:,8,1)*zi0(:,1)*zi0(:,2)
[all …]
|
| /phasta/phSolver/incompressible/ |
| H A D | timeseries.f | 11 & zi0(npro,nsd), detaij(npro), dzi0(npro,nsd), local
52 zi0(:,1) = detaij(:)*((al(:,4,2)*al(:,3,3)
60 zi0(:,2) = detaij(:)*((al(:,2,2)*al(:,4,3)
67 zi0(:,3) = detaij(:)*((al(:,3,2)*al(:,2,3)
81 m11(:)=al(:,2,1)+al(:,5,1)*zi0(:,2)+al(:,7,1)*zi0(:,3)
82 & +al(:,8,1)*zi0(:,2)*zi0(:,3)
83 m12(:)=al(:,3,1)+al(:,5,1)*zi0(:,1)+al(:,6,1)*zi0(:,3)
84 & +al(:,8,1)*zi0(:,1)*zi0(:,3)
85 m13(:)=al(:,4,1)+al(:,6,1)*zi0(:,2)+al(:,7,1)*zi0(:,1)
86 & +al(:,8,1)*zi0(:,1)*zi0(:,2)
[all …]
|
| /phasta/phSolver/common/ |
| H A D | elem-search.f | 27 & zi0(nelint,nsd), detaij(nelint), dzi0(nelint,nsd),
45 zi0(:,1) = detaij(:)*((al(:,4,2)*al(:,3,3)
53 zi0(:,2) = detaij(:)*((al(:,2,2)*al(:,4,3)
60 zi0(:,3) = detaij(:)*((al(:,3,2)*al(:,2,3)
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
[all …]
|