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