Связь фортрана и С++

[minor]

Здравствуйте!У меня стоит задача перевода с фортрана на с++!подскажи плиз как переменные такого типа будут обьявляться в С++

COMPLEX X,CXCS,HOLD,XA

и что делает такой оператор

EQUIVALENCE (CXCS,CS)

[Vago]

Сообщение от minor

как переменные такого типа будут обьявляться в С++

COMPLEX X,CXCS,HOLD,XA

...
#include <complex>
using namespace std;
   ...
   complex<float> X, CXCS, HOLD, XA ;  // Или <double>

Сообщение от minor

и что делает такой оператор

EQUIVALENCE (CXCS,CS)

А вот и пресловутый п... Который, как известно, подкрадывается незаметно...

Этот оператор "приказывает" транслятору расположить переменные CXCS и CS в одном и том же месте в ОП. Как следствие, при выполнении все операции над второй переменной отражаются на первой и наоборот:

       ...
       INTEGER A, B
       EQUIVALENCE (A,B)
       ...
       A = 1
       B = A
       B = B+1
       PRINT *, A

выведет 2 !

Аналогичного ОПЕРАТОРА в C/C++ НЕТ! Нужно делать нечто такое:

   ...
   int   a ;
   int*  b ; 

   b = &(a) ;
   a = 1 ;
   *b +=  1 ;

   printf( "%d\n", a ) ;

[minor]

а еще вопрос
есть такой текст на фортране
IF (SIGN) 10,10,5
5 DELTA=1./(T*FLOAT(NMAX))
10 MSK(1)=NMAX/2
DO 15 I=2,NPOW
15 MSK(I)=MSK(I-1)/2
NN=NMAX
MM=2
Мне условие if не совсем понятно что делает в этом случае

[Vago]

Это так называемый "арифметический оператор IF". Если выражение в скобках строго меньше нуля, идём на метку, указанную первой, если равно нулю - на вторую, ежели больше нуля - на третью. В 98% случаев две из этих трёх меток совпадают, и, таким образом, арифметический IF можно заменить более удобочитаемым логическим:

       IF ( SIGN .LE. 0. ) GOTO 10
         DELTA=1./(T*FLOAT(NMAX))
   10 MSK(1)=NMAX/2

либо вообще воспользоваться "нормальными" управляющими структурами, появившимися в Фортране 77:

IF ( SIGN .GT. 0. ) THEN
   DELTA=1./(T*FLOAT(NMAX))
ENDIF
MSK(1)=NMAX/2

[Гром]

Сообщение от Vago

[CODE]Аналогичного ОПЕРАТОРА в C/C++ НЕТ!

Я фортран не знаю, но судя по описанию - ссылки, нет?

int a;
int& b = a;
a = 3;
std::cout << b;

[Vago]

Гром, Вы знаете, я могу ошибиться (потому что, связывая C с Фортраном, я всегда ограничивал себя чётко Сишным синтаксисом), но, судя по вот этому (я понимаю, конечно, что это - ДИЗассемблирование):

7:       int   a ;
8:       int&  b = a ;
00401028   lea         eax,[ebp-4]
0040102B   mov         dword ptr [ebp-8],eax
9:
10:      a = 1 ;
0040102E   mov         dword ptr [ebp-4],1
11:      b = 2 ;
00401035   mov         ecx,dword ptr [ebp-8]
00401038   mov         dword ptr [ecx],2

в C++, для того чтобы b "стало эквивалентно" a, должно хоть что-то, хоть 2 ассемблерные командочки, но выполниться! А в Фортране переменные, указанные в EQUIVALENCE, в одно и то же место памяти помещает транслятор. Там, вообще адреса памяти одинаковые:

3:           integer A, B
4:           equivalence (A, B)
5:
6:           A = 1
0040101D   mov         eax,1
00401022   mov         dword ptr [A (00455558)],eax
7:           B = 2
00401028   mov         edx,2
0040102D   mov         dword ptr [A (00455558)],edx