Блог

Я получаю это сообщение

 Warning <100>: Unexpected end of format string in format string at <1>  
            write (iout,'(i5,4x,i4,6x,15(a25,1x)') i, ksum, temp (1:isum)  
                       1  
  

несколько раз при компиляции кода, написанного на Fortran90 (не мной). Вот пример кода с ошибкой:

 if (isum > 0) then
          ksum = ksum   isum
          write (iout,'(i5,4x,i4,6x,15(a25,1x)') i, ksum, temp (1:isum)
          if (ksum == NSPECIES - NotPhotographed) go to 5
        endif
  

Любая помощь будет оценена. Я предполагаю 1 , что указывает местоположение ошибки, но я не смог выяснить, как это исправить.

Судя по всему, между буквами s отсутствует закрывающая скобка ' .