Lines Matching refs:ipord
26 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)
99 if ( ipord .gt. 3 ) then
100 nshapeb = nshapeb +(ipord -2)*(ipord - 3)/2
153 if ( ipord .gt. 1 ) then
154 nshape = nshape + 8*(ipord - 1) ! counting the edge functions
157 if ( ipord .gt. 2 ) then
159 nshape = nshape + 2*(ipord -1)*(ipord - 2)
162 if ( ipord .gt. 3 ) then
164 nshape = nshape + (ipord - 2)*(ipord - 3)/2
167 if ( ipord .gt. 5 ) then
168 nshape = nshape + (ipord - 3)*(ipord - 4)*(ipord - 5)/6
173 if ( ipord .gt. 1 ) then
174 nshapeb = nshapeb + 4*(ipord - 1)
176 if ( ipord .gt. 3 ) then
177 nshape = nshape +(ipord - 2)*(ipord - 3)/2
255 if ( ipord .gt. 1 ) then
256 nshape = nshape + 9*(ipord - 1)
259 if ( ipord .gt. 2 ) then
260 nshape = nshape + (ipord -1)*(ipord - 2)
263 if ( ipord .gt. 3 ) then
264 nshape = nshape + 3*(ipord - 2)*(ipord - 3)/2
267 if ( ipord .gt. 4 ) then
268 nshape = nshape + (ipord - 2)*(ipord - 3)*(ipord - 4)/6
274 if ( ipord .gt. 1 ) then
275 nshapeb = nshapeb + 3*(ipord - 1)
277 if ( ipord .gt. 2 ) then
278 nshape = nshape +(ipord - 1)*(ipord - 2)/2
283 if ( ipord .gt. 1 ) then
284 nshapeb = nshapeb + 4*(ipord - 1)
286 if ( ipord .gt. 2 ) then
287 nshape = nshape +(ipord - 2)*(ipord - 3)/2