************************************************************************ * File: usacount.for ************************************************************************ * Scopo: utilizza il modulo per la gestione di un contatore globale * realizzato dal file counter.for ************************************************************************ PROGRAM Usacount IMPLICIT NONE * Dichiarazione delle funzioni esterne usate INTEGER Valore * parametri: () * Subroutine usate: Init () * Incrementa () CALL Init CALL Incrementa CALL Incrementa WRITE (*,*) Valore * stampa 2 STOP END