Фортран 90: ошибка возврата - PullRequest
Новая
       36

Фортран 90: ошибка возврата

0 голосов
/ 09 июня 2018

Здравствуйте, я новый пользователь на Фортране.

Я пытаюсь использовать подпрограмму для своего проекта.Код довольно прост, и ниже приведен код 

subroutine initial_data(f, x, y, z)
implicit none
   REAL                 :: f, x, y, z

  ! Adding function
   #include "func_expr.h"

  return
end subroutine

func_expr.h - отдельный файл, который я создал, потому что выражение f действительно сложное.И я получил следующие сообщения об ошибках:

ошибка # 5082: синтаксическая ошибка, обнаружен ИДЕНТИФИКАТОР «ВОЗВРАТ» при ожидании одного из: *) ::,;,(/ + -:] /) '** / //> .LT.<... return ---- ^ </p>

и

ошибка # 6404: это имя не имеет типа и должно иметь явный тип.[RETURN] return ---- ^

сборка прервана для initial.f90.f (код 1)

Я не уверен, какая часть неверна и почему возврат имеет проблемуоб этом.

Любая помощь очень ценится!

...