Skip to content

Commit 2a10ad3

Browse files
authored
Merge pull request #248 from PrincetonUniversity/nn-error
Add warning for nn == 0
2 parents 09b67fb + 66ff53d commit 2a10ad3

File tree

1 file changed

+6
-0
lines changed

1 file changed

+6
-0
lines changed

dcon/dcon.F

Lines changed: 6 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -115,6 +115,12 @@ PROGRAM dcon
115115
#endif
116116
delta_mhigh=delta_mhigh*2
117117
use_classic_splines_for_dcon = use_classic_splines
118+
119+
IF(nn .EQ. 0)THEN
120+
WRITE(*,*)"ERROR: nn must be set to a positive integer."
121+
CALL program_stop("nn must be a positive integer.")
122+
ENDIF
123+
118124
c-----------------------------------------------------------------------
119125
c open output files, read, process, and diagnose equilibrium.
120126
c-----------------------------------------------------------------------

0 commit comments

Comments
 (0)