difd2b_VVa.prox

;difd2b_VVa.prox
;*********************************************************
;ADD IN MACROS FOR LAMP-RUNTIME --> /home/cs/lamp/plug_in/
;*********************************************************

!warn.obs_routines = 1 ; We know having RSTRPOS, FINDFILE, STR_SEP, MPEG_*, SET_XY
!warn.obs_sysvars = 1  ; We know having !Stime, !Err_string, !Window, !err, !error
!warn.parens = 1

print,'**********'
print,'D2B macros'
print,'**********'

.run rdid_d2b.pro
.run myhelp_d2b.pro
.run myinit_d2b.pro
.run straight_1d.pro 
.run straight_2d.pro 
.run str_integrate.pro

;.run calib_eff_2d_bms.pro  ;Only needed to create efficiency file. Probably not needed in rt.
;.run calib_eff_2d_A.pro
;.run calib_eff_2d_B.pro
;.run calib_eff_2d_C.pro

print,'*********'
print,'D4 macros'
print,'*********'

.run ../D4/d4_QSQ1.pro
.run ../D4/d4_fft.pro
.run ../D4/d4_offset.pro
.run ../D4/d4_q_interp.pro
.run ../D4/myinit_d4.pro

print,'**********'
print,'D19 macros'
print,'**********'

.run d19_cor.pro
.run d19_nu_bin.pro
.run d19_2_eth.pro
.run d19_2_f1b.pro
.run myinit_d19.pro

print,'**********'
print,'D1B macros'
print,'**********'

.run d1b_2_eth.pro
.run d1b_2_f1b.pro
.run ../D1B/myinit_d1b.pro
.run ../D1B/d1breg.pro
.run ../D1B/logD1B.pro
.run ../D1B/num2d1breg.pro
.run ../D1B/num2fileD1B.pro
.run ../D1B/sumnum2fileD1B.pro
.run ../D1B/sumnum2wsD1B.pro

print,'************'
print,'Salsa macros'
print,'************'

.run ../SALSA/myinit_salsa.pro
.run ../SALSA/salsa_combine_ws.pro

print,'**********'
print,'Others'
print,'**********'

.run ../XRAY/myinit_xray.pro
.run ../D1A/myinit_d1a.pro

VV = strtrim(long(float(!version.release)*10),2) ; The Idl version

FILNAM='difd2b_'+VV+'a.rt'
save,/routines,filename=FILNAM

print,''
print,FILNAM+' is saved'
print,'To set your plug-in available for ILL users:'
print,''
print,'mv '+FILNAM+'   /home/cs/richard/Free_Lamp'+VV+'/lamp/plug_in/'
print,''
print,'To be available via the "live update" it should be copied to:'
print,'ftp://ftp.ill.fr/pub/cs/lamp_runtimes/Misc/Others/
print,  '(send an email to the CS for that)'