Aufruf von Funktionen in einer Subroutine

[gaussmath]

Hallo,

es geht um Fortan 77. Vorab die Frage: Können Subroutines überhaupt Funktionen aufrufen?

Ich habe folgenden Aufbau (Metakommentare stehen in "") :

SUBROUTINE KALK_DELTAT (

c NLOC, NRET, NARG, RET, ARGS, CRESLT, CZ,DZ,IZ,LZ,RZ )

IMPLICIT NONE

"Variablendeklarationen und Anweisungen"

"Es folgt ein beispielhafter Funktionsaufruf"

C Initialsiere Verdampfungsenthalpie

VENT=dhv(TBETRB)

END

C **************Bereich für die Funktionen********************

CC Berechnung der Verdampfungsenthalpie

C Die Eingabe muss in Kelvin erfolgen. Die Ausgabe erfolgt in kJ*kg^-1.

DOUBLE PRECISION function dhv(t)

EXTERNAL grei, greii

DOUBLE PRECISION t

dhv=greii(t)-grei(t)

END

CC Berechnung der freien Gibbs-Energie (Region I)

C Die Eingabe muss in Kelvin erfolgen. Die Ausgabe erfolgt in kJ*kg^-1.

DOUBLE PRECISION function grei(t)

"Variablendeklarationen und Anweisungen"

END

CC Berechnung der freien Gibbs-Energie (Region II)

C Die Eingabe muss in Kelvin erfolgen. Die Ausgabe erfolgt in kJ*kg^-1.

DOUBLE PRECISION function greii(t)

"Variablendeklarationen und Anweisungen"

END

Beim Kompilieren erhalte ich die Fehlermeldung: "Function 'dhv' has no implicit type". Lösche ich das "IMPLICIT NONE" in der Subroutine, erhalte ich die Fehlermeldung, dass die Datentypen REAL(8) und REAL(4) kollidieren.

Danke und Grüße, gaussmath