bextrema.f90

Go to the documentation of this file.

 
 
SUBROUTINE bextrema(modb, bmin, bmax, nzeta, ntheta)
 
  USE stel_kinds
 
  IMPLICIT NONE
 
  INTEGER, intent(in) :: nzeta, ntheta
  REAL(rprec), INTENT(in)  :: modb(nzeta,ntheta)
  REAL(rprec), INTENT(out) :: bmin(ntheta), bmax(ntheta)
 
  INTEGER :: ku
 
  DO ku = 1,ntheta
     bmin(ku)  = minval(modb(:,ku))
     bmax(ku)  = maxval(modb(:,ku))
  ENDDO
 
END SUBROUTINE bextrema