diff options
| author | Alain Hebert <alainhebert@Alains-MacBook-Pro.local> | 2025-12-12 21:11:16 +0100 |
|---|---|---|
| committer | Alain Hebert <alainhebert@Alains-MacBook-Pro.local> | 2025-12-12 21:11:16 +0100 |
| commit | 21253b193e759e843947a509d490c45823fa380e (patch) | |
| tree | 8db9d05830415100b701fa1b968c634760e81f70 /Donjon/src/ACRTRP.f | |
| parent | df15a9b5e09ef7f6bd22fbb9cc3db577e2463cab (diff) | |
#18: Implement the trival one-calculation case in subroutines *CRTRP.f
Diffstat (limited to 'Donjon/src/ACRTRP.f')
| -rw-r--r-- | Donjon/src/ACRTRP.f | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/Donjon/src/ACRTRP.f b/Donjon/src/ACRTRP.f index 6a3e875..1091bc4 100644 --- a/Donjon/src/ACRTRP.f +++ b/Donjon/src/ACRTRP.f @@ -62,6 +62,13 @@ REAL, ALLOCATABLE, DIMENSION(:) :: TERPA,VREAL CHARACTER(LEN=80), ALLOCATABLE, DIMENSION(:) :: PARNAM *---- +* TRIVAL CASE WHERE NCAL=1 +*---- + IF(NCAL.EQ.1) THEN + TERP(1)=1.0 + GO TO 110 + ENDIF +*---- * RECOVER TREE INFORMATION *---- CALL hdf5_read_data(IPAPX,"/paramtree/DEBTREE",JDEBAR) @@ -188,11 +195,11 @@ TERP(ICAL)=TERP(ICAL)+TERTMP 100 CONTINUE ENDIF - IF(IMPX.GT.3) THEN + DEALLOCATE(JARBVA,JDEBAR,NVALUE) + 110 IF(IMPX.GT.3) THEN WRITE(IOUT,'(25H ACRTRP: TERP PARAMETERS:/(1X,1P,10E12.4))') 1 (TERP(I),I=1,NCAL) ENDIF - DEALLOCATE(JARBVA,JDEBAR,NVALUE) RETURN *---- * MISSING ELEMENTARY CALCULATION EXCEPTION. |