p*float(r-1 ) ) call rgen ( ul , 1 ) if ( ul ( 1 ) .le.pnb ) go to 35 C .. ... 40 endif return END SUBROUTINE rust ( dia , age , prob , pinfec , infec ) C ...
確定! 回上一頁