From a207432e5b4d0f1f1b150cfdb14b77e4734a064f Mon Sep 17 00:00:00 2001 From: "John J. Allison" Date: Thu, 18 Apr 2024 15:44:50 -0600 Subject: [PATCH] fix compile for gfortran 11.4.1 on RHEL 9.3 --- config/Makeinc.linux64_gfortran | 2 +- gempak/source/programs/dc/dcuair/dcudcd.f | 8 ++++---- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/config/Makeinc.linux64_gfortran b/config/Makeinc.linux64_gfortran index 42a23f0c..0b3694f2 100644 --- a/config/Makeinc.linux64_gfortran +++ b/config/Makeinc.linux64_gfortran @@ -9,7 +9,7 @@ MOTIFINC = -I/usr/X11R6/include XWINCDIR = -I/usr/X11R6/include COPT = -DUNDERSCORE -D$(OPSYS) $(GEMINC) $(MOTIFINC) $(PYINC) $(WITHPY) -DG_64BIT -g -O2 -fPIC -FOPT = -fno-second-underscore -fno-range-check -fd-lines-as-comments $(GEMINC) -g -O +FOPT = -fallow-invalid-boz -fallow-argument-mismatch -fno-second-underscore -fno-range-check -fd-lines-as-comments $(GEMINC) -g -O NCII = "-I../libsrc" NCOPT = "CPPFLAGS=-DNDEBUG -Df2cFortran -I$(OS_INC)" "FFLAGS=-O -Wno-globals" "CFLAGS=-O $(NCII)" "CXX= " JASPEROPT = 'CC=$(CC)' 'CFLAGS=-O' '--disable-libjpeg' diff --git a/gempak/source/programs/dc/dcuair/dcudcd.f b/gempak/source/programs/dc/dcuair/dcudcd.f index f7005ff5..63065fcf 100644 --- a/gempak/source/programs/dc/dcuair/dcudcd.f +++ b/gempak/source/programs/dc/dcuair/dcudcd.f @@ -241,10 +241,10 @@ SUBROUTINE DCUDCD ( curtim, gemfil, stntbl, iadstn, maxtim, C* the TTBB message, still decode the following C* PPBB winds. C - ipres = INDEX ( bultin ( 1: lenbul ), '21212' ) - IF ( ipres .ne. 0 ) THEN - IF ( part .eq. 'PPBB' ) good = .true. - END IF + ipres = INDEX ( bultin ( 1: lenbul ), '21212' ) + IF ( ipres .ne. 0 ) THEN + IF ( part .eq. 'PPBB' ) good = .true. + END IF END IF IF ( good ) THEN C