:: jjm -nox -ind %1.ctr -binp arc\%1.bar -phase 22 
jjm -nox -ind %1.ctr 
copy jjm.std arc\%1.std
copy For_R.dat arc\%1_R.dat 
copy jjm.cor arc\%1.cor
copy jjm.par arc\%1.par
copy jjm.bar arc\%1.bar
copy jjm.rep arc\%1.rep
