getcurmid.f90 File Reference

Get current at midplane (?) More...

Go to the source code of this file.

Functions/Subroutines
subroutine	getcurmid (curmid, izeta, gsqrt, r12)
	Get current at midplane (?)

Detailed Description

Get current at midplane (?)

Definition in file getcurmid.f90.

Function/Subroutine Documentation

getcurmid()

subroutine getcurmid	(	real(rprec), dimension(2*ns)	curmid,
		real(rprec), dimension(ns,nzeta,*)	izeta,
		real(rprec), dimension(ns,nzeta,*)	gsqrt,
		real(rprec), dimension(ns,nzeta,*)	r12 )

Get current at midplane (?)

Parameters

curmid	current at midplane (?)
izeta	index in toroidal direction
gsqrt	Jacobian
r12	\(R^2\)

Definition at line 10 of file getcurmid.f90.

References vmec_dim::ns, vmec_dim::ns1, vmec_dim::ntheta2, and vmec_input::nzeta.