Index: trunk/Ohana/src/opihi/dvo/pmeasure.c
===================================================================
--- trunk/Ohana/src/opihi/dvo/pmeasure.c	(revision 2598)
+++ trunk/Ohana/src/opihi/dvo/pmeasure.c	(revision 3392)
@@ -11,4 +11,5 @@
   unsigned IDclip, IDchoice, LimExclude;
   unsigned FlagChoice, FlagClip, flags;
+  int PhotcodeClip;
 
   Catalog catalog;
@@ -29,4 +30,10 @@
   Rmax = graphmode.coords.crval1 + 182.0;
 
+  PhotcodeClip = -1;
+  if (N = get_argument (argc, argv, "-p")) {
+    remove_argument (N, &argc, argv);
+    PhotcodeClip = GetPhotcodeCodebyName (argv[N]);
+    remove_argument (N, &argc, argv);
+  }
   IDclip = FALSE;
   if (N = get_argument (argc, argv, "-ID")) {
@@ -120,4 +127,5 @@
 	  if (!(flags & FlagChoice)) continue;
 	}
+	if ((PhotcodeClip != -1) && (catalog.measure[m+k].source != PhotcodeClip)) continue;
 	mag = PhotCat (&catalog.measure[m+k]);
 	Zvec.elements[N] = MIN (1.0, MAX (0.01, (mag - Mz) / Mr));