From 4c8d602bd6a907a9be5b283cffa326264a1d938b Mon Sep 17 00:00:00 2001 From: Alain Hebert Date: Tue, 18 Nov 2025 12:47:07 +0100 Subject: #7: Correct a segmentation fault in modules APX: and MPO: --- Dragon/src/APXGEY.f | 2 +- Dragon/src/FLUGPI.f | 2 ++ Dragon/src/MPOGEY.f | 2 +- 3 files changed, 4 insertions(+), 2 deletions(-) (limited to 'Dragon') diff --git a/Dragon/src/APXGEY.f b/Dragon/src/APXGEY.f index d6974a0..467ec70 100644 --- a/Dragon/src/APXGEY.f +++ b/Dragon/src/APXGEY.f @@ -183,7 +183,6 @@ ENDIF ENDIF 130 CONTINUE - IF(NISO.GT.0) DEALLOCATE(NOMISO,TYPISO) *---- * STORE INFORMATION IN THE physconst GROUP. *---- @@ -194,6 +193,7 @@ CALL hdf5_write_data(IPAPX,TRIM(RECNAM),YLDS) ENDIF 140 CONTINUE + IF(NISO.GT.0) DEALLOCATE(NOMISO,TYPISO) *---- * SCRATCH STORAGE DEALLOCATION *---- diff --git a/Dragon/src/FLUGPI.f b/Dragon/src/FLUGPI.f index 91c5ef2..8f0f4b2 100644 --- a/Dragon/src/FLUGPI.f +++ b/Dragon/src/FLUGPI.f @@ -235,6 +235,8 @@ > //'LEAKAGE MODEL OTHER THAN SIGS OR HETE.') ENDIF IF(ILEAK.EQ.5) THEN + IF(IPRINT.GT.0) WRITE(6,'(8H FLUGPI:,I5,11H INTEGER VA, + > 14HLUES EXPECTED.)') NMAT DO IBM=1,NMAT CALL REDGET(ITYPLU,INTLIR,REALIR,CARLIR,DBLINP) IF((IBM.EQ.1).AND.(ITYPLU.EQ.3)) GO TO 30 diff --git a/Dragon/src/MPOGEY.f b/Dragon/src/MPOGEY.f index 3dccadf..b0dd21f 100644 --- a/Dragon/src/MPOGEY.f +++ b/Dragon/src/MPOGEY.f @@ -195,7 +195,6 @@ ENDIF ENDIF 130 CONTINUE - IF(NISO.GT.0) DEALLOCATE(NOMISO) *---- * STORE INFORMATION IN THE statept_id/zone_id GROUP. *---- @@ -203,6 +202,7 @@ > TRIM(HEDIT),ICAL-1,IMIL-1 CALL hdf5_write_data(IPMPO,TRIM(RECNAM)//"yields/YIELD",YLDS) 140 CONTINUE + IF(NISO.GT.0) DEALLOCATE(NOMISO) * CALL hdf5_write_data(IPMPO,TRIM(RECNAM)//"yields/ADDRY",ADRY) *---- -- cgit v1.2.3