Home
last modified time | relevance | path

Searched refs:ipord (Results 1 – 25 of 49) sorted by relevance

12

/phasta/phSolver/common/
H A Dgenint.f26 nshape = (ipord+1)*(ipord+2)*(ipord+3)/6
27 nshapeb = (ipord+1)*(ipord+2)/2
81 if ( ipord .gt. 1 ) then
82 nshape = nshape + 12*(ipord - 1)
85 if ( ipord .gt. 3 ) then
86 nshape = nshape + 3*(ipord -2)*(ipord - 3)
89 if ( ipord .gt. 5 ) then
90 nshape = nshape + (ipord - 3)*(ipord - 4)*(ipord - 5)/6
95 if ( ipord .gt. 1 ) then
96 nshapeb = nshapeb + 4*(ipord - 1)
[all …]
H A Dgenshpb.f31 call shpTet(ipord,Qptb(1,1:3,i),shpb(1,:,i),
40 call shpHex (ipord, Qptb(2,1:3,i),shpb(2,:,i),
47 call shp6w (ipord,Qptb(3,1:3,i),
54 call shp6w (ipord,Qptb(4,1:3,i),
60 call shppyr (ipord,Qptb(5,1:3,i),
67 call shppyr (ipord,Qptb(6,1:3,i),
H A Dhierarchic.f48 if ( ipord > 1 ) then
78 if ( ipord > 1 ) then
106 if( ipord>1 ) then
107 nem = ipord-1
112 if( ipord>2 ) then
113 nfm = (ipord-2)*(ipord-1)/2
125 if( ipord > 1) then
126 nem = ipord -1
132 if( ipord > 3) then
133 nfm = (ipord-2)*(ipord-3)/2
[all …]
H A Dgenshp.f32 call shpTet(ipord,Qpt(1,1:3,i),shp(1,:,i),shgl(1,:,:,i))
41 call shphex (ipord, Qpt(2,1:3,i),shp(2,:,i),
49 call shp6w (ipord,Qpt(3,1:3,i),shp(3,:,i),
57 call shppyr (ipord,Qpt(5,1:3,i),shp(5,:,i),shgl(5,:,:,i))
H A Dfiltprep.f149 call shpTet(ipord,Qptf(1,1:3,i),shpf(1,:,i),
164 call shphex (ipord, Qptf(2,1:3,i),shpf(2,:,i),
172 call shp6W (ipord,Qptf(3,1:3,i),shpf(3,:,i),
179 call shppyr (ipord,Qptf(5,1:3,i),shpf(5,:,i),
H A Dlocal.f31 if (ipord > 2) then
362 if (ipord > 2) then
419 if (ipord > 2) then
H A Dlocaly.f31 if (ipord > 2) then
H A Dinput.f151 if (ipord .eq. 1) then
153 else if (ipord .eq. 2) then
242 & idiff, lhs, itau, ipord, ipred, lstres,
H A Dasbnabi.f36 if (ipord .gt. 1) then
194 if (ipord .gt. 1) then
/phasta/phSolver/incompressible/
H A De3dc.f540 if (ipord .eq. 2) fact = 0.9
541 if (ipord .eq. 3) fact = 0.75
563 if (ipord .eq. 2) fact = 0.9
H A De3stab.f48 if (ipord == 1) then
50 else if (ipord == 2) then
53 else if (ipord == 3) then
347 if (ipord == 1) then
349 else if (ipord == 2) then
351 else if (ipord == 3) then
520 if (ipord == 1) then
522 else if (ipord == 2) then
524 else if (ipord == 3) then
H A Dasbmfg.f36 if (ipord .gt. 1) then
106 if (ipord .gt. 1) then
H A Dtimeseries.f25 call shphex (ipord, parptts(jj,:),shape(:),
28 call shptet (ipord, parptts(jj,:),shape(:),
149 call shphex (ipord, zi0(e,:),shape(:),
202 call shptet (ipord, zi0(e,:), shape(:),
H A Dasigmr.f54 if (ipord .gt. 1) then
160 if (ipord .gt. 1) then
H A Dasbflx.f43 if (ipord .gt. 1) then
/phasta/phSolver/compressible/
H A De3tau.f123 if (ipord == 1) then
125 else if (ipord == 2) then
128 else if (ipord == 3) then
130 else if (ipord >= 4) then
148 if (ipord == 1) then
150 else if (ipord == 2) then
153 else if (ipord == 3) then
433 if (ipord == 1) then ! linears - l = l^a*(coth(Pe)-1/Pe)
439 if (ipord == 2) then ! quads - Codina, CMAME' 92
445 if (ipord == 3) then ! cubics - Recent Work
[all …]
H A Dasbmfg.f32 if (ipord .gt. 1) then
96 if (ipord .gt. 1) then
H A De3dc.f262 if (ipord .eq. 2) fact = 0.9
263 if (ipord .eq. 3) fact = 0.75
311 if (ipord .eq. 2) fact = pt5
577 if (ipord .eq. 2) fact = 0.9
578 if (ipord .eq. 3) fact = 0.75
626 if (ipord .eq. 2) fact = pt5
H A Dtimeseries.f25 call shphex (ipord, parptts(jj,:),shape(:),
28 call shptet (ipord, parptts(jj,:),shape(:),
149 call shphex (ipord, zi0(e,:),shape(:),
202 call shptet (ipord, zi0(e,:), shape(:),
H A Dasiq.f43 if (ipord .gt. 1) then
H A Dasbres.f30 if (ipord .gt. 1) then
H A Dasiflx.f37 if (ipord .gt. 1) then
H A Dasires.f47 if (ipord .gt. 1) then
H A Dasbflx.f38 if (ipord .gt. 1) then
H A Dasimfg.f43 if (ipord .gt. 1) then

12