Fjacq, I rewrote the READ statement as you said and I do not get a program error; however, the numerical data is not being printed to the screen.
Salgerman, I changed the Y, M, D to integers. I'm not sure what you mean with using a DO WHILE in my program.