Lines Matching refs:ipord
48 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
151 if( ipord>1 ) then
152 nem = ipord-1
258 call shpTet(ipord,intpnt(:,i),shp(:,i),shgl(:,:,i))