Merge pull request #16226 from drjfloyd/master

FDS Source:  Fix bug

Author: drjfloyd

Source/read.f90

@@ -15739,7 +15739,7 @@ SUBROUTINE READ_SLCF
 
 REAL(EB) :: MAXIMUM_VALUE,MINIMUM_VALUE
 REAL(EB) :: AGL_SLICE
-INTEGER :: N,NN,NM,MESH_NUMBER,N_SLCF_O,NITER,ITER,VELO_INDEX,GEOM_INDEX,IOR
+INTEGER :: N,NN,NM,MESH_NUMBER,N_SLCF_O,NITER,ITER,VELO_INDEX,GEOM_INDEX,IOR,IND2
 LOGICAL :: VECTOR,CELL_CENTERED,DEBUG,CULL_SLICE,DRY
 CHARACTER(LABEL_LENGTH) :: QUANTITY,SPEC_ID,PART_ID,PROP_ID,REAC_ID,SLICETYPE
 REAL(EB), PARAMETER :: TOL=1.E-10_EB
@@ -15967,7 +15967,7 @@ SUBROUTINE READ_SLCF
             SL%RLE = .FALSE.
          ENDIF
          SL%VELO_INDEX = VELO_INDEX
-         CALL GET_QUANTITY_INDEX(SL%SMOKEVIEW_LABEL,SL%SMOKEVIEW_BAR_LABEL,SL%INDEX,N, &
+         CALL GET_QUANTITY_INDEX(SL%SMOKEVIEW_LABEL,SL%SMOKEVIEW_BAR_LABEL,SL%INDEX,IND2, &
                                  SL%Y_INDEX,SL%Z_INDEX,I_DUM(1),SL%PART_INDEX,I_DUM(1),I_DUM(2),SL%REAC_INDEX,SL%MATL_INDEX, &
                                  'SLCF',QUANTITY,'null',SPEC_ID,'null',PART_ID,'null','null',REAC_ID,'null',-1._EB,I_DUM(3),&
                                  SLICETYPE=SLICETYPE)