Commit 77b4e341 authored by Franco Mele's avatar Franco Mele
Browse files

piccole modifiche

parent aebbe11e
......@@ -10,3 +10,4 @@ cluster2000x
main_program
f77_to_f90
fixcon
cluster.*
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
This diff is collapsed.
......@@ -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')
......
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')
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment