integer function ckesfi(fnfile)
c
c Check the existence of file
c file exists --> ckesfi = 0
c file does not exist --> ckesfi = 1
c a.tento 4/02 v.1.0
c
c .............. ARGOMENTI
        character*200 fnfile
c
c ............ VARIABILI INTERNE
        logical esis
c
c
        inquire(file=fnfile,exist=esis)
c
        ckesfi = 0
        if(.not.esis) ckesfi = 1
c
        return
c
c
        end