Попросили тут на днях халтурку сделать небольшую. Переписать одну мини-утилитку (~ 250 строк кода) переписать с фортрана на плюсы.
Присылают код, действительно 250 строк. Но какой это код:
WRITE(16,9)(NBC(I),NFIX(I),I=1,NB)
9 FORMAT(2i8)
call FRMEG(imax,nband,nszf,ne,ndfg,ncnm,
*nop,estifm,nstm,a,nb,nfix,nbc,ndis,knul)
if(ncol.gt.nband) write(16,901)ncol,l,k,km,ncolb,nrowb,nop(n,kk)
*,n,kk,ndfg
901 format(1x,'NCOL=',10i9)
a(im,ncol)=a(im,ncol)+estifm(i,nfx+k)
322 continue
320 continue
321 continue
360 continue
if(ie.ne.n) read(8)
Продакшн код на фортране всегда так выглядит? Я когда-то книжку по нему листал, там всё приличнее было...
PS И предлагали в этом разбираться за 1000р =)