Informatica teorica

subroutine leggiDati
        use dati
        use costanti
        use costantiPressAMu
        use mediaCampioni
        implicit none
        
        open(unit=11,file='dati.in',form='formatted')
        rewind(11) 
        read(11,*) filePosiz, fileNAtomi, fileEnergie, creaProfili
        read(11,*) nmaxatomi
        if (.not.filePosiz) then
                read(11,*) nper
                read(11,*) mspost

Informaticamente parlando, non c'è niente di più triste che vedere del codice macchina scritto a mano.

Canzone del giorno: Lunatica - Who You Are.