Il Linguaggio Fortran 90/95

5.8 Argomenti delle Procedure 257
Si noti come l’istruzione EXTERNAL non preveda i due punti (”::”). E’ bene osservare che un
interface block non può essere usato per una procedura specificata in una istruzione EXTERNAL
(e viceversa). Si ricordi, infine, che non è permesso in Fortran usare subroutine intrinseche
come parametri attuali in una chiamata di procedura.
Si riporta, a titolo di riepilogo, un ulteriore esempio che prevede l’impiego simultaneo
dell’attributo INTRINSIC e dell’attributo e dell’istruzione EXTERNAL.
REAL FUNCTION reciproc(reala)
IMPLICIT NONE
REAL, INTENT(IN) :: reala
reciproc = 1/reala
END FUNCTION reciproc
SUBROUTINE add_nums(real1,real2,result)
IMPLICIT NONE
REAL, INTENT(IN) :: real1, real2
REAL, INTENT(OUT) :: result
result = real1+real2
END SUBROUTINE add_nums
SUBROUTINE do_math(arg1,arg2,math_fun,math_sub,result)
IMPLICIT NONE
! Parametri formali
REAL, INTENT(IN) :: arg1, arg2 ! variabili argomento
REAL, EXTERNAL :: math_fun ! funzione argomento
EXTERNAL math_sub ! subroutine argomento
REAL, INTENT(OUT) :: result ! variabile risultato
! Variabili locali
REAL :: temp1, temp2
temp1 = math_fun(arg1)
temp2 = math_fun(arg2)
CALL math_sub(temp1,temp2,result)
END SUBROUTINE
PROGRAM proc_pass
! Sezione dichiarativa
IMPLICIT NONE
REAL, EXTERNAL :: reciproc ! "Actual FUNCTION"
REAL, INTRINSIC :: SIN ! "Actual INTRINSIC FUNCTION"
EXTERNAL add_nums ! "Actual SUBROUTINE"
! Dichiarazione di variabili
REAL :: num1, num2, reciproc_ans, sin_ans
! Sezione esecutiva
READ*, num1, num2