diff options
Diffstat (limited to 'Donjon/src/NCRTRP.f')
| -rw-r--r-- | Donjon/src/NCRTRP.f | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/Donjon/src/NCRTRP.f b/Donjon/src/NCRTRP.f index 9b5203d..2298662 100644 --- a/Donjon/src/NCRTRP.f +++ b/Donjon/src/NCRTRP.f @@ -65,6 +65,13 @@ INTEGER, ALLOCATABLE, DIMENSION(:) :: JDEBAR,JARBVA REAL, ALLOCATABLE, DIMENSION(:) :: TERPA *---- +* TRIVAL CASE WHERE NCAL=1 +*---- + IF(NCAL.EQ.1) THEN + TERP(1)=1.0 + GO TO 110 + ENDIF +*---- * RECOVER TREE INFORMATION *---- JPCPO=LCMGID(IPCPO,'GLOBAL') @@ -205,11 +212,11 @@ TERP(ICAL)=TERP(ICAL)+TERTMP 100 CONTINUE ENDIF - IF(IMPX.GT.3) THEN + DEALLOCATE(JARBVA,JDEBAR) + 110 IF(IMPX.GT.3) THEN WRITE(IOUT,'(35H NCRTRP: TERP PARAMETERS IN MIXTURE,I4,1H:/(1X, 1 1P,10E12.4))') IBMOLD,(TERP(I),I=1,NCAL) ENDIF - DEALLOCATE(JARBVA,JDEBAR) RETURN *---- * MISSING ELEMENTARY CALCULATION EXCEPTION. |