diff --git a/src/shared/src_rec_parser.f90 b/src/shared/src_rec_parser.f90 index 68005e1..0f24993 100644 --- a/src/shared/src_rec_parser.f90 +++ b/src/shared/src_rec_parser.f90 @@ -81,11 +81,11 @@ subroutine write_raw_src_rec_file(this, fname) do i = 1, this%npath call fp%add(this%tt(i), real_fmt='(F11.6)') call fp%add(this%staname(i), trim_str=.true.) - call fp%add(this%stla(i), real_fmt='(F9.4)') - call fp%add(this%stlo(i), real_fmt='(F9.4)') + call fp%add(this%stla(i), real_fmt='(F11.6)') + call fp%add(this%stlo(i), real_fmt='(F11.6)') call fp%add(this%evtname(i), trim_str=.true.) - call fp%add(this%evla(i), real_fmt='(F9.4)') - call fp%add(this%evlo(i), real_fmt='(F9.4)') + call fp%add(this%evla(i), real_fmt='(F11.6)') + call fp%add(this%evlo(i), real_fmt='(F11.6)') call fp%add(this%periods_all(i), real_fmt='(F0.4)') if (any('weight'==this%header)) call fp%add(this%weight(i), real_fmt='(F6.4)') if (any('dist'==this%header)) call fp%add(this%dist(i), real_fmt='(F11.6)')