Try guessing the ending value of I...

Try guessing the ending value of I...

Portrait de jajdavid

       I=0
       IF(I.EQ.0) THEN I=1
       WRITE(6,*) I
       END

2 posts / 0 nouveau(x)
Dernière contribution
Reportez-vous à notre Notice d'optimisation pour plus d'informations sur les choix et l'optimisation des performances dans les produits logiciels Intel.
Portrait de Steve Lionel (Intel)

Let me make an interesting suggestion here - put this code in a free-form source (.f90) file rather than fixed-form (.f or .for).

See Doctor Fortran in "Source Form Just Wants to be Free"

Steve

Connectez-vous pour laisser un commentaire.