1 files changed, 116 insertions, 0 deletions
diff --git a/pkg/images/immatch/src/psfmatch/rgpshow.x b/pkg/images/immatch/src/psfmatch/rgpshow.x
new file mode 100644
index 00000000..c94349a6
--- /dev/null
+++ b/pkg/images/immatch/src/psfmatch/rgpshow.x
@@ -0,0 +1,116 @@
+include "psfmatch.h"
+
+# RG_PSHOW -- Print the PSFMATCH task parameters.
+
+procedure rg_pshow (pm)
+
+pointer	pm		#I pointer to psfmatch structure
+
+pointer	sp, str
+bool	itob()
+int	rg_pstati()
+real	rg_pstatr()
+
+begin
+	call smark (sp)
+	call salloc (str, SZ_LINE, TY_CHAR)
+
+	call rg_pstats (pm, CSTRING, Memc[str], SZ_FNAME)
+	call printf ("\nConvolution: %s\n")
+	    call pargstr (Memc[str])
+	if (rg_pstati (pm, CONVOLUTION) == PM_CONIMAGE) {
+	    call rg_pstats (pm, IMAGE, Memc[str], SZ_FNAME)
+	    call printf ("    %s: %s\n")
+	        call pargstr (KY_IMAGE)
+	        call pargstr (Memc[str])
+	    call rg_pstats (pm, REFIMAGE, Memc[str], SZ_FNAME)
+	    call printf ("    %s: %s\n")
+	        call pargstr (KY_REFIMAGE)
+	        call pargstr (Memc[str])
+	    call rg_pstats (pm, PSFDATA, Memc[str], SZ_FNAME)
+	    call printf ("    %s: %s\n")
+	        call pargstr (KY_PSFDATA)
+	        call pargstr (Memc[str])
+	} else if (rg_pstati (pm, CONVOLUTION) == PM_CONPSF) {
+	    call rg_pstats (pm, IMAGE, Memc[str], SZ_FNAME)
+	    call printf ("    %s: %s\n")
+	        call pargstr (KY_IMAGE)
+	        call pargstr (Memc[str])
+	    call rg_pstats (pm, PSFIMAGE, Memc[str], SZ_FNAME)
+	    call printf ("    input psf: %s\n")
+	        call pargstr (Memc[str])
+	    call rg_pstats (pm, REFIMAGE, Memc[str], SZ_FNAME)
+	    call printf ("    reference psf: %s\n")
+	        call pargstr (Memc[str])
+	} else {
+	    call rg_pstats (pm, IMAGE, Memc[str], SZ_FNAME)
+	    call printf ("    %s: %s\n")
+	        call pargstr (KY_IMAGE)
+	        call pargstr (Memc[str])
+	}
+
+	call rg_pstats (pm, KERNEL, Memc[str], SZ_FNAME)
+	call printf ("    %s: %s\n")
+	    call pargstr (KY_KERNEL)
+	    call pargstr (Memc[str])
+	call rg_pstats (pm, OUTIMAGE, Memc[str], SZ_FNAME)
+	if (Memc[str] != EOS) {
+	    call printf ("    %s: %s\n")
+	        call pargstr (KY_OUTIMAGE)
+	        call pargstr (Memc[str])
+	}
+
+	call printf ("Centering and background fitting\n")
+	call printf ("    %s: %b\n")
+	    call pargstr (KY_CENTER)
+	    call pargb (itob(rg_pstati(pm,CENTER)))
+	call rg_pstats (pm, BSTRING, Memc[str], SZ_LINE)
+	call printf ("    %s:  %s\n")
+	    call pargstr (KY_BACKGRD)
+	    call pargstr (Memc[str])
+	call printf ("    %s = %g   %s = %g\n")
+	    call pargstr (KY_LOREJECT)
+	    call pargr (rg_pstatr (pm, LOREJECT))
+	    call pargstr (KY_HIREJECT)
+	    call pargr (rg_pstatr (pm, HIREJECT))
+	call printf ("    %s = %g\n")
+	    call pargstr (KY_APODIZE)
+	    call pargr (rg_pstatr (pm, APODIZE))
+
+	call printf ("Filtering:\n")
+	call rg_pstats (pm, FSTRING, Memc[str], SZ_LINE)
+	call printf ("    %s:  %s\n")
+	    call pargstr (KY_FILTER)
+	    call pargstr (Memc[str])
+	if (rg_pstati(pm,FILTER) == PM_FCOSBELL) {
+	    call printf ("    %s:  %g    %s: %g\n")
+	        call pargstr (KY_SXINNER)
+	        call pargr (rg_pstatr (pm, SXINNER))
+	        call pargstr (KY_SXOUTER)
+	        call pargr (rg_pstatr (pm, SXOUTER))
+	    call printf ("    %s:  %g    %s: %g\n")
+	        call pargstr (KY_SYINNER)
+	        call pargr (rg_pstatr (pm, SYINNER))
+	        call pargstr (KY_SYOUTER)
+	        call pargr (rg_pstatr (pm, SYOUTER))
+	    call printf ("    %s: %b\n")
+	        call pargstr (KY_RADSYM)
+	        call pargb (itob(rg_pstati(pm,RADSYM)))
+	} else {
+	    call printf ("    %s: %g\n")
+	        call pargstr (KY_UFLUXRATIO)
+	        call pargr (rg_pstatr (pm, UFLUXRATIO))
+	    call printf ("    %s: %g\n")
+	        call pargstr (KY_THRESHOLD)
+	        call pargr (rg_pstatr(pm,THRESHOLD))
+	}
+
+	call printf ("Normalization\n")
+	call printf ("    %s: %g\n")
+	    call pargstr (KY_NORMFACTOR)
+	    call pargr (rg_pstatr (pm, NORMFACTOR))
+
+	call printf ("\n")
+
+	call sfree (sp)
+end