Fix picked mode header output

hirokemono · hirokemono · commit 86b671d7fda0 · 2017-09-12T15:45:13.000-07:00
diff --git a/src/Fortran_libraries/SERIAL_src/IO/m_pickup_sph_spectr_data.f90 b/src/Fortran_libraries/SERIAL_src/IO/m_pickup_sph_spectr_data.f90
@@ -215,10 +215,11 @@ subroutine open_sph_spec_4_monitor
       return
 !
    99 continue
+      close(id_pick_mode)
       open(id_pick_mode, file = pickup_sph_name, form='formatted',      &
      &    status='replace')
 !
-      write(id_pick_mode,'(a)')
+      write(id_pick_mode,'(a)')    '#'
       write(id_pick_mode,'(a)')    '# num_layers, num_spectr'
       write(id_pick_mode,'(2i16)') num_pick_layer, num_pick_sph_mode
       write(id_pick_mode,'(a)')    '# number of component'

Original file line number	Diff line number	Diff line change
`@@ -215,10 +215,11 @@ subroutine open_sph_spec_4_monitor`
`215`	`215`	`return`
`216`	`216`	`!`
`217`	`217`	`99 continue`
	`218`	`+ close(id_pick_mode)`
`218`	`219`	`open(id_pick_mode, file = pickup_sph_name, form='formatted', &`
`219`	`220`	`& status='replace')`
`220`	`221`	`!`
`221`		`- write(id_pick_mode,'(a)')`
	`222`	`+ write(id_pick_mode,'(a)') '#'`
`222`	`223`	`write(id_pick_mode,'(a)') '# num_layers, num_spectr'`
`223`	`224`	`write(id_pick_mode,'(2i16)') num_pick_layer, num_pick_sph_mode`
`224`	`225`	`write(id_pick_mode,'(a)') '# number of component'`