Hey guys, sorry for the delay I am finally returning to this project.
I changed the old read statement to the following as you suggested.
READ (16,40,IOSTAT=L) j, (DATA(I),I=1,89)
40 FORMAT (2X,I1,88(2X,E11.9))
Now the data array is simply all zeros. I don't understand what the "j," is doing...