Участок кода выглядит следующим образом; DO i = 1 , no2 + 1 IF ( Isign.EQ.1 ) THEN Ans(i) = fft(i)*Ans(i)/no2 ELSEIF ( Isign.EQ.-1 ) THEN IF ( ABS(Ans(i)) .EQ. 0.0 ) & PAUSE ' deconvolving at responce zero in...

Код, о котором идет речь, таков: subroutine PG_TLab_Write(c30,r,d) implicit none character*30 c30,leftjust real*4 r integer*4 d,k if (d.eq.0) then write(c30,'(i30)') nint(r) elseif (d.gt.0) then write(c30,'(f30.<d>)')...

У меня есть смесь C++ и Fortran 77, скомпилированная с помощью G77. В основном это C++, но он вызывает решатель ODE DVERK, который затем обращается к глобальной функции C для получения производной (объявленной с помощью __stdcall ). Все работало...