Merge pull request #638 from rpeacoc/master

CFAST: Corrected subscript error in detector input.
firemodels · Nov 29, 2016 · 6b527f3 · 6b527f3
2 parents adc368a + 7144a8b
commit 6b527f3
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Source/CFAST/input.f90 b/Source/CFAST/input.f90
@@ -1317,15 +1317,15 @@ subroutine keywordcases(inumr,inumc)
                 if (dtectptr%spray_density==0.0_eb) then
                     dtectptr%quench = .false.
                 end if
-                ! if there's a sprinkler that can go off, then make sure the time step is small enough to report ir accurately
+                ! if there's a sprinkler that can go off, then make sure the time step is small enough to report it accurately
                 if (dtectptr%quench) then
                     if (stpmax>0) then
                         stpmax = min(stpmax,1.0_eb)
                     else
                         stpmax = 1.0_eb
                     end if
                 end if
-                roomptr => roominfo(ir)
+                roomptr => roominfo(iroom)
                 if (roomptr%name==' ') then
                     write (*,5344) i2
                     write (iofill,5344) i2