One possible solution has already been presented to you which uses a “dummy variable”, but I just wanted to add that you don’t even need a dummy variable, just a blank read statement before entering the loop is enough:
open(18, file="m3dv.dat")
read(18,*)
do
...
The other answers are correct but this can improve conciseness and (thus) readability of your code.