gfortran не скомпилирует реальные переменные

Question

Я написал простую программу в Fortran90 для вычисления площади треугольника. Пользователь вводит три стороны треугольника, а затем программа выводит эту область. Достаточно просто.

MODULE Triangle_Operations 
    IMPLICIT NONE 
CONTAINS 
    FUNCTION Area(x,y,z) 
     REAL :: Area ! function type 
     REAL, INTENT(IN) :: x, y, z 
     REAL :: theta, height 
     theta = ACOS((x**2+y**2-z**2)/(2.0*x*y)) 
     height = x*SIN(theta); Area = 0.5*y*height 
    END FUNCTION Area 
END MODULE Triangle_Operations 

PROGRAM Triangle 
    USE Triangle_Operations 
    IMPLICIT NONE 
    REAL :: a, b, c, Area 
    PRINT *, 'Welcome, please enter the & 
       &lengths of the 3 sides.' 
    READ *, a, b, c 
    PRINT *, 'Triangle''s area: ', Area(a,b,c) 
END PROGRAM Triangle 

Когда я компилирую это с gfortrangfortran triangle1.f90, это ошибка я получаю:

triangle1.f90:16.25: 

    REAL :: a, b, c, Area 
         1 
triangle1.f90:14.8: 

    USE Triangle_Operations 
     2 
Error: Symbol 'area' at (1) conflicts with symbol from module 'triangle_operations', use-associated at (2) 
triangle1.f90:19.13: 

    READ *, a, b, c 
      1 
Error: Symbol 'a' at (1) has no IMPLICIT type 
triangle1.f90:19.16: 

    READ *, a, b, c 
       1 
Error: Symbol 'b' at (1) has no IMPLICIT type 
triangle1.f90:19.19: 

    READ *, a, b, c 
        1 
Error: Symbol 'c' at (1) has no IMPLICIT type 

Почему именно будет ли ошибка брошена для переменных a,b,c? Я явно определил их как реалы.

Answer 1

Проблема в том, что вы определили Area дважды - один раз в своей основной программе и один раз в модуле, который вы импортируете, и конфликты имен конфликтуют. Вероятно, вам кажется, что вам нужно определить Area в основной программе как удержание с более ранних (более темных) времен при вызове функции без явного интерфейса. В современных Fortran модули предоставляют интерфейсы автоматически, и достаточно сделать заявление use Triangle_operations.

Чтобы устранить проблему, удалите разделение Area из вашей основной программы, например. включить

REAL :: a, b, c, Area 

в

REAL :: a, b, c 

последующих ошибок в вашем выходе компиляции являются результатом первой ошибки относительно Area. Эта целая строка становится недействительной, поэтому объявления типа a, b и c не обрабатываются, и это вынуждает компилятор жаловаться на недостающие типы в следующий раз, когда они встречаются. Эти ошибки исчезнут, как только вы сделаете исправление, предложенное выше.

---

Если ваша цель в том, чтобы иметь переменную Area в основной программе для хранения результата вызова функции модуля, вы можете переименовать символ модуля, например,

use triangle_operations, triangleArea => Area 

, а затем сделать это:

real a, b, c, Area 
Area = triangleArea(a,b,c) 

в основной программе.