From 3b4a9ddfe738267ba5a5c73443b8cf70a80bac62 Mon Sep 17 00:00:00 2001
From: wangliang <wangliang0222@gmail.com>
Date: Sat, 3 Feb 2024 15:48:51 +0800
Subject: [PATCH] =?UTF-8?q?=E4=BF=AE=E6=AD=A3=E7=BB=98=E5=88=B6=E6=9C=BA?=
 =?UTF-8?q?=E5=88=B6=E8=A7=A3=E7=9A=84=20bug?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 example/gmt6depth.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/example/gmt6depth.pl b/example/gmt6depth.pl
index 9686c70..12a946b 100755
--- a/example/gmt6depth.pl
+++ b/example/gmt6depth.pl
@@ -71,7 +71,7 @@
     for(my $j = 1; $j <= $i - 1; $j++) {
         my ($mecas) = split m/\n/, `radpttn 1 $strike[$j] $dip[$j] $rake[$j] $iso[$j] $clvd[$j]`;
         my @meca = split m/\s+/, $mecas;
-        printf GMT "%6.1f %6.1f 0 %s %s %s %s %s %f 17 0 0 %s\n", $dep[$j], ($rms[$j] - $min) / ($min / $dof), @meca[6, 1, 4, 3], $meca[5], $meca[2], $mag[$j];
+        printf GMT "%6.1f %6.1f 0 %s %s %s %s %s %f 17 0 0 %s\n", $dep[$j], ($rms[$j] - $min) / ($min / $dof), @meca[6, 1, 4, 3], -$meca[5], -$meca[2], $mag[$j];
     }
     close(GMT);
     system "gmt end";