fix 4.73 extension

NOAA-EMC · Dec 5, 2024 · b201f2f · b201f2f
1 parent af1e388
commit b201f2f
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/pdstemplates.c b/src/pdstemplates.c
@@ -954,16 +954,16 @@ extpdstemplate(g2int number, g2int *list)
     /* PDT 4.73 (12/04/2024) */
     else if (number == 73)
     {
-        if (list[29] > 1)
+        if (list[27] > 1)
         {
-            new->extlen = (list[29] - 1) * 6;
+            new->extlen = (list[27] - 1) * 6;
             new->ext = malloc(sizeof(g2int) * new->extlen);
-            for (j = 2; j <= list[29]; j++)
+            for (j = 2; j <= list[27]; j++)
             {
                 l = (j - 2) * 6;
                 for (k = 0; k < 6; k++)
                 {
-                    new->ext[l + k] = new->map[31 + k];
+                    new->ext[l + k] = new->map[29 + k];
                 }
             }
         }