I have the code:
if i < n then x = topsep(1) y = topsep(2) realvor(n,1) = x + dx realvor(n,2) = x + dy imvo
You forgot the parenthesis! According to the Fortran standard (2008, ch. 8.1.7.4), the if statement should read
if
if ( i < n ) then