Skip to content
Snippets Groups Projects
Commit c2b68c6e authored by Whitney Armstrong's avatar Whitney Armstrong
Browse files

Fixed prescale output file

parent 18e13cd8
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
ENGINE/g_examine_go_info.f
+ 2
− 1
View file @ c2b68c6e
...@@ -142,8 +142,9 @@ c WHIT's InSANE HACK ...@@ -142,8 +142,9 @@ c WHIT's InSANE HACK
file='InSANEOUT/coda_PS_%d.txt' file='InSANEOUT/coda_PS_%d.txt'
call g_sub_run_number(file,gen_run_number) call g_sub_run_number(file,gen_run_number)
c 215=philadelphia area code c 215=philadelphia area code
open(unit=216,file=file,status='REPLACE') open(216,file=file,status='REPLACE')
write(216,*)prescale_string write(216,*)prescale_string
close(216)
c END WHIT's InSANE HACK c END WHIT's InSANE HACK
if (found_prescale .and. prescale_len.ne.0) then if (found_prescale .and. prescale_len.ne.0) then
......
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