Merge pull request #12158 from ericvmueller/master

FDS Source: expand field size for device and vent locations written t…

Source/dump.f90

@@ -1354,7 +1354,7 @@ SUBROUTINE INITIALIZE_MESH_DUMPS(NM)
    ELSE
       HEADING = OUTPUT_QUANTITY(PROFILE(N)%QUANTITY_INDEX)%SHORT_NAME
    ENDIF
-   
+
    IF (PROFILE(N)%MESH /= NM) CYCLE PROF_LOOP
    IF (APPEND .AND. PROFILE(N)%FORMAT_INDEX==1) THEN
       OPEN(LU_PROF(N),FILE=FN_PROF(N),FORM='FORMATTED',STATUS='OLD',POSITION='APPEND')
@@ -1925,12 +1925,12 @@ SUBROUTINE WRITE_SMOKEVIEW_FILE
    STATE_INDEX = 0
    IF (DV%INITIAL_STATE) STATE_INDEX = 1
    IF (DV%X1>-900000.0) THEN
-      WRITE(LU_SMV,'(6F12.5,2I3,A,6F12.5,A,A)') DV%X,DV%Y,DV%Z,ORIENTATION_VECTOR(1,DV%ORIENTATION_INDEX),&
+      WRITE(LU_SMV,'(6F14.5,2I3,A,6F14.5,A,A)') DV%X,DV%Y,DV%Z,ORIENTATION_VECTOR(1,DV%ORIENTATION_INDEX),&
             ORIENTATION_VECTOR(2,DV%ORIENTATION_INDEX),ORIENTATION_VECTOR(3,DV%ORIENTATION_INDEX),STATE_INDEX,0,&
             ' # ',DV%X1,DV%Y1,DV%Z1,DV%X2,DV%Y2,DV%Z2,&
             ' % ',TRIM(PY%ID)
    ELSE
-      WRITE(LU_SMV,'(6F12.5,2I3,A,A)') DV%X,DV%Y,DV%Z,ORIENTATION_VECTOR(1,DV%ORIENTATION_INDEX),&
+      WRITE(LU_SMV,'(6F14.5,2I3,A,A)') DV%X,DV%Y,DV%Z,ORIENTATION_VECTOR(1,DV%ORIENTATION_INDEX),&
             ORIENTATION_VECTOR(2,DV%ORIENTATION_INDEX),ORIENTATION_VECTOR(3,DV%ORIENTATION_INDEX),STATE_INDEX,0,' % ',TRIM(PY%ID)
    ENDIF
 ENDDO
@@ -1940,7 +1940,7 @@ SUBROUTINE WRITE_SMOKEVIEW_FILE
 WRITE(LU_SMV,'(/A)') 'VENTORIG'
 WRITE(LU_SMV,'(1X,I0)') SIZE(ORIGINAL_VENTS)
 DO N=1,SIZE(ORIGINAL_VENTS)
-   WRITE(LU_SMV,'(1X,6F12.5,A,A)') ORIGINAL_VENTS(N)%X1,ORIGINAL_VENTS(N)%X2,&
+   WRITE(LU_SMV,'(1X,6F14.5,A,A)') ORIGINAL_VENTS(N)%X1,ORIGINAL_VENTS(N)%X2,&
                                    ORIGINAL_VENTS(N)%Y1,ORIGINAL_VENTS(N)%Y2,&
                                    ORIGINAL_VENTS(N)%Z1,ORIGINAL_VENTS(N)%Z2,' ! ',TRIM(ORIGINAL_VENTS(N)%ID)
 ENDDO