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

Added a dump of the PRESCALE string

parent 7dd19f86
No related branches found
No related tags found
No related merge requests found
......@@ -58,6 +58,7 @@
integer*4 jiand,jishft,jieor
logical*4 found_thresholds,found_prescale
character*80 prescale_string
character*80 file
character*4 tmpstring
integer*4 ilo,prescale_len,ilo2
integer*4 nped
......@@ -135,6 +136,16 @@ c write(6,*) ' NOT THRESHOLDS,NOT PS FACTORS. WHO CARES.'
endif
enddo
*
write(*,*) 'PRESCALE STRING'
write(*,*) prescale_string
c WHIT's InSANE HACK
file='InSANEOUT/coda_PS_%d.txt'
call g_sub_run_number(file,gen_run_number)
c 215=philadelphia area code
open(unit=216,file=file,status='REPLACE')
write(216,*)prescale_string
c END WHIT's InSANE HACK
if (found_prescale .and. prescale_len.ne.0) then
prescale_len = g_important_length(prescale_string(1:prescale_len))
ilo=index(prescale_string(1:prescale_len),'nped=')+5
......
......@@ -47,7 +47,7 @@ ifeq ($(gccversion),4)
endef
$(warning $(message))
FC = g77
FFLAGS += $(g77flags)
FFLAGS += $(g77flags) -static
endif
else
FC = gfortran
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment