c** get reference numbers from ND FELIX matrix
c** for use with genxpk or other
c** assumes matrix is open, and has a built-in file name
c** for output of reference

sys echo "# Reference Parameters for &matfil" > refparm

for dim 1 &dimen
ty -------------------------
ty Working on dimension &dim
rmx -&dim specfreq sw axt refpoint refppm axtxt
sys echo "Dimension: &dim" >> refparm

if &dim eq 1 then
        loa 0 1 1
eif 

if &dim eq 2 then
        loa 1 0 1
eif

if &dim eq 3 then 
        loa 1 1 0
eif

sys echo "D&dim spectral freq: &specfreq" >> refparm
sys echo "D&dim spectral width: &sw" >> refparm
sys echo "D&dim ref point: &refpoint" >> refparm
sys echo "D&dim ref shift: &refppm" >> refparm
sys echo "D&dim axis text: &axtxt" >> refparm
sys echo "D&dim datasize: &datsiz" >> refparm
nex
ty -------------------------
ty Done. 
ty Created file called refparm in startup directory
end