!CHECK ARGON'S NUMBER OF LINES
    open(unit=10,file="argon.txt",iostat=err,form="formatted")

    do while ( err==0 )
        read( 10,"(A)", iostat=err )
        lines = lines + 1
    end do
    lines = lines - 2 !TAKE TITLE INTO ACCOUNT
    print "(a12,i3,a7)", "Il file ha: ", lines," linee."