diff options
| author | Alain Hebert <alainhebert@Alains-MacBook-Pro.local> | 2025-11-18 12:47:07 +0100 |
|---|---|---|
| committer | Alain Hebert <alainhebert@Alains-MacBook-Pro.local> | 2025-11-18 12:47:07 +0100 |
| commit | 4c8d602bd6a907a9be5b283cffa326264a1d938b (patch) | |
| tree | 9965e4bf8c6f88edd42a7bf683217fa5f8f00345 /Dragon/src/APXGEY.f | |
| parent | 72387a297ad533948a0da5bf91695a38923fb471 (diff) | |
#7: Correct a segmentation fault in modules APX: and MPO:
Diffstat (limited to 'Dragon/src/APXGEY.f')
| -rw-r--r-- | Dragon/src/APXGEY.f | 2 |
1 files changed, 1 insertions, 1 deletions
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 *---- |