Lab fenòmens: millores menors
Change-Id: I5b89795ef5a99eeaf0cd80c0417d27970e4c4ec8
diff --git a/quad10/fenomens/lab/p4/MC-2.f90 b/quad10/fenomens/lab/p4/MC-2.f90
index ccc2941..0a999b8 100644
--- a/quad10/fenomens/lab/p4/MC-2.f90
+++ b/quad10/fenomens/lab/p4/MC-2.f90
@@ -18,6 +18,15 @@
integer*2 :: S(1:128, 1:128)
! Inicialitzem algunes variables sobre el problema, que es passen al programa amb un namelist
+ ! L: Mida del sistema
+ ! NOM: Prefix dels noms dels fitxers on es desaran les dades.
+ ! TEMP: Temperatura reduïda per la simulació.
+ ! NSEED: Nombres de seeds que es simularan.
+ ! SEED0: Nombre de la seed inicial.
+ ! MCTOT: Nombre d'iteracions Montecarlo que es faran per cada llavor.
+ ! MCD: Cada cuantes iteracions Montecarlo s'han d'enregistrar les magnituds.
+ ! SAVEFINALCONF: Si s'ha de desar un fitxer amb la configuració final.
+ ! SAVEEVOLUTION: Si s'ha de desar un fitxer amb l'evolució temporal de les magnituds.
namelist /DADES/ L, NOM, TEMP, NSEED, SEED0, MCTOT, MCINI, MCD, SAVEFINALCONF, SAVEEVOLUTION
read(nml = DADES, unit = 5)
@@ -42,7 +51,7 @@
SUMAM = 0
SUMM2 = 0
- ! Si s'ha especificat de guardar l'evolució temporal, obrim el fitxer on la guardarem
+ ! Si s'ha especificat de desar l'evolució temporal, obrim el fitxer on la desarem
if (SAVEEVOLUTION) then
open(12, file = "data_out/" // trim(NOM) // ".ev")
endif