Searched refs:ygrc (Results 1 – 10 of 10) sorted by relevance
432 …INTEGER, ALLOCATABLE :: ygrp(:), ygrc(:), ygrg(:) ! number of yz planes, relevant columns and G-ve… local438 ALLOCATE ( ygrp(nyfft), ygrc(nyfft), ygrg(nyfft) ) ; ygrp = 0; ygrc = 0; ygrg = 0 456 ygrc(ygr(i1)) = ygrc(ygr(i1)) + yc(i1)483 ELSEIF ( ( ygrg(j) == ygrg(j2) ) .and. ( ygrc(j) < ygrc(j2) ) ) THEN489 ygrc(j2) = ygrc(j2) + yc(i1)542 DEALLOCATE ( ygrp, ygrc, ygrg )
39835 ygrc 圆润 107
72871 ygrc 圆润 107
44671 ygrc=圆润