subroutine gentrs (ptrst, ncls, xmin, dcls, xdont, ndon) | |
do icls1 = 1, ncls | |
prec: do | |
select case (isns) | |
case (-1) | |
do icls = icls1, 1, -1 | |
enddo | |
case (+1) | |
do icls = icls1, ncls | |
if (xale > rtrst (icls1, icls)) then | |
endif | |
enddo | |
end select | |
enddo prec | |
enddo | |
contains | |
real function genuni (jsee) | |
end function genuni | |
end subroutine gentrs |