Il Linguaggio Fortran 90/95

260 Unità di Programma
INTEGER, INTENT(IN) :: x(:,:)
INTEGER, INTENT(IN) :: cost
INTEGER, DIMENSION(SIZE(x,1),SIZE(x,2)) :: array_func
array_func(:,:) = x(:,:)*cost
END FUNCTION array_func
5.10 Funzioni stringa di caratteri
In molti casi può essere utile definire una function che restituisca una stringa di caratteri di
una data lunghezza. Detta lunghezza può, indifferentemente, essere fissa oppure dipendere da
uno dei parametri formali. Per chiarire quanto detto, si guardi il seguente esempio in cui la
function reverse acquisisce una stringa in input e la restituisce nella sua forma ”invertita”:
FUNCTION reverse(parola)
IMPLICIT NONE
CHARACTER(LEN=*), INTENT(IN) :: parola
CHARACTER(LEN=LEN(parola)) :: reverse
INTEGER :: l, i
l = LEN(parola)
DO i=1,l
reverse(l-1+1:l-i+1) = parola(i:i)
END DO
END FUNCTION reverse
Si noti che la stringa parola non può essere usata fino a che non venga dichiarata: è per questa
ragione che il tipo della funzione non può apparire come prefisso nella dichiarazione di funzione.
In questo caso la lunghezza del risultato della funzione è determinata automaticamente pari a
quella del parametro formale parola.
Un esempio lievemente più complesso è il seguente:
PROGRAM stringhe
IMPLICIT NONE
INTEGER, PARAMETER :: l=7
CHARACTER(LEN=l) :: s1 = "Antonio"
! start
WRITE(*,*) func(2*l,s1)
STOP
CONTAINS
FUNCTION func(n,b)
INTEGER, PARAMETER :: k=3
CHARACTER(LEN=*), INTENT(IN) :: b ! stringa di lunghezza fittizia
INTEGER, INTENT(IN) :: n
CHARACTER(LEN=2*LEN(b)) :: func ! stringa di lung. automatica
CHARACTER(LEN=LEN(b)) :: y ! stringa locale di lung. automatica