#!/bin/csh -f
#
#  Copy COMPONENT.c i.e. all functions lumped together
#
echo Packing functions for j_ima_iros
#
#cp  /r9/jemx/j_ima_iros/j_ima_iros_main.c .
cp  landvad/j_ima_iros_main.c .
\rm j_ima_iros_main.o
#
set TARGET = j_ima_iros.c
#
cp  /r9/jemx/j_ima_iros/subs/j_ima_iros_params.c              $TARGET
cat /r9/jemx/j_ima_iros/subs/j_ima_iros_prepare.c         >>  $TARGET
cat landvad/j_ima_iros_work2.c           >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/final_fit.c                  >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/final_sky.c                  >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/irosloop2.c                  >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/imageprep.c                  >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/backpro8_2.c                 >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/backpro8_W.c                 >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/j_iir_get_shds.c             >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/j_iir_bin_search.c           >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/getNumShds.c                 >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/j_iir_get_events.c           >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/j_read_GTI.c                 >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/j_iir_get_gain.c             >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/j_iir_get_dead_time.c        >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/j_iir_get_greyfilter.c       >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/j_iir_fill_adhoc_shd.c       >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/shadowfit.c                  >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/fluxerror.c                  >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/errorfit.c                   >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/errorfit2.c                  >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/calibout.c                   >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/initGOOD.c                   >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/initUSER.c                   >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/off_axis_transmisImag.c      >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/skyout.c                     >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/clean.c                      >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/clean0.c                     >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/skyval.c                     >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/clean2.c                     >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/peaktransfer.c               >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/findpeak2.c                  >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/backsky_init.c               >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/saveparams.c                 >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/FUN.c                        >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/j_pif_limits2.c              >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/j_fitprep.c                  >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/set_shdg_text.c              >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/subshadowgram.c              >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/backpro8_d.c                 >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/logprint.c                   >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/j_iir_get_bkgshds.c          >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/j_iir_get_psfsigma.c         >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/jemxlib_array_put.c          >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/backpro8_init.c              >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/j_iir_read_bpl.c             >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/j_iir_get_XYvsEima.c         >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/hotpix_chk.c                 >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/pixelfold.c                  >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/rmscalc.c                    >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/outfit_isdc.c                >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/gaussj_nr.c                  >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/kwds_funcs.c                 >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/kwds_write.c                 >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/general_funcs.c              >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/fits_test_output.c           >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/skymap_gen.c                 >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/skymap.c                     >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/skymap_init.c                >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/mask_test.c                  >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/snapshot1.c                  >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/snapshot3.c                  >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/j_iir_arcdist.c              >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/shdg_to_fits.c               >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/paltani_subs.c               >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/radcor.c                     >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/blankout.c                   >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/chk_radcor_params.c          >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/j_iir_write_srclres.c        >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/summary_p.c                  >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/initTslice.c                 >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/traces.c                     >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/rms_sky.c                    >>  $TARGET
cat /r9/jemx/j_ima_iros/subs/getKarakter.c                >>  $TARGET
#
#  Include routines that are common for j_ima_iros
#  and j_src_properties
#
#
cat /r9/jemx/jmx_lib_pif/electronic_eff.c             >>  $TARGET
cat /r9/jemx/jmx_lib_pif/j_iir_get_radec_init.c       >>  $TARGET
cat /r9/jemx/jmx_lib_pif/saveparam2.c                 >>  $TARGET
cat /r9/jemx/jmx_lib_pif/jemxlib_get_status_map.c     >>  $TARGET
cat /r9/jemx/jmx_lib_pif/jemxlib_get_mask.c           >>  $TARGET
cat /r9/jemx/jmx_lib_pif/j_lpf_get_sc_hk.c            >>  $TARGET
cat /r9/jemx/jmx_lib_pif/j_lpf_get_jemx_hk.c          >>  $TARGET
cat /r9/jemx/jmx_lib_pif/detectmap2.c                 >>  $TARGET
cat /r9/jemx/jmx_lib_pif/getRAdec.c                   >>  $TARGET
cat /r9/jemx/jmx_lib_pif/getxy.c                      >>  $TARGET
cat /r9/jemx/jmx_lib_pif/sh_xy.c                      >>  $TARGET
cat /r9/jemx/jmx_lib_pif/shapefold.c                  >>  $TARGET
cat /r9/jemx/jmx_lib_pif/sh_depth.c                   >>  $TARGET
cat /r9/jemx/jmx_lib_pif/shapecomb.c                  >>  $TARGET
cat /r9/jemx/jmx_lib_pif/sign.c                       >>  $TARGET
cat /r9/jemx/jmx_lib_pif/m_strukdef.c                 >>  $TARGET
cat /r9/jemx/jmx_lib_pif/hexpos.c                     >>  $TARGET
cat /r9/jemx/jmx_lib_pif/transpose_usi.c              >>  $TARGET
cat /r9/jemx/jmx_lib_pif/jemxlib_get_instr_data.c     >>  $TARGET
cat /r9/jemx/jmx_lib_pif/j_lpf_lilipol.c              >>  $TARGET
cat /r9/jemx/jmx_lib_pif/update_imod_data.c           >>  $TARGET
cat /r9/jemx/jmx_lib_pif/j_lpf_array_all.c            >>  $TARGET
cat /r9/jemx/jmx_lib_pif/j_lpf_get_spag_mod.c         >>  $TARGET
cat /r9/jemx/jmx_lib_pif/j_lpf_get_EEFF_CFTM_CURT.c   >>  $TARGET
cat /r9/jemx/jmx_lib_pif/j_lpf_get_XYvsE.c            >>  $TARGET
cat /r9/jemx/jmx_lib_pif/fine_anoder.c                >>  $TARGET
cat /r9/jemx/jmx_lib_pif/coll_transmit.c              >>  $TARGET
cat /r9/jemx/jmx_lib_pif/off_axis_transmission.c      >>  $TARGET
cat /r9/jemx/jmx_lib_pif/get_effic2.c                 >>  $TARGET
#
#   Copy jmx_li/r9/jemx/j_ima_iros/subs include file
#
##  - following not to be copied since updates may happen here
cp  /r9/jemx/j_ima_iros/subs/j_ima_iros.h .
cp  /r9/jemx/jmx_lib_pif/jmx_lib_pif.h .
cp  /r9/jemx/jmx_lib_pif/jmx_lib_pif_subroutine.h .
cp  /r9/jemx/j_ima_iros/subs/calibout.h .
cp  /r9/jemx/j_ima_iros/subs/jemx.h .
#
#  Remove all "#include" lines except the first
#
set INSTITUT = `echo $HOST | cut -c 1-4`
echo $INSTITUT
if ( $INSTITUT == "crab" ) then
   ex - $TARGET < /home/isdc_guest/westerga/ex_scripts/ex_remove_include
else
   ex - $TARGET < ex_remove_include
endif
chmod a+w $TARGET