V3FIT
bextrema.f
1  SUBROUTINE bextrema(modb, bmin, bmax, nzeta, ntheta)
2  USE stel_kinds
3  IMPLICIT NONE
4 C-----------------------------------------------
5 C D u m m y A r g u m e n t s
6 C-----------------------------------------------
7  INTEGER :: nzeta, ntheta
8  REAL(rprec), INTENT(in) :: modb(nzeta,ntheta)
9  REAL(rprec), INTENT(out) :: bmin(ntheta), bmax(ntheta)
10 C-----------------------------------------------
11 C L o c a l V a r i a b l e s
12 C-----------------------------------------------
13  INTEGER :: ku
14 C-----------------------------------------------
15 !
16 ! Computes MAX, MIN of |B| along v (zeta) between two angle lines (theta = 0,pi)
17 !
18  DO ku = 1,ntheta
19  bmin(ku) = minval(modb(:,ku))
20  bmax(ku) = maxval(modb(:,ku))
21  ENDDO
22 
23  END SUBROUTINE bextrema