Fortran output file write data in columns rather than rows - fortran

Question

I'm trying to output data to a file. When I run the Fortran code, the data is written like in the picture below.
The data seems to be writing across the rows. I would like so that it writes in columns under the headings I have provided which are Fragment Number, Index, X_POS, Y_POS, Time, X_VEL and Y_VEL.
Any help would be greatly appreciated.
SUBROUTINE EXEDIT
USE kindef
USE wrapup
USE mdgrid
USE ranges
USE kindef
USE cycvar ! STORES THE CYCLE VARIABLES (E.G. TIME)
USE subdef
USE fildef
USE matdef ! STORES ALL RELEVANT MATERIAL ASSIGNMENTS AND DETAILS
USE material
IMPLICIT NONE
! Define user variables
INTEGER (INT4) :: NS,I,J,IJK,counter
REAL (REAL8) :: Y_LIMIT,POS_X,POS_Y,SIM_TIME,VEL_X,VEL_Y
! Specify the output files
! Desired output is a text file which lists the relevant variables for each fragment, i.e.
! Fragment Mat-ID Part Index X_POS Y_POS Z_POS Time X_VEL Y_VEL Z_VEL Mass
open(99,FILE=trim(FNID)//'.dat')
write (99, '(A15)',advance='no')'Cycle no: '
write (99, '(I10)',advance='yes')NCYCLE
write (99, '(A15)',advance='yes')' '
write (99, '(A15)',advance='no')'Fragment'
write (99, '(A15)',advance='no')'Index'
write (99, '(A15)',advance='no')'X-POS'
write (99, '(A15)',advance='no')'Y_POS'
write (99, '(A15)',advance='no')'Time'
write (99, '(A15)',advance='no')'X_VEL'
write (99, '(A15)',advance='no')'Y_VEL'
write (99, '(A15)',advance='yes')' '
! SETTING THE VARIABLES EQUAL TO 0
! POS_X = 0
! POS_Y = 0
! POS_Z = 0
! VEL_X = 0
! VEL_Y = 0
! VEL_Z = 0
! NODE_MASS = 0
counter = 0 !The variable count is initialized to 0
! Defining the z-boundary
Y_LIMIT=0
! Initialization of arrays
! This set of loops generates a variable array IJK which defines each IJK index in each part
DO NS=1,NUMSUB
NSUB=NS
CALL GETSUB
DO I=1,IMAX
DO J=1,JMAX
IJK=IJSET(I,J)
END DO
END DO
END DO
! Determining the fragment variables
DO NS = 1, NUMSUB ! From NS = 1 to the Number of Parts in problem.
NSUB = NS
CALL GETSUB
CALL GETMAT
DO I = 1,IMAX
DO J = 1,JMAX
IJK=IJSET(I,J)
SIM_TIME=0
IF ((YN(IJK).LE.Y_LIMIT).AND.(SIM_TIME==0)) THEN
counter=counter+1
SIM_TIME=TIME !TIME is an already defined variable - CURRENT TIME
! Fragment Index X_POS Y_POS Time X_VEL Y_VEL
write(99,'(I15)',advance='no')counter
write(99,'(I15)',advance='no')IJK
write(99,'(F15.5)',advance='no')XN(IJK)
write(99,'(F15.5)',advance='no')YN(IJK)
write(99,'(F15.5)',advance='no')TIME
write(99,'(F15.5)',advance='no')UXN(IJK)
write(99,'(F15.5)',advance='no')UYN(IJK)
END IF
END DO
END DO
END DO
CLOSE(99)
RETURN
END SUBROUTINE EXEDIT