Il Linguaggio Fortran 90/95

5.11 Funzioni di tipo derivato 261
CHARACTER(LEN=k) :: x = "Aul" ! stringa locale di lunghezza fissa
CHARACTER(LEN=*), PARAMETER :: word = "stringhetta"
! start function func
func = b//b ! func="AntonioRaucci"
y = word(k+2:) ! y="nghetta"
y(:k) = x ! y="Raucci"
func(n/2+1:) = y ! func="AntonioRaucci"
RETURN
END FUNCTION func
END PROGRAM stringhe
5.11 Funzioni di tipo derivato
Una function può restituire anche il valore di un tipo di dati derivato. Ad esempio, costruito il
tipo complesso, al modo seguente:
TYPE complesso
REAL :: p_real
REAL :: p_imm
END TYPE complesso
la seguente funzione implementa l’algoritmo di moltiplicazione di due valori di tipo complesso:
TYPE(complesso) FUNCTION prod_comp(a,b)
TYPE(complesso), INTENT(IN) a, b
prod_comp%p_real = a%p_real*b%p_real - a%p_imm*b%p_imm
prod_comp%p_imm = a%p_real*b%p_imm + a%p_imm*b%p_real
END FUNCTION prod_comp
Naturalmente, nell’esempio precedente il tipo derivato complesso è stato definito per motivi
puramente ”didattici”, visto che in Fortran è già disponibile il tipo predefinito COMPLEX.
Un esempio un pò più interessante è fornito dal seguente modulo in cui vengono definiti sia
un tipo di dati (money), sia una coppia di funzioni che operano su di esso:
MODULE moneytype
IMPLICIT NONE
TYPE money
INTEGER :: euro, cent
END TYPE money
CONTAINS
FUNCTION addmoney(a,b)