Searched refs:dotxtup (Results 1 – 2 of 2) sorted by relevance
4298 * dotxtup,nacc)4318 logical lowdot,dotxtup4437 if (2**log2(nodu).eq.nodu .and. .not.dotxtup) then4439 else if (.not.btest(islur,3) .or. dotxtup) then
7081 stemlen, logical *dotxtup, integer *nacc, ftnlen soutq_len, ftnlen in docrd_() argument7285 if (pow_ii(&c__2, &i__2) == *nodu && ! (*dotxtup)) { in docrd_()7287 } else if (! bit_test(*islur,3) || *dotxtup) { in docrd_()