ТИХОХОДКИ против КОЛОВРАТОК
Начальство предоставило мне свежее тело , планомерным препарированием и последующим сшиванием которого я буду занят в ближайшем будущем.
Разве это не чудо ? - сразу две устаревшие структуры в таком крохотном фрагменте (а всего в проекте ~ 6k строк) - знак антикварного качества .
Implicit typing seemed like a Really Smart Move back in the late fifties when Fortran was spelled in caps and 4K was a massive amount of memory. Today, however, it is an anachronism.
И
8.11.9.57 DASin Intrinstic
DASin(X)
DASin: REAL(KIND=2) function.
X: REAL(KIND=2); scalar; INTENT(IN).
Intrinsic groups: (standard FORTRAN 77).
Description:
Archaic form of ASIN() that is specific to one type for X. See ASin Intrinsic.
А угара здесь прибавляет тот факт , что на профессионального программера я не учился , и все мои знания - результат необходимости импровизировать на рабочем месте в фирме , одна возможность попасть на которую в годы ВУЗ-овского обучения уже была моим кошмаром.Хотя бы из-за нескольких эпизодов смертей на рабочих местах , после которых усопшие еще несколько дней несли свою трудовую вахту.
Но из-за цепочки случайностей теперь у меня нет выбора , и я лишь исполняю то , что должен исполнить.
Так что все хорошо и прекрасно.И этот мертвяк у нас тоже бодро зашагает.
...
function erf(xcoor)
implicit real*8(a-h,o-z)
if(xcoor.ge.3.) then
pi = 2.*dasin(1.)
erf = dsqrt(pi)*0.5
else
...
Разве это не чудо ? - сразу две устаревшие структуры в таком крохотном фрагменте (а всего в проекте ~ 6k строк) - знак антикварного качества .
Implicit typing seemed like a Really Smart Move back in the late fifties when Fortran was spelled in caps and 4K was a massive amount of memory. Today, however, it is an anachronism.
И
8.11.9.57 DASin Intrinstic
DASin(X)
DASin: REAL(KIND=2) function.
X: REAL(KIND=2); scalar; INTENT(IN).
Intrinsic groups: (standard FORTRAN 77).
Description:
Archaic form of ASIN() that is specific to one type for X. See ASin Intrinsic.
А угара здесь прибавляет тот факт , что на профессионального программера я не учился , и все мои знания - результат необходимости импровизировать на рабочем месте в фирме , одна возможность попасть на которую в годы ВУЗ-овского обучения уже была моим кошмаром.Хотя бы из-за нескольких эпизодов смертей на рабочих местах , после которых усопшие еще несколько дней несли свою трудовую вахту.
Но из-за цепочки случайностей теперь у меня нет выбора , и я лишь исполняю то , что должен исполнить.
Так что все хорошо и прекрасно.И этот мертвяк у нас тоже бодро зашагает.