From d777b55a207d06f53c1746faf139e1a9d7ecd6ad Mon Sep 17 00:00:00 2001 From: Nick Gould Date: Tue, 1 Oct 2024 10:05:29 +0100 Subject: [PATCH] deal with nonstandard classsifications --- src/decode/sifdecode.f90 | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/decode/sifdecode.f90 b/src/decode/sifdecode.f90 index 72def99..5582e7d 100644 --- a/src/decode/sifdecode.f90 +++ b/src/decode/sifdecode.f90 @@ -1251,7 +1251,7 @@ SUBROUTINE INTERPRET_gpsmps( & INTEGER :: iptype, istype, ndtype, level, ijump, lineno INTEGER :: level3, lev1, lev2, lev3, lev1s, lev2s, lev3s INTEGER :: lev1e, lev2e, lev3e, lev1i, lev2i, lev3i, levl3a - INTEGER :: ninstr1, ninstr2, ninstr3, jstart, jstop + INTEGER :: ninstr1, ninstr2, ninstr3, jstart, jstop, hyphen INTEGER :: used_length, new_length, min_length, alloc_status INTEGER :: used_length2, new_length2, min_length2 INTEGER :: used_length3, new_length3, min_length3 @@ -1927,9 +1927,11 @@ SUBROUTINE INTERPRET_gpsmps( & IF ( NULINE( j : j ) /= ' ' ) THEN jstart = j classification_start = .TRUE. + hyphen = 0 END IF ELSE - IF ( NULINE( j : j ) == ' ' ) THEN + IF ( NULINE( j : j ) == '-' ) hyphen = hyphen + 1 + IF ( NULINE( j : j ) == ' ' .OR. hyphen == 4 ) THEN jstop = j - 1 EXIT END IF