macro give_specs
*
* vec/crea hmm(2) r 0.001 1.2  ! can change it if you like - it is max and min of spectra
vec/crea ncalc(1) r 2
ncalcs = $SIGMA(ncalc(1))
vec/crea calcs([ncalcs]) r 10 11
*
* following are the x- and y-coordinates and angles of the labels "pion" (index=1) and "proton" (index=2)
vec/crea xlab(2) r 1     1.4
vec/crea ylab(2) r 0.03 0.2
vec/crea alab(2) r -40   -30
*
vec/crea vykey(1) r 0.0045
return
*
*===================================================
*
macro make_key icalc lt
ykey = $SIGMA(vykey(1))
*
vec/rea params '../../../DataFiles/Calc'//[icalc]//'/input.inp'
*** index below should be 1=Ry 2=Rx 3=T 4=rho0 5=rho2 6=tau0 7=a_s 8=DeltaTau

rat = $SIGMA(params(1)/params(2))

key 0.23 [ykey] [lt] 'R?Y/R?X = '//[rat] 1.2 L

*
vec/in vykey(1) $SIGMA(vykey(1)/1.8)
return
*===================================================