Я получаю это сообщение
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 указывает на место ошибки, но я не смог обнаружить, как ее исправить.