...или История о том, как я работаю с шефом
Прихожу в институт, шеф дает программу на фортране в несколько тысяч строк, выглядящих примерно таким образом:

row(sp,tp) =999.842594+6.793952D-02*tp-9.095290D-03*tp**2+
x 1.001685D-04*tp**3-1.120083D-06*tp**4+6.536332D-09*tp**5+
x sp*(0.824493-4.0899D-03*tp+7.6438D-05*tp**2-
x 8.2467D-07*tp**3+5.3875D-09*tp**4)+
x sp**1.5*(-5.72466D-03+1.0227D-04*tp-1.6546D-06*tp**2)+
x 4.8314D-04*sp**2
wk=aln(wkm,tfs,nbp,pp,iiss)
fs=aln(fsm,tfs,nbp,pp,iiss)
ta=aln(tam,tmm,nbp,pp,iia)
if(iiy.ge.2) goto 331
Y=0.0
IF(KBB.EQ.1) GOTO 383
KBBM=KBB-1
DO 382 K=1,KBBM
382 Y=Y+D2(K)
383 CONTINUE

Естественно, без единого комментария и пояснения.

1 Я ее запускаю, она не работает. Это бывает по разным причинам, как то: глючит мой фортран, не совпадают версии фортранов, не хватает каких-нибудь файлов или они зачем-то переименованы, да или просто у меня руки кривые да мозгов не хватает. Далее энтузиазм пропадает, и я нахожу занятия более интересные. По прошествии недели-месяца-двух во мне просыпается совесть, программа, наконец, запускается. Хоть и очень смутно, но я начинаю понимать, что же она вообще делает. Прихожу к шефу. К тому времени шеф решает, что ее лучше пока отложить, а заняться надо тем-то и тем-то. Дает мне другую, ничем не лучшую с виду программу. GOTO 1

Так вот и живем