Searched refs:TRUNC_SLAB (Results 1 – 6 of 6) sorted by relevance
54 itruncflag==TRUNC_SLAB) .and. q0len<TOL_SMALL) then63 itruncflag/=TRUNC_SLAB) .and. iscreen/=SCREEN_METAL .and. q0len>=TOL_SMALL) then
124 icutv = TRUNC_SLAB203 case (TRUNC_SLAB)
143 if (icutv==TRUNC_SLAB) then252 if (icutv==TRUNC_SLAB) then
50 integer, parameter :: TRUNC_SLAB = 6 !< 2D slab truncation variable
53 else if(icutv==TRUNC_SLAB) then
212 (itruncflag==TRUNC_NONE .or. itruncflag==TRUNC_SLAB)) then286 if (itruncflag/=TRUNC_SLAB) then618 elseif (itruncflag==TRUNC_SLAB) then