1 SUBROUTINE bextrema(modb, bmin, bmax, nzeta, ntheta)
7 INTEGER :: nzeta, ntheta
8 REAL(rprec),
INTENT(in) :: modb(nzeta,ntheta)
9 REAL(rprec),
INTENT(out) :: bmin(ntheta), bmax(ntheta)
19 bmin(ku) = minval(modb(:,ku))
20 bmax(ku) = maxval(modb(:,ku))
23 END SUBROUTINE bextrema