fixed null ref_im reference crashing fixpix task

iraf-community · Dec 14, 2023 · 091f1d3 · 091f1d3
1 parent d2d3dcc
commit 091f1d3
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/sys/imio/impmmapo.x b/sys/imio/impmmapo.x
@@ -38,7 +38,8 @@ begin
 
 	# Set up the image descriptor.
 	IM_NDIM(im) = naxes
-	IM_NPHYSDIM(im) = IM_NPHYSDIM(ref_im)
+	if (ref_im != NULL)
+	    IM_NPHYSDIM(im) = IM_NPHYSDIM(ref_im)
 	IM_PIXTYPE(im) = TY_INT
 	call amovl (axlen, IM_LEN(im,1), IM_MAXDIM)