Фортран операторы на левой стороне - PullRequest
Новая
       44

Фортран операторы на левой стороне

0 голосов
/ 04 июля 2018

Я компилирую код G77 / GNU FORTRAN, разработанный в Linux, для работы с Intel Fortran в Windows. Я получил странные назначения в коде для изменения индекса цикла DO, такие как I + 1 = M или I-1 = N, где I в индексе цикла DO. Это не принято компилятором Intel Fortran. Модификация индекса цикла также не разрешена в компиляторе Intel Fortran. Каков эквивалентный код в Intel Fortran для этих назначений?

Код выглядит следующим образом: 

  DO L=2,LA  
    I=IL(L)  
    J=JL(L)  
    IF(IJCT(I-1,J).EQ.9)THEN
      L-1=LC
    ELSE
     L-1=LIJ(I-1,J)
     L-1=MAX(L-1,1)
    ENDIF
    IF(IJCT(I+1,J).EQ.9)THEN
     L+1=LC
    ELSE
     L+1=LIJ(I+1,J)
     L+1=MAX(L+1,1)
    ENDIF
  ENDDO
...