Searched refs:elemopt361 (Results 1 – 7 of 7) sorted by relevance
99 if( fstrSOLID%sections(isect)%elemopt361 == kel361FI ) then ! full integration element109 else if( fstrSOLID%sections(isect)%elemopt361 == kel361BBAR ) then ! B-bar element119 else if( fstrSOLID%sections(isect)%elemopt361 == kel361IC ) then ! incompatible element131 else if( fstrSOLID%sections(isect)%elemopt361 == kel361FBAR ) then ! F-bar element
158 if( fstrSOLID%sections(isect)%elemopt361 == kel361FI ) then ! full integration element166 else if( fstrSOLID%sections(isect)%elemopt361 == kel361BBAR ) then ! B-bar element174 else if( fstrSOLID%sections(isect)%elemopt361 == kel361IC ) then ! incompatible element185 else if( fstrSOLID%sections(isect)%elemopt361 == kel361FBAR ) then ! F-bar element
387 if( fstrSOLID%sections(isect)%elemopt361 == kel361FI ) then391 else if( fstrSOLID%sections(isect)%elemopt361 == kel361BBAR ) then395 else if( fstrSOLID%sections(isect)%elemopt361 == kel361IC ) then399 else if( fstrSOLID%sections(isect)%elemopt361 == kel361FBAR ) then
335 if( elemopt > 0 ) sections(sect_id)%elemopt361 = elemopt563 function fstr_ctrl_get_ELEMOPT( ctrl, elemopt361 )565 integer(kind=kint) :: elemopt361 local574 o361 = elemopt361 + 1579 elemopt361 = o361 - 1
377 fstrSOLID%sections(i)%elemopt361 = kel361FBAR379 fstrSOLID%sections(i)%elemopt361 = kel361IC382 fstrSOLID%sections(i)%elemopt361 = kel361IC384 fstrSOLID%sections(i)%elemopt361 = kel361FBAR386 fstrSOLID%sections(i)%elemopt361 = kel361FI413 fstrSOLID%elemopt361 = 0533 if( fstr_ctrl_get_ELEMOPT( ctrl, fstrSOLID%elemopt361 )/=0 ) then1058 if( fstrSOLID%sections(isect)%elemopt361==kel361IC ) then
409 if( fstrSOLID%sections(isect)%elemopt361 == kel361FI ) then413 else if( fstrSOLID%sections(isect)%elemopt361 == kel361BBAR ) then417 else if( fstrSOLID%sections(isect)%elemopt361 == kel361IC ) then421 else if( fstrSOLID%sections(isect)%elemopt361 == kel361FBAR ) then
353 integer(kind=kint) :: elemopt361 component619 integer :: elemopt361 component