From 28cd9c9d1fed6cd8cf1b579de71fbc7c9e13c712 Mon Sep 17 00:00:00 2001 From: Alain Hebert Date: Sun, 19 Oct 2025 09:19:38 +0200 Subject: #7: Continue the commit --- Dragon/src/APXCAT.f | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Dragon') diff --git a/Dragon/src/APXCAT.f b/Dragon/src/APXCAT.f index ba1cf25..3367096 100644 --- a/Dragon/src/APXCAT.f +++ b/Dragon/src/APXCAT.f @@ -161,7 +161,7 @@ CALL APXPAV(IPAPX,IPARN,NPAR,PARFMT_RHS(IPAR),FLOTT,NITMA, 1 TEXT12,MUPLET(IPARN),LGNEW(IPARN)) 100 CONTINUE - DEALLOCATE(PARNAM_RHS,PARFMT_RHS,PARNAM_LHS) + DEALLOCATE(PARNAM_RHS,PARFMT_RHS) *---- * UPDATE THE PARAMETER TREE IN THE OUTPUT APEX FILE *---- @@ -281,7 +281,7 @@ DEALLOCATE(VCHAR) ENDIF 170 CONTINUE - DEALLOCATE(PARFMT_LHS) + DEALLOCATE(PARNAM_LHS,PARFMT_LHS) 180 CONTINUE * END OF LOOP ON ELEMENTARY CALCULATIONS. ******************** RETURN -- cgit v1.2.3