Try guessing the ending value of I...

Try guessing the ending value of I...

Аватар пользователя jajdavid

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

2 posts / 0 новое
Последнее сообщение
Пожалуйста, обратитесь к странице Уведомление об оптимизации для более подробной информации относительно производительности и оптимизации в программных продуктах компании Intel.
Аватар пользователя 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

Зарегистрируйтесь, чтобы оставить комментарий.