diff options
Diffstat (limited to 'Donjon/src/MCRTRP.f')
| -rw-r--r-- | Donjon/src/MCRTRP.f | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/Donjon/src/MCRTRP.f b/Donjon/src/MCRTRP.f index 204120d..cf034c2 100644 --- a/Donjon/src/MCRTRP.f +++ b/Donjon/src/MCRTRP.f @@ -65,6 +65,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 *---- IBURN=0 @@ -213,12 +220,12 @@ TERP(ICAL)=TERP(ICAL)+TERTMP 100 CONTINUE ENDIF - IF(IMPX.GT.3) THEN + DEALLOCATE(MUPLE2) + IF(NPAR.GT.0) DEALLOCATE(NVALUE) + 110 IF(IMPX.GT.3) THEN WRITE(IOUT,'(25H MCRTRP: TERP PARAMETERS:/(1X,1P,10E12.4))') 1 (TERP(I),I=1,NCAL) ENDIF - DEALLOCATE(MUPLE2) - IF(NPAR.GT.0) DEALLOCATE(NVALUE) RETURN *---- * MISSING ELEMENTARY CALCULATION EXCEPTION. |