8 lines
149 B
FortranFixed
8 lines
149 B
FortranFixed
|
FUNCTION FUNC3(FUNC1, FUNC2, x, y)
|
||
|
|
REAL, EXTERNAL :: FUNC1, FUNC2
|
||
|
|
REAL :: FUNC3
|
||
|
|
REAL :: x, y
|
||
|
|
|
||
|
|
FUNC3 = FUNC1(x) * FUNC2(y)
|
||
|
|
END FUNCTION FUNC3
|