...
...
! saisie au format libre ...
print *,'1 ère planète : '; read *, m2
print *,'2 ère planète : '; read *, m1
! mise en route ...
c21 = 360/((m2-m1)*365.25)
i = 1
print *,' '
print *,'Résultats:'
69 x = c21 * i- int(c21*i+0.5)
print *,c21*i,' année(s) julienne(s)'
i = i + 1
if (i < 11) goto 69
print *,' '
print *,'Au revoir ... '
end program
Bon, j'insiste pas ... A+