Commit f2d788b7 authored by Didier Richard's avatar Didier Richard
Browse files

Initial commit

parents
File added
**********************************
LAMP runs with an IDL license but,
an embedded runtime version is also available (No need for a license).
**********************************************************************
INSTALL on Unix , Linux , (Vms) , (MacOsX)
------- -- ------------------------------
A running IDL must be obviously already installed.
Open an Xterm and enter idl @MAK_LAMP.win
Edit START_LAMP.unix to set lampd to the correct lamp path directory.
*****
Execute the script: source START_LAMP.unix each time you want to start Lamp.
INSTALL on Windows , MacOsX , Linux
------- -- ------------------------
Start IDL (IDLde)
Depending on Idl version:
-select File -> Preferences -> Path
-select Window -> Preferences -> +IDL -> Path
Insert "LampPath\lamp" + enable subfolders (+ register)
Apply
Enter @MAK_LAMP.win from the IDL command line to produce the lamp.sav file.
To start Lamp: start IDL then enter lamp or @lamp.ini
You can also define the startup-file and a working directory:
File-> Preferences-> Startup-> lamp.ini (or Window -> Preferences -> IDL)
TIPS
----
Current LAMP version has been tested on most of existing platforms.
On MacOsX you should have the "development tools" installed to run lamp.
Use regularly the "Live update" feature to keep Lamp up-to-date.
(If it fails, take & replace files from ftp://ftp.ill.fr/pub/cs/lamp_runtimes/Misc/Others/)
To produce a sav file for RUNTIME licenses enter "idl> @MAK_LAMP.rt". This will produce
the saved file "lamp_rt.exe". You can enter "START_LAMP.unix -rt" or rename the
file in <idl_dir>\lib\hook\runtime.sav
CUSTOMizing Lamp: find the "CUSTOMIZE" item from the menu-bar.
*********** **** File lamp/lamp_mac/read_par.pro keeps all customized parameters.
If you need to read ILL data files, create the directory CALIBRATION/
in your working path to store some instrument calibration files.
On Unix & Linux systems before Idl5.5 you must configure X11 in 8 or 24 bits graphic mode.
SOURCES
-------
New versions of LAMP can be downloaded via anonymous ftp at
-----> ftp.ill.eu in the subdirectory /pub/cs/lamp.tar.Z
/lamp.zip
barns.ill.fr is a miror (http)
Runtime (embedded) versions are also available.
The LAMP package is distributed as "Freeware" to the scientific community.
MAIL BOX
--------
Suggestions and problems should be sent to lamp@ill.fr
Lamp.ico

766 Bytes

make_rt, 'lamp', 'F:\Didier\Free_Lamp81', SAVEFILE='F:\Didier\Free_Lamp81\lamp.sav', /OVERWRITE, /EMBEDDED, /WIN32, /WIN64
\ No newline at end of file
print,';*************'
print,';LAMP COMPILED
print,';*************'
ALLm=0 ;Compile also instrument macros
;***** ;******************************
!quiet=1
;.size 50000 50000
print,''
print,'It is assumed you have added "LampPackage" and "LampPackage\lamp_mac"'
print,' from File -> Preferences -> Path'
print,''
.run sys_dep.pro
lamd= sys_dep('GETENV' ,'LAMP_DIR')
cd,current=me_ee
mymac= sys_dep('NEWSUB' ,me_ee,'lamp_mac')
bid = sys_dep('ADDPATH',mymac)
!path=!path+':'+expand_path('+/home/cs/lambda/macros')
divd = sys_dep('DIVIDER')
if lamd eq '' then divd=''
print,'Compiling lamp ...'
.run lamp.pro
print,'Compiling dids ...'
.run dids.pro
print,'Compiling dons ...'
.run dons.pro
print,'Compiling bens ...'
.run bens.pro
print,'Compiling Lamp macros ...'
.run update_lamp_out.pro
.run update_lamp_in.pro
.run make_volume.pro
.run tomography.pro
.run prox_sheet.pro
.run read_nexus.pro
.run read_spec.pro
.run write_inx.pro
.run write_xml.pro
.run write_org.pro
.run write_pdb.pro
if sys_dep('VERSION') ge 4.0 then resolve_routine,'read_hdf'
if sys_dep('VERSION') ge 4.0 then resolve_routine,'write_hdf'
if sys_dep('VERSION') ge 5.0 then resolve_routine,'livc_lamp'
if sys_dep('VERSION') ge 5.0 then resolve_routine,'liv_objet'
if sys_dep('VERSION') ge 5.0 then resolve_routine,'magnet_win'
if sys_dep('VERSION') le 5.2 then resolve_routine,'rb_routines'
if sys_dep('VERSION') le 5.2 then resolve_routine,'read_binary' ,/is_f
if sys_dep('VERSION') ge 5.0 then resolve_routine,'trackball__define'
if sys_dep('VERSION') ge 5.2 then resolve_routine,'idlgrcolorbar__define'
.run read_column.pro
.run radial_at.pro
.run read_xml.pro
.run read_mag.pro
.run read_mar.pro
.run read_mar.pro
.run read_img.pro
.run read_adam.pro
.run read_par.pro
.run suprplot.pro
.run ligend.pro
.run liv_lamp.pro
.run descript.pro
.run customiz.pro
.run rdfilter.pro
.run str_fit.pro
.run lampico.pro
.run georgeo.pro
.run tagfile.pro
.run regular.pro
.run rpcill.pro
.run groupx.pro
.run groupy.pro
.run bin_as.pro
.run matovr.pro
.run myhelp.pro
.run myinit.pro
.run wdiag.pro
.run corel.pro
.run gfit.pro
.run rdid.pro
.run tripx.pro
print,'Compiling touch_b ...'
.run catalog.pro
.run touch_b.pro
.run touch_u.pro
.run touch_x.pro
print,'Compiling specific read-in ILL macros ...'
;.run read_dcsasc.pro
.run read_neat.pro
.run rdid_d20.pro
.run rdid_d17.pro
.run rdid_d2b.pro
.run rdid_d7.pro
.run rd_mari.pro
.run rdspe.pro
.run rdedf.pro
.run pn1.pro
if ALLm then print,'*********'
if ALLm then print,'D7 macros'
if ALLm then print,'*********'
if ALLm then resolve_routine,/compile_full,/either,'add_xyz'
if ALLm then resolve_routine,/compile_full,/either,'average'
if ALLm then resolve_routine,/compile_full,/either,'background'
if ALLm then resolve_routine,/compile_full,/either,'bin'
if ALLm then resolve_routine,/compile_full,/either,'binq'
if ALLm then resolve_routine,/compile_full,/either,'components'
if ALLm then resolve_routine,/compile_full,/either,'concatenate'
if ALLm then resolve_routine,/compile_full,/either,'corr_xyz'
if ALLm then resolve_routine,/compile_full,/either,'divide'
if ALLm then resolve_routine,/compile_full,/either,'fit_poly'
if ALLm then resolve_routine,/compile_full,/either,'fold'
if ALLm then resolve_routine,/compile_full,/either,'input'
if ALLm then resolve_routine,/compile_full,/either,'input_quartz'
if ALLm then resolve_routine,/compile_full,/either,'input_vanadium'
if ALLm then resolve_routine,/compile_full,/either,'isotropic_ms'
if ALLm then resolve_routine,/compile_full,/either,'norm_inc'
if ALLm then resolve_routine,/compile_full,/either,'norm_van'
if ALLm then resolve_routine,/compile_full,/either,'omega_scan'
if ALLm then resolve_routine,/compile_full,/either,'output'
if ALLm then resolve_routine,/compile_full,/either,'output_gsas'
if ALLm then resolve_routine,/compile_full,/either,'phi2q'
if ALLm then resolve_routine,/compile_full,/either,'qrebin'
if ALLm then resolve_routine,/compile_full,/either,'quartz'
if ALLm then resolve_routine,/compile_full,/either,'qxqy'
if ALLm then resolve_routine,/compile_full,/either,'remove'
if ALLm then resolve_routine,/compile_full,/either,'remove_zeros'
if ALLm then resolve_routine,/compile_full,/either,'slab'
if ALLm then resolve_routine,/compile_full,/either,'smoothx'
if ALLm then resolve_routine,/compile_full,/either,'smoothy'
if ALLm then resolve_routine,/compile_full,/either,'theta_scan'
if ALLm then resolve_routine,/compile_full,/either,'unfold'
if ALLm then resolve_routine,/compile_full,/either,'vanadium'
if ALLm then resolve_routine,/compile_full,/either,'zero_detectors'
if ALLm then resolve_routine,/compile_full,/either,'myhelp_d7'
if ALLm then resolve_routine,/compile_full,/either,'myinit_d7'
if ALLm then print,'**********'
if ALLm then print,'TOF macros'
if ALLm then print,'**********'
if ALLm then resolve_routine,/compile_full,/either,'overlap'
if ALLm then resolve_routine,/compile_full,/either,'corr_tof'
if ALLm then resolve_routine,/compile_full,/either,'elastic'
if ALLm then resolve_routine,/compile_full,/either,'estrip'
if ALLm then resolve_routine,/compile_full,/either,'fitgauss'
if ALLm then resolve_routine,/compile_full,/either,'normalise'
if ALLm then resolve_routine,/compile_full,/either,'output_allangles'
if ALLm then resolve_routine,/compile_full,/either,'output_allqs'
if ALLm then resolve_routine,/compile_full,/either,'overlap'
if ALLm then resolve_routine,/compile_full,/either,'phi2qtof'
if ALLm then resolve_routine,/compile_full,/either,'qstrip'
if ALLm then resolve_routine,/compile_full,/either,'reb'
if ALLm then resolve_routine,/compile_full,/either,'remove_spectra'
if ALLm then resolve_routine,/compile_full,/either,'rescale_t'
if ALLm then resolve_routine,/compile_full,/either,'slab_tof'
if ALLm then resolve_routine,/compile_full,/either,'splice'
if ALLm then resolve_routine,/compile_full,/either,'sqw_interp'
if ALLm then resolve_routine,/compile_full,/either,'sqw_rebin'
if ALLm then resolve_routine,/compile_full,/either,'string_round'
if ALLm then resolve_routine,/compile_full,/either,'sumbank'
if ALLm then resolve_routine,/compile_full,/either,'t2e'
if ALLm then resolve_routine,/compile_full,/either,'vnorm'
print,'Compiling qens_fit macros ...'
.run read_mibemol.pro
.run mib_group.pro
if sys_dep('VERSION') ge 5.4 then resolve_routine,'qens_fit'
if sys_dep('VERSION') ge 5.4 then resolve_routine,'fit_basegl' ;After qens_fit
if sys_dep('VERSION') ge 5.4 then resolve_routine,'fit_ba_gumbel'
if sys_dep('VERSION') ge 5.4 then resolve_routine,'fit_ba_unirot'
if sys_dep('VERSION') ge 5.4 then resolve_routine,'fit_ba_isorot'
if sys_dep('VERSION') ge 5.4 then resolve_routine,'fit_ba_rwtrans'
if sys_dep('VERSION') ge 5.4 then resolve_routine,'fit_ba_rotctran'
if sys_dep('VERSION') ge 5.4 then resolve_routine,'fit_ba_userfunction'
if sys_dep('VERSION') ge 5.4 then resolve_routine,'mpfit' ,/is_f
.run sgroup.pro
.run gdos.pro
.run psd_integration ;IN13 (reading in rdid)
.run figaro_grav ;FIGARO (reading in rdid)
print,"Compiling ATOMS macros ..." & wait,.1
.run myinit_atoms.pro
.run r2x.pro
.run Fragment_AuAg.pro
.run nmoldyn_read.pro
.run read_doscar.pro
.run doscar_read.pro
.run discover_read.pro
.run xdatcar.pro
.run xdat2cont.pro
.run cont2xdat.pro
.run build_q_w.pro
.run ebands.pro
.run conv_ins.pro
.run rotate_q_w.pro
.run gr_angle_n.pro
.run gr_angle_r.pro
.run gr_big.pro
.run gr_coord.pro
.run gr_coord_loop.pro
.run gr_partial.pro
.run gr_stats.pro
print,"Compiling SANS macros ..." & wait,.1
.run sans_inst_init.pro
.run sans_settings.pro
.run sans_sheet
if ALLm then print,'**********'
if ALLm then print,'D17 macros'
if ALLm then print,'**********'
if ALLm then resolve_routine,/compile_full,/either,'d17mono'
if ALLm then resolve_routine,/compile_full,/either,'bundle'
if ALLm then resolve_routine,/compile_full,/either,'bobtof'
if ALLm then resolve_routine,/compile_full,/either,'cosmos'
if ALLm then print,'**********'
if ALLm then print,'LSS macros'
if ALLm then print,'**********'
if ALLm then resolve_routine,/compile_full,/either,'beamcentre'
if ALLm then resolve_routine,/compile_full,/either,'grund_mask'
if ALLm then resolve_routine,/compile_full,/either,'man_mask'
if ALLm then resolve_routine,/compile_full,/either,'norm_water'
if ALLm then resolve_routine,/compile_full,/either,'prime_cell'
if ALLm then resolve_routine,/compile_full,/either,'q_cal'
if ALLm then resolve_routine,/compile_full,/either,'radial'
if ALLm then resolve_routine,/compile_full,/either,'s_background'
if ALLm then resolve_routine,/compile_full,/either,'s_concatenate'
if ALLm then resolve_routine,/compile_full,/either,'water'
if ALLm then resolve_routine,/compile_full,/either,'s_normalise'
print,'Compiling specific old-TOF macros ...'
.run cylindcor.pro
.run lineup.pro
.run didline.pro
.run inx_in.pro
.run dumpx.pro
.run sqwwin.pro
.run bsnorm.pro
.run vanorm.pro
.run rbin.pro
.run ebin.pro
.run sqw.pro
.run tee.pro
.run inx.pro
print,'Compiling specific DIF D20 I/Os ...'
.run rdgsas.pro
.run exriet.pro
.run rddat.pro
.run flag.pro
.run export_dat.pro
.run export_gsa.pro
.run export_cyc.pro
.run export_prn.pro
.run export_xy.pro
.run rdinstr.pro
.run rd_d2b.pro
.run dud.pro
if ALLm then print,'Compiling specific DIF D20 macros ...'
if ALLm then resolve_routine,/compile_full,/either,'d20reg'
if ALLm then resolve_routine,/compile_full,/either,'fcj'
if ALLm then resolve_routine,/compile_full,/either,'lsfit'
if ALLm then resolve_routine,/compile_full,/either,'fwhm'
if ALLm then resolve_routine,/compile_full,/either,'colors'
if ALLm then resolve_routine,/compile_full,/either,'newfit'
if ALLm then resolve_routine,/compile_full,/either,'gauss_poly'
if ALLm then resolve_routine,/compile_full,/either,'gauss_square'
if ALLm then resolve_routine,/compile_full,/either,'myhelp_d20'
if ALLm then resolve_routine,/compile_full,/either,'num2d20reg'
if ALLm then resolve_routine,/compile_full,/either,'clear'
if ALLm then resolve_routine,/compile_full,/either,'monit'
if ALLm then resolve_routine,/compile_full,/either,'d2q'
if ALLm then resolve_routine,/compile_full,/either,'d2tt'
if ALLm then resolve_routine,/compile_full,/either,'tt2sin2t'
if ALLm then resolve_routine,/compile_full,/either,'tt2q'
if ALLm then resolve_routine,/compile_full,/either,'tt2d'
if ALLm then resolve_routine,/compile_full,/either,'plotnclick'
if ALLm then resolve_routine,/compile_full,/either,'plotnzoom'
if ALLm then resolve_routine,/compile_full,/either,'bacon'
if ALLm then resolve_routine,/compile_full,/either,'mkcal'
if ALLm then resolve_routine,/compile_full,/either,'mkcal3'
if ALLm then resolve_routine,/compile_full,/either,'mkcal5'
if ALLm then resolve_routine,/compile_full,/either,'fpread'
if ALLm then resolve_routine,/compile_full,/either,'fpread3'
if ALLm then resolve_routine,/compile_full,/either,'fpread2'
if ALLm then resolve_routine,/compile_full,/either,'fpread4'
if ALLm then resolve_routine,/compile_full,/either,'dial_fpcyc'
if ALLm then resolve_routine,/compile_full,/either,'fpscript'
if ALLm then resolve_routine,/compile_full,/either,'fpscript0'
if ALLm then resolve_routine,/compile_full,/either,'dial_monit'
if ALLm then resolve_routine,/compile_full,/either,'myinit_d20'
if ALLm then resolve_routine,/compile_full,/either,'d20_widget'
if ALLm then resolve_routine,/compile_full,/either,'normalize'
if ALLm then resolve_routine,/compile_full,/either,'readon'
if ALLm then resolve_routine,/compile_full,/either,'tt2tt'
if ALLm then resolve_routine,/compile_full,/either,'y2p'
if ALLm then print,'****************'
if ALLm then print,'D2B SALSA macros'
if ALLm then print,'****************'
if ALLm then resolve_routine,/compile_full,/either,'myhelp_d2b'
if ALLm then resolve_routine,/compile_full,/either,'myinit_d2b'
if ALLm then resolve_routine,/compile_full,/either,'straight_1d'
if ALLm then resolve_routine,/compile_full,/either,'straight_2d'
if ALLm then resolve_routine,/compile_full,/either,'myhelp_d1a'
if ALLm then resolve_routine,/compile_full,/either,'myinit_d1a'
if ALLm then resolve_routine,/compile_full,/either,'str_fit'
if ALLm then resolve_routine,/compile_full,/either,'str_integrate'
if ALLm then resolve_routine,/compile_full,/either,'strain_dat'
print,'Compiling Dials ...'
.run lamp_mac/dial_pad_init.pro
.run lamp_mac/dial_startdial_send.pro
.run lamp_mac/dial_stopdial_send.pro
.run lamp_mac/dial_cleardial_send.pro
.run lamp_mac/dial_resumedial_send.pro
.run lamp_mac/dial_savsession.pro
.run lamp_mac/dial_tornade.pro
.run lamp_mac/dial_xbu.pro
.run lamp_mac/dial_mad_read.pro
.run lamp_mac/dial_mad_send.pro
.run lamp_mac/dial_template1.pro
.run lamp_mac/dial_template2.pro
.run lamp_mac/dial_template3.pro
.run lamp_mac/dial_template4.pro
.run lamp_mac/dial_template_read.pro
.run lamp_mac/dial_template_send.pro
print,'Compiling scan ... (Optional)'
.run surf.pro
.run scan.pro
VV=strtrim(string(sys_dep('VERSION')),2)
VV=strmid (VV,0,1)+strmid (VV,2,1)
print,'Saving '+lamd+divd+'lampV'+VV+'.sav'
if sys_dep('VERSION') eq 5.4 then save,/routines,filename=lamd+divd+'lampV'+VV+'.sav' ,/compress
if sys_dep('VERSION') ne 5.4 then save,/routines,filename=lamd+divd+'lampV'+VV+'.sav'
print,'End'
;print,'launching for test...'
;lamd_dir = LAMD
;lamd_wind= GETENV('LAMP_WIND')
;@lamp.cbk
;if sys_dep('STUDENT') then lamp_ziz=600
;restore,lamd+divd+'lampV'+VV+'.sav'
;cd,me_ee
;lamp
!quiet=1
;.size 50000 50000 ;Used for old IDL versions
print,""
print,"It is assumed you have added 'LampPath\lamp' and 'LampPath\lamp\lamp_mac'"
print," from File -> Preferences -> Path"
print,""
.run sys_dep.pro
lamd=sys_dep("GETENV","LAMP_DIR")
divd=sys_dep("DIVIDER")
cd,current=mee
lamd=mee
print,"Compiling lamp ...7" & wait,.1
.run lamp.pro
print,"Compiling dids ...6" & wait,.1
.run dids.pro
print,"Compiling dons ...5" & wait,.1
.run dons.pro
print,"Compiling bens ...4" & wait,.1
.run bens.pro
print,"Compiling macros ...3" & wait,.1
;.run customiz.pro
;.run descript.pro
;.run liv_lamp.pro
;.run liv_objet.pro
;.run livc_lamp.pro
;.run suprplot.pro
.run lampico.pro
.run touch_b.pro
.run dial_pad_init ;in lamp_mac\
.run read_par.pro ;in lamp_mac\
.run georgeo.pro ;in lamp_mac\
.run myhelp.pro ;in lamp_mac\
print,"Compiling scan ...2" & wait,.1
.run surf.pro ;in lamp_mac\
.run scan.pro
print,"Saving "+lamd+divd+"lamp.sav ...1" & wait,.1
if sys_dep("VERSION") ge 5.3 then save,/routines,filename=lamd+divd+"lamp.sav" ;,/compress
if sys_dep("VERSION") lt 5.3 then save,/routines,filename=lamd+divd+"lamp.sav"
print,""
print,"Enter lamp or @lamp.ini to start lamp"
print,"End"
print,";***************************"
print,";LAMP RUNTIME FOR IDL v5.1++"
print,";***************************"
!quiet=1
;.size 60000 60000 ;Used for old IDL versions
print,""
print,"It is assumed you have added 'LampPackage' and 'LampPackage\lamp_mac'"
print," from File -> Preferences -> Path"
print,""
.run sys_dep.pro
lamd= sys_dep("GETENV" ,"LAMP_DIR")
cd,current=me_ee
mymac= sys_dep("NEWSUB" ,me_ee, "lamp_mac")
mymac= expand_path('+'+mymac)
bid = sys_dep("ADDPATH",mymac)
divd = sys_dep("DIVIDER")
if lamd eq "" then divd=""
print,"Compiling lamp ..." & wait,.1
.run lamp.pro
print,"Compiling dids ..." & wait,.1
.run dids.pro
print,"Compiling dons ..." & wait,.1
.run dons.pro
print,"Compiling bens ..." & wait,.1
.run bens.pro
print,"Compiling Idl macros ..." & wait,.1
if sys_dep("VERSION") ge 5.6 then resolve_routine,"swap_endian_inplace"
if sys_dep("VERSION") ge 5.4 then resolve_routine,"xvolume_write_image"
if sys_dep("VERSION") ge 5.4 then resolve_routine,"xvolume_rotate"
if sys_dep("VERSION") ge 5.4 then resolve_routine,"xvolume"
if sys_dep("VERSION") ge 5.4 then resolve_routine,"xplot3d"
if sys_dep("VERSION") ge 5.4 then resolve_routine,"strsplit" ,/is_f
if sys_dep("VERSION") ge 5.0 then resolve_routine,"xinteranimate"
if sys_dep("VERSION") ge 5.0 then resolve_routine,"slicer3"
if sys_dep("VERSION") eq 5.1 then resolve_routine,"write_tiff"
if sys_dep("VERSION") eq 5.1 then resolve_routine,"read_tiff" ,/is_f
if sys_dep("VERSION") ge 5.6 then resolve_routine,"xobjview"
if sys_dep("VERSION") ge 5.6 then resolve_routine,"xobjview_rotate"
if sys_dep("VERSION") ge 5.6 then resolve_routine,"xobjview_write_image"
if sys_dep("VERSION") ge 5.6 then resolve_routine,"idlexviewmanip__define"
if sys_dep("VERSION") ge 5.6 then resolve_routine,"idlexobjviewwid__define"
if sys_dep("VERSION") ge 5.6 then resolve_routine,"idlexobjview__define"
if sys_dep("VERSION") ge 5.6 then resolve_routine,"idlexwidget__define"
if sys_dep("VERSION") ge 5.6 then resolve_routine,"idlexviewgroup__define"
if sys_dep("VERSION") ge 5.6 then resolve_routine,"idlexmodelmanip__define"
if sys_dep("VERSION") ge 5.6 then resolve_routine,"idlexinscribingview__define"
if sys_dep("VERSION") ge 5.6 then resolve_routine,"idlexvolview__define"
if sys_dep("VERSION") ge 5.6 then resolve_routine,"idlexvolviewwid__define"
if sys_dep("VERSION") ge 5.4 then resolve_routine,"mpeg_open" ,/is_f
if sys_dep("VERSION") ge 5.4 then resolve_routine,"mpeg_close"
if sys_dep("VERSION") ge 5.4 then resolve_routine,"mpeg_put"
if sys_dep("VERSION") ge 5.4 then resolve_routine,"mpeg_save"
print,'-> PATH_SEP IN KERNEL SINCE 7.1 *********************************************'
if sys_dep("VERSION") ge 5.5 then resolve_routine,"path_sep" ,/is_f
;if sys_dep("VERSION") ge 5.4 then resolve_routine,"write_png"
;if sys_dep("VERSION") ge 5.4 then resolve_routine,"read_png" ,/is_f
;if sys_dep("VERSION") ge 5.4 then resolve_routine,"write_jpeg"
;if sys_dep("VERSION") ge 5.2 then resolve_routine,"dialog_pickfile",/is_f
;if sys_dep("VERSION") ge 5.0 then resolve_routine,"hdf_browser" ,/is_f
;if sys_dep("VERSION") ge 5.6 then resolve_routine,"h5_browser" ,/is_f
if sys_dep("VERSION") ge 5.3 then resolve_routine,"dialog_write_image" ,/is_f
if sys_dep("VERSION") ge 5.3 then resolve_routine,"query_image" ,/is_f
if sys_dep("VERSION") ge 5.3 then resolve_routine,"cw_filesel" ,/is_f
if sys_dep("VERSION") ge 5.3 then resolve_routine,"cw_field" ,/is_f
if sys_dep("VERSION") ge 5.3 then resolve_routine,"cw_fslider" ,/is_f
resolve_routine,"rb_routines"
resolve_routine,"read_binary" ,/is_f
resolve_routine,"write_pict"
resolve_routine,"read_pict"
resolve_routine,"write_bmp"
resolve_routine,"write_gif"
resolve_routine,"read_gif"
resolve_routine,"polar_surface",/is_f
resolve_routine,"polar_contour"
resolve_routine,"xdisplayfile"
resolve_routine,"surface_fit" ,/is_f
resolve_routine,"xregistered" ,/is_f
resolve_routine,"cw_animate" ,/is_f
resolve_routine,"plot_3dbox"
resolve_routine,"correlate" ,/is_f
resolve_routine,"cw_bgroup" ,/is_f
resolve_routine,"tek_color"
resolve_routine,"xmanager"
resolve_routine,"annotate"
resolve_routine,"bin_date" ,/is_f
print,'-> FILEPATH IN KERNEL SINCE 8.0 **********************************************'
resolve_routine,"filepath" ,/is_f
resolve_routine,"file_which" ,/is_f
resolve_routine,"interpol" ,/is_f
resolve_routine,"gaussfit" ,/is_f
resolve_routine,"poly_fit" ,/is_f
resolve_routine,"curvefit" ,/is_f
resolve_routine,"xloadct"
resolve_routine,"errplot"
resolve_routine,"oploterr"
resolve_routine,"reverse" ,/is_f
resolve_routine,"congrid" ,/is_f
resolve_routine,"rstrpos" ,/is_f
resolve_routine,"str_sep" ,/is_f