LION
 All Classes Files Functions Variables Pages
Public Member Functions | Public Attributes | List of all members
globals Module Reference

Public Member Functions

subroutine print_bulk_plasma (iounit)
 

Public Attributes

integer, parameter mdpsi = 256
 
integer, parameter mdchi = 129
 
integer, parameter mdr = 301
 
integer, parameter mdz = 221
 
integer, parameter mdstore = 1
 
integer, parameter mdpsi1 = mdpsi+1
 
integer, parameter mdchi1 = mdchi+1
 
integer, parameter mdin2 = 2*mdchi-2
 
integer, parameter mdpol = 2*mdchi-2
 
integer, parameter md2cp2 = 2*mdchi+2
 
integer, parameter mdrz = mdr+2*mdz
 
integer, parameter mdcol = 3*mdpol
 
integer, parameter mdcomp = 2*mdpsi*mdpol+mdpol
 
integer, parameter mdspec = 10
 
integer, parameter mdspc2 = mdspec+2
 
integer, parameter mdeq = 29
 
integer, parameter md2fp1 = 15
 
integer, parameter mdden = 8
 
integer, parameter mdpol1 = mdpol+1
 
integer, parameter mdovl = mdpol*mdpol
 
integer, parameter mdleng = mdcol*mdcol
 
integer, parameter mdfaka = 20
 
integer, parameter mdbcas = 20
 
integer, parameter mdpant = 10
 
integer, parameter mdtant = 4
 
integer, parameter mdad = 10
 
real(rkind), parameter cpi = 3.1415926535898_RKIND
 
real(rkind), parameter c2pi = 2.0_RKIND*cpi
 
real(rkind), parameter clight = 2.99793e+8_RKIND
 
real(rkind), parameter cmu0 = 4.0e-7_RKIND*cpi
 
real(rkind), parameter ceps0 = 1.0_RKIND/(cmu0*clight*clight)
 
real(rkind), parameter cme = 9.1094e-31_RKIND
 
real(rkind), parameter cmp = 1.673e-27_RKIND
 
real(rkind), parameter che = 1.6022e-19_RKIND
 
integer, parameter msraux = 2*mdovl+224
 
integer, parameter msiaux = 6
 
integer, parameter mslaux = 1
 
integer, parameter msrcon = 21
 
integer, parameter msicon = 7
 
integer, parameter mslcon = 84
 
integer, parameter msrequ = mdeq*mdpol+6*mdspec+41
 
integer, parameter msresh = md2cp2
 
integer, parameter msiesh = 3
 
integer, parameter msrivi = 1
 
integer, parameter msiivi = 8
 
integer, parameter msrmtr = 2*mdleng
 
integer, parameter msinum = 3
 
integer, parameter msiout = 10
 
integer, parameter msrphy = mdspec*11+mdad+mdbcas+mdpant*3+mdfaka+mdpsi1*2+mdtant+32
 
integer, parameter msiphy = 13
 
integer, parameter mslphy = 5
 
integer, parameter msrvec = 2*mdcomp*2+2*mdcol*3+2*mdpol+mdpol*2+2
 
integer, save cocos_in
 
integer, save cocos_out
 
integer, save iout_time_slice
 
integer, dimension(6), save nplac = 0
 
integer, save ncontr = 0
 
integer, save ncut = 0
 
integer, save npltyp = 0
 
integer, save nrun = 0
 
integer, save ntorsp = 0
 
integer, save mfl = 0
 
integer, save mfu = 0
 
integer, save nchi = 0
 
integer, save npol = 0
 
integer, save npsi = 0
 
integer, save m1 = 0
 
integer, save m11 = 0
 
integer, save m12 = 0
 
integer, save m2 = 0
 
integer, save n = 0
 
integer, save ncomp = 0
 
integer, save nlong = 0
 
integer, save nsing = 0
 
integer, save length = 0
 
integer, save ncolmn = 0
 
integer, save number = 0
 
integer, save nverbose = 3
 
integer, save meq = 0
 
integer, save nda = 0
 
integer, save ndes = 0
 
integer, save ndlt = 0
 
integer, save nds = 0
 
integer, save nread = 0
 
integer, save nprnt = 0
 
integer, save nsave = 0
 
integer, save nsourc = 0
 
integer, save nvac = 0
 
integer, save mancmp = 0
 
integer, dimension(mdpant), save mpolwn = 0
 
integer, save nantsheet = 0
 
integer, save nantyp = 0
 
integer, save nant_itm = 0
 
integer, save nbcase = 0
 
integer, save nbtype = 0
 
integer, save ndarg = 0
 
integer, save nddeg = 0
 
integer, save ndens = 0
 
integer, save nfakap = 0
 
integer, save neldttmp = 0
 
integer, save neldttmpcor = 0
 
integer, save nharm = 0
 
integer, save nrspec = 0
 
integer, save nsaddl = 0
 
integer, save ntemp = 0
 
integer, dimension(mdpsi,
mdpol), save 		mout = 0
 
integer, dimension(md2fp1,
mdpsi), save 		moutf = 0
 
integer, save nrzsur = 0
 
integer, save ndim = 0
 
integer, save nitmopt = 22
 
integer, dimension(2), save nitmrun = 0
 
integer, dimension(2), save nitmshot = 0
 
real(rkind), save rqb = 0.0_RKIND
 
real(rkind), save rtb = 0.0_RKIND
 
real(rkind), dimension(16), save xf = 0.0_RKIND
 
real(rkind), save aheigt = 0.0_RKIND
 
real(rkind), save alarg = 0.0_RKIND
 
real(rkind), save alfspd = 0.0_RKIND
 
real(rkind), dimension(16), save anglet = 0.0_RKIND
 
real(rkind), save arsize = 0.0_RKIND
 
real(rkind), save asymb = 0.0_RKIND
 
real(rkind), save wntdel = 0.0_RKIND
 
real(rkind), dimension(mdeq,
mdpol, mdpsi1), save 		eq = 0.0_RKIND
 
real(rkind), dimension(mdeq,
mdpol, mdpsi1), save 		eq2 = 0.0_RKIND
 
real(rkind), save wbetch = 0.0_RKIND
 
real(rkind), save wbpol2 = 0.0_RKIND
 
real(rkind), save wbtor2 = 0.0_RKIND
 
real(rkind), save wbtot = 0.0_RKIND
 
real(rkind), save wbtot2 = 0.0_RKIND
 
real(rkind), save wchi = 0.0_RKIND
 
real(rkind), save wchisf = 0.0_RKIND
 
real(rkind), save wdchi = 0.0_RKIND
 
real(rkind), save wds = 0.0_RKIND
 
real(rkind), dimension(mdspec),
save 		wfrac = 0.0_RKIND
 
real(rkind), save wgrps2 = 0.0_RKIND
 
real(rkind), save wh = 0.0_RKIND
 
real(rkind), save wjac = 0.0_RKIND
 
real(rkind), save wk = 0.0_RKIND
 
real(rkind), save wnu = 0.0_RKIND
 
real(rkind), dimension(mdspec),
save 		womci = 0.0_RKIND
 
real(rkind), save wp = 0.0_RKIND
 
real(rkind), save wpaxis = 0.0_RKIND
 
real(rkind), save wpsi = 0.0_RKIND
 
real(rkind), save wq = 0.0_RKIND
 
real(rkind), save wr2 = 0.0_RKIND
 
real(rkind), save wrho = 0.0_RKIND
 
real(rkind), save ws = 0.0_RKIND
 
real(rkind), save wt = 0.0_RKIND
 
real(rkind), save wtq = 0.0_RKIND
 
real(rkind), save wdcr2j = 0.0_RKIND
 
real(rkind), save wdpt = 0.0_RKIND
 
real(rkind), save wj0phi = 0.0_RKIND
 
real(rkind), save wdngp = 0.0_RKIND
 
real(rkind), save wdpr2j = 0.0_RKIND
 
real(rkind), save wdqcds = 0.0_RKIND
 
real(rkind), dimension(md2cp2),
save 		chi = 0.0_RKIND
 
real(rkind), save epsmac = 0.0_RKIND
 
real(rkind), dimension(mdspec),
save 		acharg = 0.0_RKIND
 
real(rkind), dimension(mdad), save ad = 0.0_RKIND
 
real(rkind), dimension(mdspec),
save 		amass = 0.0_RKIND
 
real(rkind), save amasse = 0.0_RKIND
 
real(rkind), save antrad = 0.0_RKIND
 
real(rkind), save antradmax = 0.0_RKIND
 
real(rkind), save antup = 0.0_RKIND
 
real(rkind), save anu = 0.0_RKIND
 
real(rkind), save aspct = 0.0_RKIND
 
real(rkind), dimension(mdad), save ate = 0.0_RKIND
 
real(rkind), dimension(mdad), save ati = 0.0_RKIND
 
real(rkind), dimension(mdad), save atip = 0.0_RKIND
 
real(rkind), save beta = 0.0_RKIND
 
real(rkind), save betap = 0.0_RKIND
 
real(rkind), save betas = 0.0_RKIND
 
real(rkind), save bnot = 0.0_RKIND
 
real(rkind), dimension(mdbcas),
save 		cen0 = 0.0_RKIND
 
real(rkind), dimension(mdspec),
save 		cenden = 0.0_RKIND
 
real(rkind), save cente = 0.0_RKIND
 
real(rkind), dimension(mdspec),
save 		centi = 0.0_RKIND
 
real(rkind), dimension(mdspec),
save 		centip = 0.0_RKIND
 
real(rkind), dimension(mdspec),
save 		ceomci = 0.0_RKIND
 
real(rkind), save cpsrf = 0.0_RKIND
 
real(rkind), dimension(mdpant),
save 		curasy = 0.0_RKIND
 
real(rkind), dimension(mdpant),
save 		cursym = 0.0_RKIND
 
real(rkind), save delta = 0.0_RKIND
 
real(rkind), save deltaf = 0.0_RKIND
 
real(rkind), save ellipt = 0.0_RKIND
 
real(rkind), save eqalfd = 0.0_RKIND
 
real(rkind), save eqdens = 0.0_RKIND
 
real(rkind), save eqfast = 0.0_RKIND
 
real(rkind), save eqkapd = 0.0_RKIND
 
real(rkind), dimension(mdfaka),
save 		eqkapf = 0.0_RKIND
 
real(rkind), dimension(mdspec),
save 		eqkapt = 0.0_RKIND
 
real(rkind), save eqkpte = 0.0_RKIND
 
real(rkind), save eqte = 0.0_RKIND
 
real(rkind), dimension(mdspec),
save 		eqti = 0.0_RKIND
 
real(rkind), save feedup = 0.0_RKIND
 
real(rkind), dimension(mdspec),
save 		frac = 0.0_RKIND
 
real(rkind), dimension(mdspec),
save 		frcen = 0.0_RKIND
 
real(rkind), dimension(mdspec),
save 		frdel = 0.0_RKIND
 
real(rkind), save freqcy = 0.0_RKIND
 
real(rkind), save gamma = 0.0_RKIND
 
real(rkind), save omega = 0.0_RKIND
 
real(rkind), dimension(mdpsi1),
save 		qs = 0.0_RKIND
 
real(rkind), dimension(mdpsi1),
save 		qtilda = 0.0_RKIND
 
real(rkind), save qiaxe = 0.0_RKIND
 
real(rkind), save rmajor = 0.0_RKIND
 
real(rkind), save samin = 0.0_RKIND
 
real(rkind), save samax = 0.0_RKIND
 
real(rkind), save sigma = 0.0_RKIND
 
real(rkind), dimension(mdtant),
save 		thant = 0.0_RKIND
 
real(rkind), save thantw = 0.0_RKIND
 
real(rkind), save vbirth = 0.0_RKIND
 
real(rkind), save walrad = 0.0_RKIND
 
real(rkind), save wntoro = 0.0_RKIND
 
real(rkind), dimension(mdpsi,
mdpol), save 		aimeps = 0.0_RKIND
 
real(rkind), dimension(mdpsi), save abspow = 0.0_RKIND
 
real(rkind), dimension(mdpsi,
mdspc2), save 		abspsp = 0.0_RKIND
 
real(rkind), save aphi = 0.0_RKIND
 
real(rkind), dimension(mdpol), save cchi = 0.0_RKIND
 
real(rkind), dimension(0:mdpsi,
mdpol1), save 		ccr = 0.0_RKIND
 
real(rkind), dimension(mdpsi), save ccs = 0.0_RKIND
 
real(rkind), dimension(0:mdpsi,
mdpol1), save 		ccz = 0.0_RKIND
 
real(rkind), save cdevia = 0.0_RKIND
 
real(rkind), dimension(mdpsi,
mdpol), save 		celpow = 0.0_RKIND
 
real(rkind), dimension(mdpol), save chipow = 0.0_RKIND
 
real(rkind), save cmean = 0.0_RKIND
 
real(rkind), dimension(mdpsi,
mdpol), save 		cnr = 0.0_RKIND
 
real(rkind), dimension(mdpsi,
mdpol), save 		cnz = 0.0_RKIND
 
real(rkind), dimension(mdpsi,
mdpol), save 		cost = 0.0_RKIND
 
real(rkind), save cpl = 0.0_RKIND
 
real(rkind), save cple = 0.0_RKIND
 
real(rkind), dimension(mdspc2),
save 		cplj = 0.0_RKIND
 
real(rkind), dimension(0:mdpsi,
mdpol1), save 		denpow = 0.0_RKIND
 
real(rkind), dimension(mdpsi), save depos = 0.0_RKIND
 
real(rkind), dimension(mdpsi,
mdspc2), save 		deppsp = 0.0_RKIND
 
real(rkind), save dpl = 0.0_RKIND
 
real(rkind), save dple = 0.0_RKIND
 
real(rkind), dimension(mdspc2),
save 		dplj = 0.0_RKIND
 
real(rkind), dimension(mdpsi,
mdpol), save 		dsprel = 0.0_RKIND
 
real(rkind), save echel = 0.0_RKIND
 
real(rkind), save elepow = 0.0_RKIND
 
real(rkind), dimension(mdpsi), save enchi0 = 0.0_RKIND
 
real(rkind), dimension(mdpsi), save enphi0 = 0.0_RKIND
 
real(rkind), dimension(mdpsi), save epchi0 = 0.0_RKIND
 
real(rkind), dimension(mdpsi), save epphi0 = 0.0_RKIND
 
real(rkind), dimension(mdden,
mdpsi), save 		eqrden = 0.0_RKIND
 
real(rkind), dimension(0:mdpsi,
mdpol1), save 		er = 0.0_RKIND
 
real(rkind), dimension(0:mdpsi,
mdpol1), save 		ez = 0.0_RKIND
 
real(rkind), dimension(mdpsi1),
save 		flupow = 0.0_RKIND
 
real(rkind), dimension(mdpsi1,
mdspc2), save 		flupsp = 0.0_RKIND
 
real(rkind), dimension(md2fp1,
mdpsi), save 		frout = 0.0_RKIND
 
real(rkind), dimension(md2fp1,
mdpsi), save 		fralf = 0.0_RKIND
 
real(rkind), dimension(mdpsi,
mdpol), save 		omclin = 0.0_RKIND
 
real(rkind), save sdevia = 0.0_RKIND
 
real(rkind), dimension(mdpsi), save sflux = 0.0_RKIND
 
real(rkind), dimension(mdpsi,
mdpol), save 		sint = 0.0_RKIND
 
real(rkind), save smean = 0.0_RKIND
 
real(rkind), dimension(mdpsi,
mdpol), save 		sn = 0.0_RKIND
 
real(rkind), save snl = 0.0_RKIND
 
real(rkind), dimension(mdpsi,
mdpol), save 		spar = 0.0_RKIND
 
real(rkind), save sparl = 0.0_RKIND
 
real(rkind), dimension(mdpsi,
mdpol), save 		sperp = 0.0_RKIND
 
real(rkind), save spl = 0.0_RKIND
 
real(rkind), dimension(mdpsi), save surpsi = 0.0_RKIND
 
real(rkind), dimension(mdpsi,
mdpol), save 		vout1 = 0.0_RKIND
 
real(rkind), dimension(mdpsi,
mdpol), save 		vout2 = 0.0_RKIND
 
real(rkind), dimension(mdrz), save xs = 0.0_RKIND
 
real(rkind), dimension(mdrz), save ys = 0.0_RKIND
 
real(rkind), dimension(0:mdpsi+1,
mdpol1), save 		ccr2 = 0.0_RKIND
 
real(rkind), dimension(0:mdpsi+1,
mdpol1), save 		ccz2 = 0.0_RKIND
 
real(rkind), dimension(mdpsi+1,
mdpol), save 		cnr2 = 0.0_RKIND
 
real(rkind), dimension(mdpsi+1,
mdpol), save 		cnz2 = 0.0_RKIND
 
real(rkind), dimension(mdpol), save xdchi = 0.0_RKIND
 
real(rkind), dimension(mdpol), save xdth = 0.0_RKIND
 
real(rkind), save ca = 0.0_RKIND
 
real(rkind), save canten = 0.0_RKIND
 
real(rkind), save cb = 0.0_RKIND
 
real(rkind), save cc = 0.0_RKIND
 
real(rkind), dimension(mdpol+1),
save 		chiold = 0.0_RKIND
 
real(rkind), dimension(md2cp2),
save 		dc = 0.0_RKIND
 
real(rkind), dimension(md2cp2),
save 		delth = 0.0_RKIND
 
real(rkind), dimension(mdpol,
3), save 		droint = 0.0_RKIND
 
real(rkind), dimension(4), save drodt = 0.0_RKIND
 
real(rkind), dimension(4), save dropdt = 0.0_RKIND
 
real(rkind), save d2rop = 0.0_RKIND
 
real(rkind), dimension(mdpol,
mdpol, 13), save 		g = 0.0_RKIND
 
real(rkind), save qb = 0.0_RKIND
 
real(rkind), dimension(4), save ro = 0.0_RKIND
 
real(rkind), dimension(md2cp2),
save 		roedge = 0.0_RKIND
 
real(rkind), dimension(mdpol,
3), save 		roint = 0.0_RKIND
 
real(rkind), dimension(md2cp2),
save 		romid = 0.0_RKIND
 
real(rkind), dimension(4), save rop = 0.0_RKIND
 
real(rkind), save ro2 = 0.0_RKIND
 
real(rkind), save ro2p = 0.0_RKIND
 
real(rkind), dimension(md2cp2),
save 		sr = 0.0_RKIND
 
real(rkind), dimension(md2cp2),
save 		sz = 0.0_RKIND
 
real(rkind), dimension(md2cp2),
save 		t = 0.0_RKIND
 
real(rkind), save tb = 0.0_RKIND
 
real(rkind), dimension(md2cp2),
save 		th = 0.0_RKIND
 
real(rkind), dimension(mdpol,
3), save 		thint = 0.0_RKIND
 
real(rkind), dimension(4), save tp = 0.0_RKIND
 
real(rkind), dimension(4), save tt = 0.0_RKIND
 
real(rkind), dimension(mdpol), save dcr2j = 0.0_RKIND
 
real(rkind), dimension(mdpol), save r2j = 0.0_RKIND
 
real(rkind), dimension(10), save wall = 0.0_RKIND
 
real(rkind), dimension(16), save angle = 0.0_RKIND
 
real(rkind), dimension(2), save time_itm = -9.E+40_RKIND
 
logical, save nlquad = .FALSE.
 
logical, save nldiso = .FALSE.
 
logical, save nlphas = .FALSE.
 
logical, save nlotp0 = .FALSE.
 
logical, dimension(4), save nlotp1 = .FALSE.
 
logical, dimension(5), save nlotp2 = .FALSE.
 
logical, dimension(2), save nlotp3 = .FALSE.
 
logical, dimension(5), save nlotp4 = .FALSE.
 
logical, dimension(40), save nlotp5 = .FALSE.
 
logical, dimension(25), save nlplo5 = .FALSE.
 
logical, save nlcold = .FALSE.
 
logical, save nlcole = .FALSE.
 
logical, save nldip = .FALSE.
 
logical, save nlfast = .FALSE.
 
logical, save nlttmp = .FALSE.
 
logical, dimension(1:30), save nldiag = .FALSE.
 
logical, save nleinq = .FALSE.
 
logical, save nlgren = .FALSE.
 
logical, save nlsym = .FALSE.
 
complex, dimension(6, 6), save cona = (0._RKIND, 0._RKIND)
 
complex, save reacs = (0._RKIND, 0._RKIND)
 
complex, dimension(mdovl), save vac = (0._RKIND, 0._RKIND)
 
complex, dimension(8), save xc1 = (0._RKIND, 0._RKIND)
 
complex, dimension(5), save xeta = (0._RKIND, 0._RKIND)
 
complex, dimension(5), save xksi = (0._RKIND, 0._RKIND)
 
complex, dimension(6, 6), save xm = (0._RKIND, 0._RKIND)
 
complex, dimension(6), save xveta = (0._RKIND, 0._RKIND)
 
complex, dimension(6), save xvksi = (0._RKIND, 0._RKIND)
 
complex, save wcomeg = (0._RKIND, 0._RKIND)
 
complex, save weps = (0._RKIND, 0._RKIND)
 
complex, save wepsel = (0._RKIND, 0._RKIND)
 
complex, save wepsel0 = (0._RKIND, 0._RKIND)
 
complex, dimension(mdspec), save wepsi = (0._RKIND, 0._RKIND)
 
complex, save wepsmc = (0._RKIND, 0._RKIND)
 
complex, save wepsttmp = (0._RKIND, 0._RKIND)
 
complex, save wg = (0._RKIND, 0._RKIND)
 
complex, dimension(mdspec), save wgi = (0._RKIND, 0._RKIND)
 
complex, dimension(mdleng), save a1d = (0._RKIND, 0._RKIND)
 
complex, dimension(1-mdstore+2
*mdpol *mdcol *mdstore,
1-mdstore+mdpsi *mdstore),
save 		aall = (0._RKIND, 0._RKIND)
 
complex, dimension(0:mdpsi,
mdpol1), save 		bn = (0._RKIND, 0._RKIND)
 
complex, dimension(0:mdpsi,
mdpol1), save 		bb = (0._RKIND, 0._RKIND)
 
complex, dimension(0:mdpsi,
mdpol1), save 		bpar = (0._RKIND, 0._RKIND)
 
complex, save bnl = (0._RKIND, 0._RKIND)
 
complex, save bparl = (0._RKIND, 0._RKIND)
 
complex, save bpl = (0._RKIND, 0._RKIND)
 
complex, save dvdc = (0._RKIND, 0._RKIND)
 
complex, save dxdc = (0._RKIND, 0._RKIND)
 
complex, save dxds = (0._RKIND, 0._RKIND)
 
complex, dimension(0:mdpsi,
mdpol1), save 		en = (0._RKIND, 0._RKIND)
 
complex, save enl = (0._RKIND, 0._RKIND)
 
complex, dimension(0:mdpsi,
mdpol1), save 		ep = (0._RKIND, 0._RKIND)
 
complex, save epl = (0._RKIND, 0._RKIND)
 
complex, dimension(md2fp1,
mdpsi), save 		frbn = (0._RKIND, 0._RKIND)
 
complex, dimension(md2fp1,
mdpsi), save 		frbn2 = (0._RKIND, 0._RKIND)
 
complex, dimension(md2fp1,
mdpsi), save 		frbb = (0._RKIND, 0._RKIND)
 
complex, dimension(md2fp1,
mdpsi), save 		frbb2 = (0._RKIND, 0._RKIND)
 
complex, dimension(md2fp1,
mdpsi), save 		frbpar = (0._RKIND, 0._RKIND)
 
complex, dimension(md2fp1,
mdpsi), save 		frbpa2 = (0._RKIND, 0._RKIND)
 
complex, dimension(md2fp1,
mdpsi), save 		fren = (0._RKIND, 0._RKIND)
 
complex, dimension(md2fp1,
mdpsi), save 		fren2 = (0._RKIND, 0._RKIND)
 
complex, dimension(md2fp1,
mdpsi), save 		frep = (0._RKIND, 0._RKIND)
 
complex, dimension(md2fp1,
mdpsi), save 		frep2 = (0._RKIND, 0._RKIND)
 
complex, dimension(mdpol,
md2fp1), save 		frint = (0._RKIND, 0._RKIND)
 
complex, dimension(mdcomp), save sol = (0._RKIND, 0._RKIND)
 
complex, save vc = (0._RKIND, 0._RKIND)
 
complex, save xc = (0._RKIND, 0._RKIND)
 
complex, dimension(mdcomp), save sourct = (0._RKIND, 0._RKIND)
 
complex, dimension(mdcol), save u = (0._RKIND, 0._RKIND)
 
complex, save ut = (0._RKIND, 0._RKIND)
 
complex, dimension(mdcol), save va = (0._RKIND, 0._RKIND)
 
complex, dimension(mdcol), save x = (0._RKIND, 0._RKIND)
 
complex, dimension(mdpol), save xohmr = (0._RKIND, 0._RKIND)
 
complex, dimension(mdcomp), save xt = (0._RKIND, 0._RKIND)
 
complex, dimension(mdpol), save antr = (0._RKIND, 0._RKIND)
 
complex, dimension(mdpol), save antrx = (0._RKIND, 0._RKIND)
 
complex, dimension(mdpol), save sautr = (0._RKIND, 0._RKIND)
 
complex, dimension(mdpol), save sautx = (0._RKIND, 0._RKIND)
 
complex, dimension(mdpol), save ohmr = (0._RKIND, 0._RKIND)
 
complex, save reascr = (0._RKIND, 0._RKIND)
 
complex, dimension(mdpol), save source = (0._RKIND, 0._RKIND)
 
complex, dimension(mdpol,
mdpol), save 		wvac = (0._RKIND, 0._RKIND)
 
character *80, save label1
 
character *80, save label2
 
character *80, save label3
 
character *80, save label4
 
character *80, save label5
 
character *80, save label6
 
character *80, save label7
 
character *80, save label8
 
character(len=120), dimension(4),
save 		comments = ' '
 
type(ids_waves) waveslion_out
 

Member Function/Subroutine Documentation

subroutine globals::print_bulk_plasma ( integer  iounit)

Member Data Documentation

complex, dimension(mdleng), save globals::a1d = (0._RKIND, 0._RKIND)
complex, dimension(1-mdstore+2*mdpol*mdcol*mdstore,1-mdstore+mdpsi*mdstore), save globals::aall = (0._RKIND, 0._RKIND)
real(rkind), dimension(mdpsi), save globals::abspow = 0.0_RKIND
real(rkind), dimension(mdpsi,mdspc2), save globals::abspsp = 0.0_RKIND
real(rkind), dimension(mdspec), save globals::acharg = 0.0_RKIND
real(rkind), dimension(mdad), save globals::ad = 0.0_RKIND
real(rkind), save globals::aheigt = 0.0_RKIND
real(rkind), dimension(mdpsi,mdpol), save globals::aimeps = 0.0_RKIND
real(rkind), save globals::alarg = 0.0_RKIND
real(rkind), save globals::alfspd = 0.0_RKIND
real(rkind), dimension(mdspec), save globals::amass = 0.0_RKIND
real(rkind), save globals::amasse = 0.0_RKIND
real(rkind), dimension(16), save globals::angle = 0.0_RKIND
real(rkind), dimension(16), save globals::anglet = 0.0_RKIND
complex, dimension(mdpol), save globals::antr = (0._RKIND, 0._RKIND)
real(rkind), save globals::antrad = 0.0_RKIND
real(rkind), save globals::antradmax = 0.0_RKIND
complex, dimension(mdpol), save globals::antrx = (0._RKIND, 0._RKIND)
real(rkind), save globals::antup = 0.0_RKIND
real(rkind), save globals::anu = 0.0_RKIND
real(rkind), save globals::aphi = 0.0_RKIND
real(rkind), save globals::arsize = 0.0_RKIND
real(rkind), save globals::aspct = 0.0_RKIND
real(rkind), save globals::asymb = 0.0_RKIND
real(rkind), dimension(mdad), save globals::ate = 0.0_RKIND
real(rkind), dimension(mdad), save globals::ati = 0.0_RKIND
real(rkind), dimension(mdad), save globals::atip = 0.0_RKIND
complex, dimension(0:mdpsi,mdpol1), save globals::bb = (0._RKIND, 0._RKIND)
real(rkind), save globals::beta = 0.0_RKIND
real(rkind), save globals::betap = 0.0_RKIND
real(rkind), save globals::betas = 0.0_RKIND
complex, dimension(0:mdpsi,mdpol1), save globals::bn = (0._RKIND, 0._RKIND)
complex, save globals::bnl = (0._RKIND, 0._RKIND)
real(rkind), save globals::bnot = 0.0_RKIND
complex, dimension(0:mdpsi,mdpol1), save globals::bpar = (0._RKIND, 0._RKIND)
complex, save globals::bparl = (0._RKIND, 0._RKIND)
complex, save globals::bpl = (0._RKIND, 0._RKIND)
real(rkind), parameter globals::c2pi = 2.0_RKIND*cpi
real(rkind), save globals::ca = 0.0_RKIND
real(rkind), save globals::canten = 0.0_RKIND
real(rkind), save globals::cb = 0.0_RKIND
real(rkind), save globals::cc = 0.0_RKIND
real(rkind), dimension(mdpol), save globals::cchi = 0.0_RKIND
real(rkind), dimension(0:mdpsi,mdpol1), save globals::ccr = 0.0_RKIND
real(rkind), dimension(0:mdpsi+1,mdpol1), save globals::ccr2 = 0.0_RKIND
real(rkind), dimension(mdpsi), save globals::ccs = 0.0_RKIND
real(rkind), dimension(0:mdpsi,mdpol1), save globals::ccz = 0.0_RKIND
real(rkind), dimension(0:mdpsi+1,mdpol1), save globals::ccz2 = 0.0_RKIND
real(rkind), save globals::cdevia = 0.0_RKIND
real(rkind), dimension(mdpsi,mdpol), save globals::celpow = 0.0_RKIND
real(rkind), dimension(mdbcas), save globals::cen0 = 0.0_RKIND
real(rkind), dimension(mdspec), save globals::cenden = 0.0_RKIND
real(rkind), save globals::cente = 0.0_RKIND
real(rkind), dimension(mdspec), save globals::centi = 0.0_RKIND
real(rkind), dimension(mdspec), save globals::centip = 0.0_RKIND
real(rkind), dimension(mdspec), save globals::ceomci = 0.0_RKIND
real(rkind), parameter globals::ceps0 = 1.0_RKIND/(cmu0*clight*clight)
real(rkind), parameter globals::che = 1.6022e-19_RKIND
real(rkind), dimension(md2cp2), save globals::chi = 0.0_RKIND
real(rkind), dimension(mdpol+1), save globals::chiold = 0.0_RKIND
real(rkind), dimension(mdpol), save globals::chipow = 0.0_RKIND
real(rkind), parameter globals::clight = 2.99793e+8_RKIND
real(rkind), parameter globals::cme = 9.1094e-31_RKIND
real(rkind), save globals::cmean = 0.0_RKIND
real(rkind), parameter globals::cmp = 1.673e-27_RKIND
real(rkind), parameter globals::cmu0 = 4.0e-7_RKIND*cpi
real(rkind), dimension(mdpsi,mdpol), save globals::cnr = 0.0_RKIND
real(rkind), dimension(mdpsi+1,mdpol), save globals::cnr2 = 0.0_RKIND
real(rkind), dimension(mdpsi,mdpol), save globals::cnz = 0.0_RKIND
real(rkind), dimension(mdpsi+1,mdpol), save globals::cnz2 = 0.0_RKIND
integer, save globals::cocos_in
integer, save globals::cocos_out
character(len=120), dimension(4), save globals::comments = ' '
complex, dimension(6,6), save globals::cona = (0._RKIND, 0._RKIND)
real(rkind), dimension(mdpsi,mdpol), save globals::cost = 0.0_RKIND
real(rkind), parameter globals::cpi = 3.1415926535898_RKIND
real(rkind), save globals::cpl = 0.0_RKIND
real(rkind), save globals::cple = 0.0_RKIND
real(rkind), dimension(mdspc2), save globals::cplj = 0.0_RKIND
real(rkind), save globals::cpsrf = 0.0_RKIND
real(rkind), dimension(mdpant), save globals::curasy = 0.0_RKIND
real(rkind), dimension(mdpant), save globals::cursym = 0.0_RKIND
real(rkind), save globals::d2rop = 0.0_RKIND
real(rkind), dimension(md2cp2), save globals::dc = 0.0_RKIND
real(rkind), dimension(mdpol), save globals::dcr2j = 0.0_RKIND
real(rkind), save globals::delta = 0.0_RKIND
real(rkind), save globals::deltaf = 0.0_RKIND
real(rkind), dimension(md2cp2), save globals::delth = 0.0_RKIND
real(rkind), dimension(0:mdpsi,mdpol1), save globals::denpow = 0.0_RKIND
real(rkind), dimension(mdpsi), save globals::depos = 0.0_RKIND
real(rkind), dimension(mdpsi,mdspc2), save globals::deppsp = 0.0_RKIND
real(rkind), save globals::dpl = 0.0_RKIND
real(rkind), save globals::dple = 0.0_RKIND
real(rkind), dimension(mdspc2), save globals::dplj = 0.0_RKIND
real(rkind), dimension(4), save globals::drodt = 0.0_RKIND
real(rkind), dimension(mdpol,3), save globals::droint = 0.0_RKIND
real(rkind), dimension(4), save globals::dropdt = 0.0_RKIND
real(rkind), dimension(mdpsi,mdpol), save globals::dsprel = 0.0_RKIND
complex, save globals::dvdc = (0._RKIND, 0._RKIND)
complex, save globals::dxdc = (0._RKIND, 0._RKIND)
complex, save globals::dxds = (0._RKIND, 0._RKIND)
real(rkind), save globals::echel = 0.0_RKIND
real(rkind), save globals::elepow = 0.0_RKIND
real(rkind), save globals::ellipt = 0.0_RKIND
complex, dimension(0:mdpsi,mdpol1), save globals::en = (0._RKIND, 0._RKIND)
real(rkind), dimension(mdpsi), save globals::enchi0 = 0.0_RKIND
complex, save globals::enl = (0._RKIND, 0._RKIND)
real(rkind), dimension(mdpsi), save globals::enphi0 = 0.0_RKIND
complex, dimension(0:mdpsi,mdpol1), save globals::ep = (0._RKIND, 0._RKIND)
real(rkind), dimension(mdpsi), save globals::epchi0 = 0.0_RKIND
complex, save globals::epl = (0._RKIND, 0._RKIND)
real(rkind), dimension(mdpsi), save globals::epphi0 = 0.0_RKIND
real(rkind), save globals::epsmac = 0.0_RKIND
real(rkind), dimension(mdeq,mdpol,mdpsi1), save globals::eq = 0.0_RKIND
real(rkind), dimension(mdeq,mdpol,mdpsi1), save globals::eq2 = 0.0_RKIND
real(rkind), save globals::eqalfd = 0.0_RKIND
real(rkind), save globals::eqdens = 0.0_RKIND
real(rkind), save globals::eqfast = 0.0_RKIND
real(rkind), save globals::eqkapd = 0.0_RKIND
real(rkind), dimension(mdfaka), save globals::eqkapf = 0.0_RKIND
real(rkind), dimension(mdspec), save globals::eqkapt = 0.0_RKIND
real(rkind), save globals::eqkpte = 0.0_RKIND
real(rkind), dimension(mdden,mdpsi), save globals::eqrden = 0.0_RKIND
real(rkind), save globals::eqte = 0.0_RKIND
real(rkind), dimension(mdspec), save globals::eqti = 0.0_RKIND
real(rkind), dimension(0:mdpsi,mdpol1), save globals::er = 0.0_RKIND
real(rkind), dimension(0:mdpsi,mdpol1), save globals::ez = 0.0_RKIND
real(rkind), save globals::feedup = 0.0_RKIND
real(rkind), dimension(mdpsi1), save globals::flupow = 0.0_RKIND
real(rkind), dimension(mdpsi1,mdspc2), save globals::flupsp = 0.0_RKIND
real(rkind), dimension(mdspec), save globals::frac = 0.0_RKIND
real(rkind), dimension(md2fp1,mdpsi), save globals::fralf = 0.0_RKIND
complex, dimension(md2fp1,mdpsi), save globals::frbb = (0._RKIND, 0._RKIND)
complex, dimension(md2fp1,mdpsi), save globals::frbb2 = (0._RKIND, 0._RKIND)
complex, dimension(md2fp1,mdpsi), save globals::frbn = (0._RKIND, 0._RKIND)
complex, dimension(md2fp1,mdpsi), save globals::frbn2 = (0._RKIND, 0._RKIND)
complex, dimension(md2fp1,mdpsi), save globals::frbpa2 = (0._RKIND, 0._RKIND)
complex, dimension(md2fp1,mdpsi), save globals::frbpar = (0._RKIND, 0._RKIND)
real(rkind), dimension(mdspec), save globals::frcen = 0.0_RKIND
real(rkind), dimension(mdspec), save globals::frdel = 0.0_RKIND
complex, dimension(md2fp1,mdpsi), save globals::fren = (0._RKIND, 0._RKIND)
complex, dimension(md2fp1,mdpsi), save globals::fren2 = (0._RKIND, 0._RKIND)
complex, dimension(md2fp1,mdpsi), save globals::frep = (0._RKIND, 0._RKIND)
complex, dimension(md2fp1,mdpsi), save globals::frep2 = (0._RKIND, 0._RKIND)
real(rkind), save globals::freqcy = 0.0_RKIND
complex, dimension(mdpol,md2fp1), save globals::frint = (0._RKIND, 0._RKIND)
real(rkind), dimension(md2fp1,mdpsi), save globals::frout = 0.0_RKIND
real(rkind), dimension(mdpol,mdpol,13), save globals::g = 0.0_RKIND
real(rkind), save globals::gamma = 0.0_RKIND
integer, save globals::iout_time_slice
character*80, save globals::label1
character*80, save globals::label2
character*80, save globals::label3
character*80, save globals::label4
character*80, save globals::label5
character*80, save globals::label6
character*80, save globals::label7
character*80, save globals::label8
integer, save globals::length = 0
integer, save globals::m1 = 0
integer, save globals::m11 = 0
integer, save globals::m12 = 0
integer, save globals::m2 = 0
integer, save globals::mancmp = 0
integer, parameter globals::md2cp2 = 2*mdchi+2
integer, parameter globals::md2fp1 = 15
integer, parameter globals::mdad = 10
integer, parameter globals::mdbcas = 20
integer, parameter globals::mdchi = 129
integer, parameter globals::mdchi1 = mdchi+1
integer, parameter globals::mdcol = 3*mdpol
integer, parameter globals::mdcomp = 2*mdpsi*mdpol+mdpol
integer, parameter globals::mdden = 8
integer, parameter globals::mdeq = 29
integer, parameter globals::mdfaka = 20
integer, parameter globals::mdin2 = 2*mdchi-2
integer, parameter globals::mdleng = mdcol*mdcol
integer, parameter globals::mdovl = mdpol*mdpol
integer, parameter globals::mdpant = 10
integer, parameter globals::mdpol = 2*mdchi-2
integer, parameter globals::mdpol1 = mdpol+1
integer, parameter globals::mdpsi = 256
integer, parameter globals::mdpsi1 = mdpsi+1
integer, parameter globals::mdr = 301
integer, parameter globals::mdrz = mdr+2*mdz
integer, parameter globals::mdspc2 = mdspec+2
integer, parameter globals::mdspec = 10
integer, parameter globals::mdstore = 1
integer, parameter globals::mdtant = 4
integer, parameter globals::mdz = 221
integer, save globals::meq = 0
integer, save globals::mfl = 0
integer, save globals::mfu = 0
integer, dimension(mdpsi,mdpol), save globals::mout = 0
integer, dimension(md2fp1,mdpsi), save globals::moutf = 0
integer, dimension(mdpant), save globals::mpolwn = 0
integer, parameter globals::msiaux = 6
integer, parameter globals::msicon = 7
integer, parameter globals::msiesh = 3
integer, parameter globals::msiivi = 8
integer, parameter globals::msinum = 3
integer, parameter globals::msiout = 10
integer, parameter globals::msiphy = 13
integer, parameter globals::mslaux = 1
integer, parameter globals::mslcon = 84
integer, parameter globals::mslphy = 5
integer, parameter globals::msraux = 2*mdovl+224
integer, parameter globals::msrcon = 21
integer, parameter globals::msrequ = mdeq*mdpol+6*mdspec+41
integer, parameter globals::msresh = md2cp2
integer, parameter globals::msrivi = 1
integer, parameter globals::msrmtr = 2*mdleng
integer, parameter globals::msrphy = mdspec*11+mdad+mdbcas+mdpant*3+mdfaka+mdpsi1*2+mdtant+32
integer, parameter globals::msrvec = 2*mdcomp*2+2*mdcol*3+2*mdpol+mdpol*2+2
integer, save globals::n = 0
integer, save globals::nant_itm = 0
integer, save globals::nantsheet = 0
integer, save globals::nantyp = 0
integer, save globals::nbcase = 0
integer, save globals::nbtype = 0
integer, save globals::nchi = 0
integer, save globals::ncolmn = 0
integer, save globals::ncomp = 0
integer, save globals::ncontr = 0
integer, save globals::ncut = 0
integer, save globals::nda = 0
integer, save globals::ndarg = 0
integer, save globals::nddeg = 0
integer, save globals::ndens = 0
integer, save globals::ndes = 0
integer, save globals::ndim = 0
integer, save globals::ndlt = 0
integer, save globals::nds = 0
integer, save globals::neldttmp = 0
integer, save globals::neldttmpcor = 0
integer, save globals::nfakap = 0
integer, save globals::nharm = 0
integer, save globals::nitmopt = 22
integer, dimension(2), save globals::nitmrun = 0
integer, dimension(2), save globals::nitmshot = 0
logical, save globals::nlcold = .FALSE.
logical, save globals::nlcole = .FALSE.
logical, dimension(1:30), save globals::nldiag = .FALSE.
logical, save globals::nldip = .FALSE.
logical, save globals::nldiso = .FALSE.
logical, save globals::nleinq = .FALSE.
logical, save globals::nlfast = .FALSE.
logical, save globals::nlgren = .FALSE.
integer, save globals::nlong = 0
logical, save globals::nlotp0 = .FALSE.
logical, dimension(4), save globals::nlotp1 = .FALSE.
logical, dimension(5), save globals::nlotp2 = .FALSE.
logical, dimension(2), save globals::nlotp3 = .FALSE.
logical, dimension(5), save globals::nlotp4 = .FALSE.
logical, dimension(40), save globals::nlotp5 = .FALSE.
logical, save globals::nlphas = .FALSE.
logical, dimension(25), save globals::nlplo5 = .FALSE.
logical, save globals::nlquad = .FALSE.
logical, save globals::nlsym = .FALSE.
logical, save globals::nlttmp = .FALSE.
integer, dimension(6), save globals::nplac = 0
integer, save globals::npltyp = 0
integer, save globals::npol = 0
integer, save globals::nprnt = 0
integer, save globals::npsi = 0
integer, save globals::nread = 0
integer, save globals::nrspec = 0
integer, save globals::nrun = 0
integer, save globals::nrzsur = 0
integer, save globals::nsaddl = 0
integer, save globals::nsave = 0
integer, save globals::nsing = 0
integer, save globals::nsourc = 0
integer, save globals::ntemp = 0
integer, save globals::ntorsp = 0
integer, save globals::number = 0
integer, save globals::nvac = 0
integer, save globals::nverbose = 3
complex, dimension(mdpol), save globals::ohmr = (0._RKIND, 0._RKIND)
real(rkind), dimension(mdpsi,mdpol), save globals::omclin = 0.0_RKIND
real(rkind), save globals::omega = 0.0_RKIND
real(rkind), save globals::qb = 0.0_RKIND
real(rkind), save globals::qiaxe = 0.0_RKIND
real(rkind), dimension(mdpsi1), save globals::qs = 0.0_RKIND
real(rkind), dimension(mdpsi1), save globals::qtilda = 0.0_RKIND
real(rkind), dimension(mdpol), save globals::r2j = 0.0_RKIND
complex, save globals::reacs = (0._RKIND, 0._RKIND)
complex, save globals::reascr = (0._RKIND, 0._RKIND)
real(rkind), save globals::rmajor = 0.0_RKIND
real(rkind), dimension(4), save globals::ro = 0.0_RKIND
real(rkind), save globals::ro2 = 0.0_RKIND
real(rkind), save globals::ro2p = 0.0_RKIND
real(rkind), dimension(md2cp2), save globals::roedge = 0.0_RKIND
real(rkind), dimension(mdpol,3), save globals::roint = 0.0_RKIND
real(rkind), dimension(md2cp2), save globals::romid = 0.0_RKIND
real(rkind), dimension(4), save globals::rop = 0.0_RKIND
real(rkind), save globals::rqb = 0.0_RKIND
real(rkind), save globals::rtb = 0.0_RKIND
real(rkind), save globals::samax = 0.0_RKIND
real(rkind), save globals::samin = 0.0_RKIND
complex, dimension(mdpol), save globals::sautr = (0._RKIND, 0._RKIND)
complex, dimension(mdpol), save globals::sautx = (0._RKIND, 0._RKIND)
real(rkind), save globals::sdevia = 0.0_RKIND
real(rkind), dimension(mdpsi), save globals::sflux = 0.0_RKIND
real(rkind), save globals::sigma = 0.0_RKIND
real(rkind), dimension(mdpsi, mdpol), save globals::sint = 0.0_RKIND
real(rkind), save globals::smean = 0.0_RKIND
real(rkind), dimension(mdpsi,mdpol), save globals::sn = 0.0_RKIND
real(rkind), save globals::snl = 0.0_RKIND
complex, dimension(mdcomp), save globals::sol = (0._RKIND, 0._RKIND)
complex, dimension(mdpol), save globals::source = (0._RKIND, 0._RKIND)
complex, dimension(mdcomp), save globals::sourct = (0._RKIND, 0._RKIND)
real(rkind), dimension(mdpsi,mdpol), save globals::spar = 0.0_RKIND
real(rkind), save globals::sparl = 0.0_RKIND
real(rkind), dimension(mdpsi,mdpol), save globals::sperp = 0.0_RKIND
real(rkind), save globals::spl = 0.0_RKIND
real(rkind), dimension(md2cp2), save globals::sr = 0.0_RKIND
real(rkind), dimension(mdpsi), save globals::surpsi = 0.0_RKIND
real(rkind), dimension(md2cp2), save globals::sz = 0.0_RKIND
real(rkind), dimension(md2cp2), save globals::t = 0.0_RKIND
real(rkind), save globals::tb = 0.0_RKIND
real(rkind), dimension(md2cp2), save globals::th = 0.0_RKIND
real(rkind), dimension(mdtant), save globals::thant = 0.0_RKIND
real(rkind), save globals::thantw = 0.0_RKIND
real(rkind), dimension(mdpol,3), save globals::thint = 0.0_RKIND
real(rkind), dimension(2), save globals::time_itm = -9.E+40_RKIND
real(rkind), dimension(4), save globals::tp = 0.0_RKIND
real(rkind), dimension(4), save globals::tt = 0.0_RKIND
complex, dimension( mdcol), save globals::u = (0._RKIND, 0._RKIND)
complex, save globals::ut = (0._RKIND, 0._RKIND)
complex, dimension( mdcol), save globals::va = (0._RKIND, 0._RKIND)
complex, dimension(mdovl), save globals::vac = (0._RKIND, 0._RKIND)
real(rkind), save globals::vbirth = 0.0_RKIND
complex, save globals::vc = (0._RKIND, 0._RKIND)
real(rkind), dimension(mdpsi,mdpol), save globals::vout1 = 0.0_RKIND
real(rkind), dimension(mdpsi,mdpol), save globals::vout2 = 0.0_RKIND
real(rkind), dimension(10), save globals::wall = 0.0_RKIND
real(rkind), save globals::walrad = 0.0_RKIND
type(ids_waves) globals::waveslion_out
real(rkind), save globals::wbetch = 0.0_RKIND
real(rkind), save globals::wbpol2 = 0.0_RKIND
real(rkind), save globals::wbtor2 = 0.0_RKIND
real(rkind), save globals::wbtot = 0.0_RKIND
real(rkind), save globals::wbtot2 = 0.0_RKIND
real(rkind), save globals::wchi = 0.0_RKIND
real(rkind), save globals::wchisf = 0.0_RKIND
complex, save globals::wcomeg = (0._RKIND, 0._RKIND)
real(rkind), save globals::wdchi = 0.0_RKIND
real(rkind), save globals::wdcr2j = 0.0_RKIND
real(rkind), save globals::wdngp = 0.0_RKIND
real(rkind), save globals::wdpr2j = 0.0_RKIND
real(rkind), save globals::wdpt = 0.0_RKIND
real(rkind), save globals::wdqcds = 0.0_RKIND
real(rkind), save globals::wds = 0.0_RKIND
complex, save globals::weps = (0._RKIND, 0._RKIND)
complex, save globals::wepsel = (0._RKIND, 0._RKIND)
complex, save globals::wepsel0 = (0._RKIND, 0._RKIND)
complex, dimension(mdspec), save globals::wepsi = (0._RKIND, 0._RKIND)
complex, save globals::wepsmc = (0._RKIND, 0._RKIND)
complex, save globals::wepsttmp = (0._RKIND, 0._RKIND)
real(rkind), dimension(mdspec), save globals::wfrac = 0.0_RKIND
complex, save globals::wg = (0._RKIND, 0._RKIND)
complex, dimension(mdspec), save globals::wgi = (0._RKIND, 0._RKIND)
real(rkind), save globals::wgrps2 = 0.0_RKIND
real(rkind), save globals::wh = 0.0_RKIND
real(rkind), save globals::wj0phi = 0.0_RKIND
real(rkind), save globals::wjac = 0.0_RKIND
real(rkind), save globals::wk = 0.0_RKIND
real(rkind), save globals::wntdel = 0.0_RKIND
real(rkind), save globals::wntoro = 0.0_RKIND
real(rkind), save globals::wnu = 0.0_RKIND
real(rkind), dimension(mdspec), save globals::womci = 0.0_RKIND
real(rkind), save globals::wp = 0.0_RKIND
real(rkind), save globals::wpaxis = 0.0_RKIND
real(rkind), save globals::wpsi = 0.0_RKIND
real(rkind), save globals::wq = 0.0_RKIND
real(rkind), save globals::wr2 = 0.0_RKIND
real(rkind), save globals::wrho = 0.0_RKIND
real(rkind), save globals::ws = 0.0_RKIND
real(rkind), save globals::wt = 0.0_RKIND
real(rkind), save globals::wtq = 0.0_RKIND
complex, dimension(mdpol,mdpol), save globals::wvac = (0._RKIND, 0._RKIND)
complex, dimension( mdcol), save globals::x = (0._RKIND, 0._RKIND)
complex, save globals::xc = (0._RKIND, 0._RKIND)
complex, dimension(8), save globals::xc1 = (0._RKIND, 0._RKIND)
real(rkind), dimension( mdpol), save globals::xdchi = 0.0_RKIND
real(rkind), dimension( mdpol), save globals::xdth = 0.0_RKIND
complex, dimension(5), save globals::xeta = (0._RKIND, 0._RKIND)
real(rkind), dimension(16), save globals::xf = 0.0_RKIND
complex, dimension(5), save globals::xksi = (0._RKIND, 0._RKIND)
complex, dimension(6,6), save globals::xm = (0._RKIND, 0._RKIND)
complex, dimension( mdpol), save globals::xohmr = (0._RKIND, 0._RKIND)
real(rkind), dimension( mdrz), save globals::xs = 0.0_RKIND
complex, dimension(mdcomp), save globals::xt = (0._RKIND, 0._RKIND)
complex, dimension(6), save globals::xveta = (0._RKIND, 0._RKIND)
complex, dimension(6), save globals::xvksi = (0._RKIND, 0._RKIND)
real(rkind), dimension( mdrz), save globals::ys = 0.0_RKIND
The documentation for this module was generated from the following file: