Je n'ai pas le temps de garder à fond, mais je vois rapidement certaines erreurs :

program upward

c Déclarations

character name*70
real rft(512,512), flo(512,512),...