23:57 

Свежатина.

Воображаемый Враг
ТИХОХОДКИ против КОЛОВРАТОК
Начальство предоставило мне свежее тело , планомерным препарированием и последующим сшиванием которого я буду занят в ближайшем будущем.


...
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.


А угара здесь прибавляет тот факт , что на профессионального программера я не учился , и все мои знания - результат необходимости импровизировать на рабочем месте в фирме , одна возможность попасть на которую в годы ВУЗ-овского обучения уже была моим кошмаром.Хотя бы из-за нескольких эпизодов смертей на рабочих местах , после которых усопшие еще несколько дней несли свою трудовую вахту.

Но из-за цепочки случайностей теперь у меня нет выбора , и я лишь исполняю то , что должен исполнить.

Так что все хорошо и прекрасно.И этот мертвяк у нас тоже бодро зашагает.

@темы: n\c, бред и нытье, бытовуха, хроники деградации

URL
   

Нижние слои ноосферы.

главная