!  DO NOT EDIT THIS FILE
!  But edit variable.f90 and scripts/generate.py
!  Compiling and running is taken care of by the Makefile

<%
realparams = [par for par in parameters if par["type"] == "double" if par["name"] not in {"D15", "D50", "D90", "sedcal", "ucrcal", "xpointsw", "ypointsw", "rugdepth"}]
integerparams = [par for par in parameters if par["type"] == "int" if par["name"] not in {"pointtypes"}]
characterparams = [par for par in parameters if par["type"] == "char" if par["name"] not in {"globalvars", "meanvars", "pointvars", "stationid"}]
%>

 integer, parameter :: ncharacterkeys=${len(characterparams)}
 integer, parameter :: nrealkeys=${len(realparams)}
 integer, parameter :: nintegerkeys=${len(integerparams)}

 character(slen), dimension(ncharacterkeys) :: characterkeys
 character(slen), dimension(nrealkeys) :: realkeys
 character(slen), dimension(nintegerkeys) :: integerkeys

 character(slen), dimension(ncharacterkeys) :: charactervalues
 double precision, dimension(nrealkeys) :: realvalues
 integer, dimension(nintegerkeys) :: integervalues


%for i, par in enumerate(characterparams):
 characterkeys(${i+1}) = "${par["name"]}"
%endfor
%for i, par in enumerate(characterparams):
 charactervalues(${i+1}) = par%${par["name"]}
%endfor

%for i, par in enumerate(realparams):
 realkeys(${i+1}) = "${par["name"]}"
%endfor
%for i, par in enumerate(realparams):
 realvalues(${i+1}) = par%${par["name"]}
%endfor

%for i, par in enumerate(integerparams):
 integerkeys(${i+1}) = "${par["name"]}"
%endfor
%for i, par in enumerate(integerparams):
 integervalues(${i+1}) = par%${par["name"]}
%endfor