diff options
| author | HEBERT Alain <alain.hebert@polymtl.ca> | 2025-11-18 08:02:42 -0500 |
|---|---|---|
| committer | HEBERT Alain <alain.hebert@polymtl.ca> | 2025-11-18 08:02:42 -0500 |
| commit | 027a8a12fa3dda8a166855e698d59f5b8cc5e799 (patch) | |
| tree | 9965e4bf8c6f88edd42a7bf683217fa5f8f00345 /Dragon/src/MPOGEY.f | |
| parent | 72387a297ad533948a0da5bf91695a38923fb471 (diff) | |
| parent | 4c8d602bd6a907a9be5b283cffa326264a1d938b (diff) | |
Merge branch '7-missing-param-group-in-apex-datafile-produced-by-module-apx' into 'main'
#7: Correct a segmentation fault in modules APX: and MPO:
See merge request dragon/5.1!25
Diffstat (limited to 'Dragon/src/MPOGEY.f')
| -rw-r--r-- | Dragon/src/MPOGEY.f | 2 |
1 files changed, 1 insertions, 1 deletions
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) *---- |