FDS Source: fix case typo

Author: rmcdermo

Source/func.f90

@@ -3752,7 +3752,7 @@ SUBROUTINE ALLOCATE_BOUNDARY_PROP2_ARRAYS
    B2_INDEX = M%NEXT_AVAILABLE_BOUNDARY_PROP2_SLOT
 ENDIF
 
-IF (B2_INDeX==0 .OR. B2_INDEX>M%N_BOUNDARY_PROP2_DIM) THEN  ! There are no open slots for boundary coordinates
+IF (B2_INDEX==0 .OR. B2_INDEX>M%N_BOUNDARY_PROP2_DIM) THEN  ! There are no open slots for boundary coordinates
    ALLOCATE(B2_DUMMY(1:M%N_BOUNDARY_PROP2_DIM+N_NEW_STORAGE_SLOTS))
    IF (M%N_BOUNDARY_PROP2_DIM>0) B2_DUMMY(1:M%N_BOUNDARY_PROP2_DIM) = M%BOUNDARY_PROP2(1:M%N_BOUNDARY_PROP2_DIM)
    CALL MOVE_ALLOC(B2_DUMMY,M%BOUNDARY_PROP2)