Попросили тут на днях халтурку сделать небольшую. Переписать одну мини-утилитку (~ 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р =)











