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 1 10
*
* 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.025 0.38
vec/crea alab(2) r -45   -25
*
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
pval = $SIGMA(params(5))  
key 0.23 [ykey] [lt] '[r]?2! = '//[pval] 1.2 L
*
vec/in vykey(1) $SIGMA(vykey(1)/1.5)
return
*===================================================