Merge branch 'master' into 2018A

Starlink · Jul 6, 2018 · b6ca36b · b6ca36b
2 parents 0cd4e97 + a0e5b36
commit b6ca36b
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/applications/polpack/polselect.f b/applications/polpack/polselect.f
@@ -264,12 +264,15 @@ SUBROUTINE POLSELECT( STATUS )
          CALL CAT_SELCT( CIIN, EI, INVERT, SI, NUMSEL, SIR, NUMREJ,
      :                   STATUS)
 
-* Release the expression identifier.
+*  Release the expression identifier.
          CALL CAT_TRLSE( EI, STATUS )
 
-* The other two modes create row selection using CAT_SLIST.
+*  The other two modes create row selection using CAT_SLIST.
       ELSE
 
+*  Initialise "no group used".
+         IGRP = GRP__NOID
+
 *  Allocate work space to hold the data from the (X,Y) columns.
          CALL PSX_CALLOC( NROWIN*2, '_REAL', IPXY, STATUS )
 
@@ -322,7 +325,6 @@ SUBROUTINE POLSELECT( STATUS )
             IF( STATUS .NE. SAI__OK ) GO TO 999
 
 *  Read the ARD description from the file, into a GRP group.
-            IGRP = GRP__NOID
             CALL ARD_GRPEX( FILNAM, GRP__NOID, IGRP, CONT, STATUS )
             IF( STATUS .EQ. SAI__OK ) THEN