Из-за некоторых ограничений моего назначения используется F77. Я учусь использовать подпрограмму, но сталкиваюсь с ошибкой при попытке записать строку.
PROGRAM test
IMPLICIT NONE
INTEGER a
CHARACTER*20 STR,str1
STR = 'Hello world'
a = 1
WRITE (*,*) a
WRITE (*,10) STR
CALL TEST(str1)
STOP
END
SUBROUTINE test(str2)
CHARACTER*20 str2
str2 = 'testing'
WRITE (*,10) STR2
RETURN
END
При попытке скомпилировать этот код он возвращает «Ошибка: отсутствует оператор номер 10».
Кроме того, у меня есть еще несколько вопросов:
Что означает
*20
вCHARACTER*20 STR
? Это размер строки?Как насчет
10
вWRITE (*,10) STR
? Это длина строки, которую нужно записать?что означает
(*,*)
в WRITE(*,*) a