fix to truncate classification string at 30 characters; standard proh…

…ibits this!
ralna · Oct 1, 2024 · 457a4b1 · 457a4b1
1 parent 6181b19
commit 457a4b1
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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.