- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
Subroutine HBomb(x,ia,ib)
Dimension x(*)
c Generate some exeption...
x(ia*ib)=1.0
x(ia*(-ib))=1.0
x(1)=7.0/(ia+ib)
Return
End
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+130
Subroutine HBomb(x,ia,ib)
Dimension x(*)
c Generate some exeption...
x(ia*ib)=1.0
x(ia*(-ib))=1.0
x(1)=7.0/(ia+ib)
Return
End
Серьёзный квантовохимический пакет, между прочим.
Выше по течению этот кусок кода вызывали через call hbomb(x, 1000, -1000)
kipar 18.02.2015 13:04 # −1
max-wiz 18.02.2015 17:21 # 0
dxd 18.02.2015 21:40 # 0
max-wiz 19.02.2015 09:27 # 0
dxd 21.02.2015 13:22 # 0
kegdan 21.02.2015 14:06 # 0
Elvenfighter 22.02.2015 11:14 # +1
bormand 22.02.2015 11:23 # +2
В общем-то парадоксов тут нет. Только горькая правда.
kegdan 22.02.2015 15:31 # 0
bormand 22.02.2015 15:36 # +3
kegdan 22.02.2015 15:40 # +1
bormand 22.02.2015 16:05 # +3
Desktop 18.03.2021 00:45 # +1
guest6 18.03.2021 01:01 # +2
ягнул тебе за щеку, проверь
6apry3uHckuu_nemyx 19.03.2021 04:53 # 0