Merge pull request #275 from ChemCryst/fix-text-summary-crash

Prevent overlong colour descriptions overflowing in summary text file
ChemCryst · Jun 26, 2023 · 8087c68 · 8087c68
2 parents 1671017 + 6bb455f
commit 8087c68
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/crystals/results.F b/crystals/results.F
@@ -5822,7 +5822,7 @@ subroutine snum(coor,esd,nd,np,j,ivet)
      1     CTEMP(4:MAX(4,J-1)),''''
           CALL XPCIF (CLINE)
         ELSE IF ( IPUNCH .EQ. 1 ) THEN
-          WRITE (CPAGE(12,1)(:),'(A,1X,A)') 'Colour',CTEMP(1:J)
+          WRITE (CPAGE(12,1)(:),'(A,1X,A)') 'Colour',CTEMP(1:MIN(J,27))
         ELSE IF ( IPUNCH .EQ. 2 ) THEN
           WRITE (NCPU,'(''<TR><TD>Colour</TD><TD>'',A,''</TD>'')')
      1     CTEMP(1:J)