diff --git a/HEN_HOUSE/user_codes/sprrznrc/sprrznrc.mortran b/HEN_HOUSE/user_codes/sprrznrc/sprrznrc.mortran
index 138a1c16d..847c73045 100644
--- a/HEN_HOUSE/user_codes/sprrznrc/sprrznrc.mortran
+++ b/HEN_HOUSE/user_codes/sprrznrc/sprrznrc.mortran
@@ -4668,8 +4668,8 @@ IF(ISPRREG=1)["create the .plotdat file"
     AXISTYPE=0;             "0 for no logs"
     DO IX=1, NR [
        XCOORD(IX) = RCYL(IX);
-       YCOORD(IZ) = SCDOSE(IZ,IX,3)/Dmax;
-       UNCERT(IZ) = SCDOSE(IZ,IX,3)*SCDOSE2(IZ,IX,3)/(Dmax*100.);
+       YCOORD(IX) = SCDOSE(IZ,IX,3)/Dmax;
+       UNCERT(IX) = SCDOSE(IZ,IX,3)*SCDOSE2(IZ,IX,3)/(Dmax*100.);
     ]
     "Convert slab number(IZ) to a character string"
     $CONVERT_INT(IZ)_TO_CHAR(CH_IZ);