enhance precision for writing src_rec_file

xumi1993 · Nov 26, 2024 · d339ec3 · d339ec3
1 parent 0eee6be
commit d339ec3
Showing 1 changed file with 4 additions and 4 deletions.
diff --git 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)')