Fixed prescale output file

ENGINE/g_examine_go_info.f

@@ -142,8 +142,9 @@ 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')
+      open(216,file=file,status='REPLACE')
       write(216,*)prescale_string 
+      close(216)
 c END WHIT's InSANE HACK
 
       if (found_prescale .and. prescale_len.ne.0) then