Übergabe von Argumenten nach Wert in Fortran 95

Question

Wie behalten Sie den Wert eines Funktionsarguments, wenn Sie es aufrufen, ohne eine neue Variable zu erstellen? Dies ist, wie kann ich das Argument nach Wert übergeben?

In diesem Beispielcode:

program what 


integer :: a,b,c,d 

a=1 
b=2 
c=3 

print *, a,b,c 

d=f(val(a),val(b),val(c)) 

print *, d 

print *, a,b,c 

d=f(a,b,c) 

print *, d 

contains 

function f(x,y,z) result(h) 

integer:: x,y,z 
integer :: h 

h=x+y+z 

x=0 
y=0 
z=0 

end function 



end program 

wenn ich die Funktion zum zweiten Mal aufrufen, druckt es nur 0en.

Answer 1

In Fortran 95 gibt es keinen Weg. Außer einigen sehr unüblichen Erweiterungen, aber sie sind weder Fortran 95 noch irgendwelche anderen Fortran, nur Erweiterungen.

In Fortran 2003 verwenden Sie das Attribut value.

Das Attribut erfordert explizite Schnittstelle, aber Ihr Beispiel hat es, also ist das OK.