; chiamata di funzione senza utilizzo del valore di ritorno

call calc_diag1(12,17)

; chiamata di funzione dentro un'espressione matematica

; dentro l'espressione la chiamata della funzione equivale a una variabile di tipo REAL

rr(1) = 5.0 + calc_diag2(12,17)

; funzione calc_diag1

function calc_diag1 (REAL val1, REAL val2)

    if ((val1<0) or (val2<0))

        rr(1) = 0

        return

    endif

    rr(1) = sqrt(val1*val1 + val2*val2)

end_fun

; funzione calc_diag2

function REAL calc_diag2 (REAL val1, REAL val2)

    if ((val1<0) or (val2<0))

        return 0.0

    endif

    return sqrt(val1*val1 + val2*val2)

end_fun