opcjonalne argumenty w funkcjach fortra

Question

Uczę się Fortran, w tym momencie opcjonalne argumenty.

mogę z nich korzystać z podprogramów z intent(in) i intent(inout), ale z funkcjami opcjonalne argumenty działają tylko z intent(in), prawda? Z intent(inout) otrzymuję błędy segmentacji.

Answer 1

ok znalazłem problem, użyłem zmiennej, nawet jeśli nie ma, tak jak:

real function foo(x, tol) 
    real, intent(in) :: x 
    real, optional, intent(inout) :: tol 
    if(.not. present(tol)) tol = 1e-6 
    !... 
end function foo 

Ale chciałbym z niego korzystać nawet wtedy, gdy nie występuje i ustawić wartość domyślną, jak wtedy, gdy w C++ Robimy coś w tym stylu:

double foo(double x, double tol=1e-6) 

Jak mogę to zrobić? dzięki