Per stampare: Clicca qui oppure seleziona File » Stampa nel menù del tuo browser.

        -----------------------------------------------------------------------------------------------
        Questo intervento è stato stampato da Guide di Dada.Net
        raggiungibile a http://guide.dada.net
        -----------------------------------------------------------------------------------------------

By Fortran di Giuseppe Ciaburro
URL: http://guide.dada.net/fortran/interventi/2001/10/71296.shtml

Fortran di Giuseppe Ciaburro guida dal 04-06-2002

Gli operatori definiti dall'utente

Come vengono definiti in fortran 90 nuovi operatori.

Di seguito è riportata la procedura per la definizione di nuovi operatori in fortran 90.L'esigenza della definizione di nuvi operatori può nascere dalla volontà di personalizzare il più possibile il codice che l'utente si trova a realizzare.
Si Deve realizzare un funzione immettendola in un modulo e poi definire un interfaccia operatore, a questo punto nel main si pui richiamare il nuovo operatore vi faccio vedere come ho fatto.
Nell'esempio ho creato l'operatore .pp. che ad a somma due volte b.
Basta salvare i due pezzi di codice in un file .f90 e compilare.

!----------------------------------
module doppio

interface operator (.pp.)
module procedure dop
end interface

contains

function dop (a,b)
integer,intent(in) :: a,b
integer :: dop

dop =a+b+b

end function
end module doppio
!------------------------------------
program prova
use doppio

integer a,b,c

a=5
b=10

c=a.pp.b
write(*,*)a,b,c
end
!------------------------------------