diff options
| author | HEBERT Alain <alain.hebert@polymtl.ca> | 2025-12-12 16:09:45 -0500 |
|---|---|---|
| committer | HEBERT Alain <alain.hebert@polymtl.ca> | 2025-12-12 16:09:45 -0500 |
| commit | 338c590068f0f867d89c78598af32f121df1936a (patch) | |
| tree | 8db9d05830415100b701fa1b968c634760e81f70 /Donjon/src/PCRTRP.f | |
| parent | df15a9b5e09ef7f6bd22fbb9cc3db577e2463cab (diff) | |
| parent | 21253b193e759e843947a509d490c45823fa380e (diff) | |
Merge branch '18-implement-the-trival-one-calculation-case-in-subroutines-crtrp-f' into 'main'
#18: Implement the trival one-calculation case in subroutines *CRTRP.f
See merge request dragon/5.1!33
Diffstat (limited to 'Donjon/src/PCRTRP.f')
| -rw-r--r-- | Donjon/src/PCRTRP.f | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/Donjon/src/PCRTRP.f b/Donjon/src/PCRTRP.f index a19ba85..5e32eb7 100644 --- a/Donjon/src/PCRTRP.f +++ b/Donjon/src/PCRTRP.f @@ -61,6 +61,13 @@ *---- REAL, ALLOCATABLE, DIMENSION(:) :: TERPA *---- +* TRIVAL CASE WHERE NCAL=1 +*---- + IF(NCAL.EQ.1) THEN + TERP(1)=1.0 + GO TO 110 + ENDIF +*---- * COMPUTE TERP FACTORS *---- TERP(:NCAL)=0.0 @@ -172,7 +179,7 @@ TERP(ICAL)=TERP(ICAL)+TERTMP 100 CONTINUE ENDIF - IF(IMPX.GT.3) THEN + 110 IF(IMPX.GT.3) THEN WRITE(IOUT,'(25H PCRTRP: TERP PARAMETERS:/(1X,1P,10E12.4))') 1 (TERP(I),I=1,NCAL) ENDIF |