From 457a4b1cebc5175d2be6509909c82293266dcd32 Mon Sep 17 00:00:00 2001
From: Nick Gould <dalekopera@gmail.com>
Date: Tue, 1 Oct 2024 09:43:09 +0100
Subject: [PATCH] fix to truncate classification string at 30 characters;
 standard prohibits this!

---
 src/decode/sifdecode.f90 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/decode/sifdecode.f90 b/src/decode/sifdecode.f90
index 791280f..72def99 100644
--- a/src/decode/sifdecode.f90
+++ b/src/decode/sifdecode.f90
@@ -1921,7 +1921,7 @@ SUBROUTINE INTERPRET_gpsmps(                                             &
 
 !  the string has been found, now search for the classification string itself
 
-                classification_start = .FALSE. ; jstop = 80
+                classification_start = .FALSE. ; jstop = max_record_length
                 DO j = i + 14, max_record_length
                   IF ( .NOT. classification_start ) THEN
                     IF ( NULINE( j : j ) /= ' ' ) THEN
@@ -1938,6 +1938,7 @@ SUBROUTINE INTERPRET_gpsmps(                                             &
 
 !  copy the string and exit
 
+                jstop = MIN( jstop, jstart + 29 )
                 classification( 1 : jstop - jstart + 1 )                       &
                   = NULINE( jstart : jstop )
                 got_classification = .TRUE.