nestor_io.f90 File Reference

Input and Output for stand-alone NESTOR. More...

Go to the source code of this file.

Modules
module	nestor_io
	Input and Output for stand-alone NESTOR.

Functions/Subroutines
subroutine	nestor_io::read_nestor_inputs (vac_file)
subroutine	nestor_io::write_nestor_outputs (vac_file, lasym, ivac, ier_flag)
subroutine	write_nestor_inputs (vac_file, vacuum_calls, ier_flag, mgrid_file, input_extension, ivacskip, ivac, nfp, ntor, mpol, nzeta, ntheta, mnmax, xm, xn, rmnc, zmns, rmns, zmnc, rbtor, ctor, lasym, signgs, extcur_nestor, raxis_nestor, zaxis_nestor, wint, nznt, amatsav, bvecsav, mnpd2, bsubvvac)
subroutine	read_nestor_outputs (vac_file, ier_flag, ivac)

Variables
character(len=255)	nestor_io::input_extension
character(len=255)	nestor_io::mgrid_file
real(dp), dimension(:), allocatable	nestor_io::extcur
real(dp), dimension(:), allocatable	nestor_io::raxis
real(dp), dimension(:), allocatable	nestor_io::zaxis
real(dp), dimension(:), allocatable	nestor_io::xm
real(dp), dimension(:), allocatable	nestor_io::xn
real(dp), dimension(:), allocatable	nestor_io::rmnc
real(dp), dimension(:), allocatable	nestor_io::zmns
real(dp), dimension(:), allocatable	nestor_io::rmns
real(dp), dimension(:), allocatable	nestor_io::zmnc
real(dp), dimension(:), allocatable	nestor_io::wint
integer	nestor_io::nfp
integer	nestor_io::ntor
integer	nestor_io::mpol
integer	nestor_io::ntheta
integer	nestor_io::nzeta
integer	nestor_io::nextcur
integer	nestor_io::ier_flag
integer	nestor_io::ivac
integer	nestor_io::ivacskip
integer	nestor_io::mnmax
integer	nestor_io::vacuum_calls
logical	nestor_io::lasym
real(dp)	nestor_io::ctor
real(dp)	nestor_io::rbtor
real(dp)	nestor_io::signgs
integer	nestor_io::mnpd2_nestor
real(dp), dimension(:), allocatable	nestor_io::amatsav_nestor
real(dp), dimension(:), allocatable	nestor_io::bvecsav_nestor
real(dp)	nestor_io::bsubvvac_nestor
character(len= *), dimension(1), parameter	nestor_io::mn1dim = (/'mn_mode'/)
character(len= *), dimension(1), parameter	nestor_io::mnpotdim = (/'mn_mode_pot'/)
character(len= *), dimension(1), parameter	nestor_io::nzntdim = (/'nznt'/)
character(len= *), dimension(1), parameter	nestor_io::nzetadim = (/'nzeta'/)
character(len= *), dimension(1), parameter	nestor_io::nextcurim = (/'nextcur'/)
character(len= *), dimension(1), parameter	nestor_io::bvecsavdim =(/'mnpd2'/)
character(len= *), dimension(1), parameter	nestor_io::amatsavdim =(/'mnpd2_times_mnpd2'/)
character(len= *), dimension(2), parameter	nestor_io::r2dim = (/'mn_mode','radius '/)
character(len= *), parameter	nestor_io::vn_vacuum_calls = 'vacuum_calls'
character(len= *), parameter	nestor_io::vn_ier_flag = "ier_flag"
character(len= *), parameter	nestor_io::vn_mgrid = "mgrid_file"
character(len= *), parameter	nestor_io::vn_inputext = "input_extension"
character(len= *), parameter	nestor_io::vn_ivacskip = "ivacskip"
character(len= *), parameter	nestor_io::vn_ivac = "ivac"
character(len= *), parameter	nestor_io::vn_nfp = "nfp"
character(len= *), parameter	nestor_io::vn_ntor = "ntor"
character(len= *), parameter	nestor_io::vn_mpol = "mpol"
character(len= *), parameter	nestor_io::vn_nzeta = "nzeta"
character(len= *), parameter	nestor_io::vn_ntheta = "ntheta"
character(len= *), parameter	nestor_io::vn_mnmax = "mnmax"
character(len= *), parameter	nestor_io::vn_pmod = "xm"
character(len= *), parameter	nestor_io::vn_tmod = "xn"
character(len= *), parameter	nestor_io::vn_rmnc = "rmnc"
character(len= *), parameter	nestor_io::vn_zmns = "zmns"
character(len= *), parameter	nestor_io::vn_rmns = "rmns"
character(len= *), parameter	nestor_io::vn_zmnc = "zmnc"
character(len= *), parameter	nestor_io::vn_rbtor = "rbtor"
character(len= *), parameter	nestor_io::vn_ctor = "ctor"
character(len= *), parameter	nestor_io::vn_lasym = "lasym"
character(len= *), parameter	nestor_io::vn_signgs = "signgs"
character(len= *), parameter	nestor_io::vn_extcur = "extcur"
character(len= *), parameter	nestor_io::vn_raxis_nestor = "raxis_nestor"
character(len= *), parameter	nestor_io::vn_zaxis_nestor = "zaxis_nestor"
character(len= *), parameter	nestor_io::vn_wint = "wint"
character(len= *), parameter	nestor_io::vn_bsqvac = "bsqvac"
character(len= *), parameter	nestor_io::vn_mnpd = "mnpd"
character(len= *), parameter	nestor_io::vn_xmpot = "xmpot"
character(len= *), parameter	nestor_io::vn_xnpot = "xnpot"
character(len= *), parameter	nestor_io::vn_potvac = "potvac"
character(len= *), parameter	nestor_io::vn_brv = "brv"
character(len= *), parameter	nestor_io::vn_bphiv = "bphiv"
character(len= *), parameter	nestor_io::vn_bzv = "bzv"
character(len= *), parameter	nestor_io::vn_bsubvvac = "bsubvvac"
character(len= *), parameter	nestor_io::vn_amatsav = "amatsav"
character(len= *), parameter	nestor_io::vn_bvecsav = "bvecsav"
character(len= *), parameter	nestor_io::vn_mnpd2 = "mnpd2"
character(len= *), parameter	nestor_io::vn_r1b = "r1b"
character(len= *), parameter	nestor_io::vn_rub = "rub"
character(len= *), parameter	nestor_io::vn_rvb = "rvb"
character(len= *), parameter	nestor_io::vn_z1b = "z1b"
character(len= *), parameter	nestor_io::vn_zub = "zub"
character(len= *), parameter	nestor_io::vn_zvb = "zvb"
character(len= *), parameter	nestor_io::vn_ruu = "ruu"
character(len= *), parameter	nestor_io::vn_ruv = "ruv"
character(len= *), parameter	nestor_io::vn_rvv = "rvv"
character(len= *), parameter	nestor_io::vn_zuu = "zuu"
character(len= *), parameter	nestor_io::vn_zuv = "zuv"
character(len= *), parameter	nestor_io::vn_zvv = "zvv"
character(len= *), parameter	nestor_io::vn_guu_b = "guu_b"
character(len= *), parameter	nestor_io::vn_guv_b = "guv_b"
character(len= *), parameter	nestor_io::vn_gvv_b = "gvv_b"
character(len= *), parameter	nestor_io::vn_rzb2 = "rzb2"
character(len= *), parameter	nestor_io::vn_snr = "snr"
character(len= *), parameter	nestor_io::vn_snv = "snv"
character(len= *), parameter	nestor_io::vn_snz = "snz"
character(len= *), parameter	nestor_io::vn_drv = "drv"
character(len= *), parameter	nestor_io::vn_auu = "auu"
character(len= *), parameter	nestor_io::vn_auv = "auv"
character(len= *), parameter	nestor_io::vn_avv = "avv"
character(len= *), parameter	nestor_io::vn_rcosuv = "rcosuv"
character(len= *), parameter	nestor_io::vn_rsinuv = "rsinuv"
character(len= *), parameter	nestor_io::vn_brad = "brad"
character(len= *), parameter	nestor_io::vn_bphi = "bphi"
character(len= *), parameter	nestor_io::vn_bz = "bz"
character(len= *), parameter	nestor_io::vn_bexu = "bexu"
character(len= *), parameter	nestor_io::vn_bexv = "bexv"
character(len= *), parameter	nestor_io::vn_bexn = "bexn"
character(len= *), parameter	nestor_io::vn_bexni = "bexni"
character(len= *), parameter	nestor_io::vn_grpmn = "grpmn"
character(len= *), parameter	nestor_io::vn_adp = "adp"
character(len= *), parameter	nestor_io::vn_adm = "adm"
character(len= *), parameter	nestor_io::vn_cma = "cma"
character(len= *), parameter	nestor_io::vn_sqrtc = "sqrtc"
character(len= *), parameter	nestor_io::vn_sqrta = "sqrta"
character(len= *), parameter	nestor_io::vn_delt1u = "delt1u"
character(len= *), parameter	nestor_io::vn_azp1u = "azp1u"
character(len= *), parameter	nestor_io::vn_azm1u = "azm1u"
character(len= *), parameter	nestor_io::vn_cma11u = "cma11u"
character(len= *), parameter	nestor_io::vn_r1p = "r1p"
character(len= *), parameter	nestor_io::vn_r1m = "r1m"
character(len= *), parameter	nestor_io::vn_r0p = "r0p"
character(len= *), parameter	nestor_io::vn_r0m = "r0m"
character(len= *), parameter	nestor_io::vn_ra1p = "ra1p"
character(len= *), parameter	nestor_io::vn_ra1m = "ra1m"
character(len= *), parameter	nestor_io::vn_sqad1u = "sqad1u"
character(len= *), parameter	nestor_io::vn_sqad2u = "sqad2u"
character(len= *), parameter	nestor_io::vn_all_tlp = "all_tlp"
character(len= *), parameter	nestor_io::vn_all_tlm = "all_tlm"
character(len= *), parameter	nestor_io::vn_all_slp = "all_slp"
character(len= *), parameter	nestor_io::vn_all_slm = "all_slm"
character(len= *), parameter	nestor_io::vn_m_map = "m_map"
character(len= *), parameter	nestor_io::vn_n_map = "n_map"
character(len= *), parameter	nestor_io::vn_green = "green"
character(len= *), parameter	nestor_io::vn_greenp = "greenp"
character(len= *), parameter	nestor_io::vn_tanu = "tanu"
character(len= *), parameter	nestor_io::vn_tanv = "tanv"
character(len= *), parameter	nestor_io::vn_gstore = "gstore"
character(len= *), parameter	nestor_io::vn_grpmn_m_map = "grpmn_m_map"
character(len= *), parameter	nestor_io::vn_grpmn_n_map = "grpmn_n_map"
character(len= *), parameter	nestor_io::vn_imirr = "imirr"
character(len= *), parameter	nestor_io::vn_amatrix = "amatrix"
character(len= *), parameter	nestor_io::vn_potu = "potu"
character(len= *), parameter	nestor_io::vn_potv = "potv"
character(len= *), parameter	nestor_io::vn_bsubu = "bsubu"
character(len= *), parameter	nestor_io::vn_bsubv = "bsubv"

Detailed Description

Input and Output for stand-alone NESTOR.

Definition in file nestor_io.f90.

Function/Subroutine Documentation

read_nestor_outputs()

subroutine read_nestor_outputs	(	character(len=*), intent(in)	vac_file,
		integer, intent(out)	ier_flag,
		integer, intent(out)	ivac )

Definition at line 633 of file nestor_io.f90.

References vacmod::amatsav, vacmod::bphiv, vacmod::brv, vacmod::bsqvac, vacmod::bsubvvac, vacmod::bvecsav, vacmod::bzv, stel_kinds::dp, vacmod::potvac, nestor_io::vn_amatsav, nestor_io::vn_bphiv, nestor_io::vn_brv, nestor_io::vn_bsqvac, nestor_io::vn_bsubvvac, nestor_io::vn_bvecsav, nestor_io::vn_bzv, nestor_io::vn_ier_flag, nestor_io::vn_ivac, nestor_io::vn_mnpd, nestor_io::vn_mnpd2, nestor_io::vn_potvac, nestor_io::vn_xmpot, and nestor_io::vn_xnpot.

Referenced by funct3d().

Here is the caller graph for this function:

write_nestor_inputs()

subroutine write_nestor_inputs	(	character(len=*), intent(in)	vac_file,
		integer, intent(in)	vacuum_calls,
		integer, intent(in)	ier_flag,
		character(len=*), intent(in)	mgrid_file,
		character(len=*), intent(in)	input_extension,
		integer, intent(in)	ivacskip,
		integer, intent(in)	ivac,
		integer, intent(in)	nfp,
		integer, intent(in)	ntor,
		integer, intent(in)	mpol,
		integer, intent(in)	nzeta,
		integer, intent(in)	ntheta,
		integer, intent(in)	mnmax,
		real(dp), dimension(mnmax), intent(in)	xm,
		real(dp), dimension(mnmax), intent(in)	xn,
		real(dp), dimension(mnmax), intent(in)	rmnc,
		real(dp), dimension(mnmax), intent(in)	zmns,
		real(dp), dimension(mnmax), intent(in)	rmns,
		real(dp), dimension(mnmax), intent(in)	zmnc,
		real(dp), intent(in)	rbtor,
		real(dp), intent(in)	ctor,
		logical, intent(in)	lasym,
		real(dp), intent(in)	signgs,
		real(dp), dimension(nextcur), intent(in)	extcur_nestor,
		real(dp), dimension(nzeta), intent(in)	raxis_nestor,
		real(dp), dimension(nzeta), intent(in)	zaxis_nestor,
		real(dp), dimension(nznt), intent(in)	wint,
		integer, intent(in)	nznt,
		real(dp), dimension(mnpd2*mnpd2), intent(in)	amatsav,
		real(dp), dimension(mnpd2), intent(in)	bvecsav,
		integer, intent(in)	mnpd2,
		real(dp), intent(in)	bsubvvac )

Definition at line 497 of file nestor_io.f90.

References nestor_io::amatsavdim, nestor_io::bvecsavdim, stel_kinds::dp, nestor_io::mn1dim, nestor_io::mnpotdim, mgrid_mod::nextcur, nestor_io::nextcurim, nestor_io::nzetadim, nestor_io::nzntdim, nestor_io::r2dim, nestor_io::vn_amatsav, nestor_io::vn_bsubvvac, nestor_io::vn_bvecsav, nestor_io::vn_ctor, nestor_io::vn_extcur, nestor_io::vn_ier_flag, nestor_io::vn_inputext, nestor_io::vn_ivac, nestor_io::vn_ivacskip, nestor_io::vn_lasym, nestor_io::vn_mgrid, nestor_io::vn_mnmax, nestor_io::vn_mnpd2, nestor_io::vn_mpol, mgrid_mod::vn_nfp, nestor_io::vn_ntheta, nestor_io::vn_ntor, nestor_io::vn_nzeta, nestor_io::vn_pmod, nestor_io::vn_raxis_nestor, nestor_io::vn_rbtor, nestor_io::vn_rmnc, nestor_io::vn_rmns, nestor_io::vn_signgs, nestor_io::vn_tmod, nestor_io::vn_vacuum_calls, nestor_io::vn_wint, nestor_io::vn_zaxis_nestor, nestor_io::vn_zmnc, and nestor_io::vn_zmns.

Referenced by funct3d().

Here is the caller graph for this function: