SIHAIA
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Цитата: На самом деле это ничего не доказывает. Это показывает только то что в примерах на которых вы протестировали программа не падает. | Дамс. Не утешительно... значит в скором времени будут жаловаться на баги ... Цитата: В общем проблему вы в общем-то и не выяснили. Проблемы с памятью с 99.9999% вероятностью - баг в программе, а не в компиляторе, а раз вы не можете починить, значит и не знаете где | Наверно... Под тем, что мы выяснили где проблема, я подразумевала, что врубились по какой причине вылетает... Компилятор - Intel Compile 10.0 Добавлено: Цитата: А ещё помнится у меня итеративный солвер будучи скомпилированным одним и тем же компилятором на чуть разных Интелах - на одном сходился, а на другом расходился (один и тот же пример). Оказалась проблема в одном месте в real*4 вместо real*8 и видимо из-за оптимизации числа складывались в разном порядке. В общем я давно для себя решил что если программа работает на одном компьютере это ещё ничего не значит | Похожая фигня со сходимостью у нас тоже пару раз вылезала, причем с различными проблемами... Поэтому решили создать один модуль, и уже его использовать далее... типа такого, что-то... INTEGER, PARAMETER :: rn = KIND(0.0) ! Precision of real numbers: REAL*4 INTEGER, PARAMETER :: dn = KIND(0.0d0) ! Precision of real numbers: REAL*8 INTEGER, PARAMETER :: cn = KIND(0.0d0) ! Precision of real numbers: COMPLEX*16 INTEGER, PARAMETER :: is = SELECTED_INT_KIND(8) ! Precision of integer numbers: INTEGER*4 INTEGER, PARAMETER :: sl = 256 ! Length of string REAL(dn), PARAMETER :: ZERO = 0.0D0, & ONE = 1.0D0, & TWO = 2.0D0, & THREE = 3.0D0, & TINY = 5.0D-010, & TINY3 = 5.0D-012, & pi = 3.14159265358979323846D+00, & miu0 = 1.25663706143591729539D-06, & eps0 = 8.85418781762038985054D-12, & Clight = 2.99792458D+08, & two_pi = 2.0D0*pi, & four_pi = 4.0D0*pi и т.д. и т.п. ............... | Всего записей: 13 | Зарегистр. 05-12-2007 | Отправлено: 08:40 08-12-2007 | Исправлено: SIHAIA, 08:47 08-12-2007 |
|