piccole modifiche

.gitignore

@@ -10,3 +10,4 @@ cluster2000x
 main_program
 f77_to_f90
 fixcon
+cluster.*

Makefile

 FC	= gfortran 
-FFLAGS	=  -g  
 
 cluster2000x:
-	$(FC) $(FFLAGS)  -o cluster2000x cluster2000x.f90
+	$(FC)  -o cluster2000x cluster2000x.f90
 
 main_program:
-	$(FC) $(FFLAGS) -o main_program main_program.f90
+	$(FC)  -o main_program main_program.f90
 
 
 clean:  
-	rm cluster2000x cluster2000x.o
-	rm main_program main_program.o
+	rm cluster2000x cluster2000x.o main_program main_program.o

main_program.f

@@ -468,7 +468,6 @@ C-- GET TO WORK
       nclust=0
       open (2,file='cluster.out',status='unknown')
 c      open (22,file='cluster.out2',status='unknown')
-      open (23,file='cluster_csv.out2',status='unknown')
       open (7,file='cluster.ano',status='unknown')
       open (8,file='cluster.dec',status='unknown')
       open (9,file='cluster.clu',status='unknown')

main_program.f90

-     PROGRAM CLUSTER2000X  (FOR SUN COMPUTER)
+!      PROGRAM CLUSTER2000X 
 !
 !    RECOGNIZE CLUSTERS IN SPACE-TIME IN AN EARTHQUAKE CATALOG
 !
@@ -87,11 +87,27 @@
 !cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
 !
 !     24 giugno 2010. F. Mele
-!     modificao il trattamento del formato libero per leggere anche ore e minuti
+!     modificato il trattamento del formato libero per leggere anche ore e minuti
 !     e profondit (il formato libero di reasenberg usava solo anno,mese,giorno senza
 !     uso della profondit).  In seguito ho aggiunto anche ore e minuti.
-!
-!
+!     Poi, aggiungo la selezione dei cluster con magnitudo equivalente
+!     superiore a una magnitudo data e numero minimo di eventi (in
+!     genere 2). 
+!      I parametri che definiscono la scelta sono:
+!           rmag_min = magnitudo equivalente del cluster minima per
+!                      selezionarlo (ES: 3.0)
+!           nc_min   = numero minimo di eventi del cluster per
+!                      selezionarlo (ES: 2)
+!      A questa prima scelta di clusters, aggiungo anche i cluster che,
+!      pur con magnitudo equivalente inferiore a rmag_min, hanno molti
+!      eventi; i parametri che definiscoo la scelta sono:
+!           nc_suf   = numero di eventi del cluster sufficiente a farlo
+!                      selezionare (ES:20. Indipendentemente dalla mag
+!                      equivalente) purch almeno un evento abbia
+!                      magnitudo maggiore o uguale a rmag_suf (ES. 2.5).
+!           rmag_suf = magnitudo raggiunta da almeno uno degli eventi
+!                      del cluster selezionato per numero di eventi (ES: 2.5)
+!       
 !      USE IFPORT                             
                                                                         
       program main 
@@ -191,7 +207,7 @@
                                                                         
 !-- SPECIFY MINIMUM MAGNITUDE TO ACCEPT                                 
       write (6, 50) 
-   50 format (' Enter MINIMUM MAGNITUDE to be accepted: ') 
+   50 format (' Enter MINIMUM MAGNITUDE to be accepted (ES: 0.01): ') 
       read (5, *) xmagcut 
       write(22,'(a,f5.2)')' MINIMUM MAGNITUDE to be accepted: ',xmagcut 
                                                                         
@@ -472,7 +488,6 @@
       nclust=0 
       open (2,file='cluster.out',status='unknown') 
 !      open (22,file='cluster.out2',status='unknown')                   
-      open (23,file='cluster_csv.out2',status='unknown') 
       open (7,file='cluster.ano',status='unknown') 
       open (8,file='cluster.dec',status='unknown') 
       open (9,file='cluster.clu',status='unknown')