Try guessing the ending value of I...

Try guessing the ending value of I...

Imagen de jajdavid
jajdavid
Jue, 17/01/2013 - 12:19

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

RSS Superior
publicaciones de 2 / 0 nuevos
Último envío
Para obtener más información sobre las optimizaciones del compilador, consulte el aviso sobre la optimización.
Imagen de Steve Lionel (Intel)
Steve Lionel (Intel)
Jue, 17/01/2013 - 12:54

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
Superior

Inicie sesión para dejar un comentario.