Initialise module variables
subroutine init_constraint_variables
!! Initialise module variables
implicit none
auxmin = 0.1D0
betpmx = 0.19D0
bigqmin = 10.0D0
bmxlim = 12.0D0
fauxmn = 1.0D0
fbeta = 1.0D0
fbetap = 1.0D0
fbetatry = 1.0D0
fbetatry_lower = 1.0D0
fcpttf = 1.0D0
fcwr = 1.0D0
fdene = 1.0D0
fdivcol = 1.0D0
fdtmp = 1.0D0
fflutf = 1.0D0
ffuspow = 1.0D0
fgamcd = 1.0D0
fhldiv = 1.0D0
fiooic = 0.5D0
fipir = 1.0D0
fjohc = 1.0D0
fjohc0 = 1.0D0
fjprot = 1.0D0
flhthresh = 1.0D0
fmva = 1.0D0
fnbshinef = 1.0D0
fncycle = 1.0D0
fnesep = 1.0D0
foh_stress = 1.0D0
fpeakb = 1.0D0
fpinj = 1.0D0
fpnetel = 1.0D0
fportsz = 1.0D0
fpsepbqar = 1.0D0
fpsepr = 1.0D0
fptemp = 1.0D0
fptfnuc = 1.0D0
fq = 1.0D0
fqval = 1.0D0
fradpwr = 0.99D0
fradwall = 1.0D0
freinke = 1.0D0
frminor = 1.0D0
fstrcase = 1.0D0
fstrcond = 1.0D0
fstr_wp = 1.0D0
fmaxvvstress = 1.0D0
ftbr = 1.0D0
ftburn = 1.0D0
ftcycl = 1.0D0
ftmargoh = 1.0D0
ftmargtf = 1.0D0
ftohs = 1.0D0
ftpeak = 1.0D0
fvdump = 1.0D0
fvs = 1.0D0
fvvhe = 1.0D0
fwalld = 1.0D0
fzeffmax = 1.0D0
gammax = 2.0D0
maxradwallload = 1.0D0
mvalim = 40.0D0
nbshinefmax = 1.0D-3
nflutfmax = 1.0D23
pdivtlim = 150.0D0
peakfactrad = 3.33D0
peakradwallload = 0.0D0
pnetelin = 1.0D3
powfmax = 1.5D3
psepbqarmax = 9.5D0
pseprmax = 25.0D0
ptfnucmax = 1.0D-3
tbrmin = 1.1D0
tbrnmn = 1.0D0
tcycmn = 0.0D0
tohsmn = 1.0D0
vvhealw = 1.0D0
walalw = 1.0D0
taulimit = 5.0D0
ftaulimit = 1.0D0
fniterpump = 1.0D0
zeffmax = 3.6D0
fpoloidalpower = 1.0D0
fpsep = 1.0D0
fcqt = 1.0D0
fecrh_ignition = 1.0D0
end subroutine init_constraint_variables