--- a/HISTORY
+++ b/HISTORY
@@ -1,9 +1,9 @@
#======================================================================
# H I S T O R Y
# doc: Thu May 7 13:12:05 2015
-# dlm: Tue Jun 29 12:10:04 2021
+# dlm: Sat Jul 24 09:37:46 2021
# (c) 2015 A.M. Thurnherr
-# uE-Info: 193 22 NIL 0 0 72 0 2 4 NIL ofnI
+# uE-Info: 257 70 NIL 0 0 72 0 2 4 NIL ofnI
#======================================================================
May 7, 2015:
@@ -186,7 +186,7 @@
- published V7.1
----------------------------------------------------------------------
-V7.2
+V7.2 (published Jun 29, 2021)
- various bug fixes and minor additions
- new features
- TEOS10 support
@@ -250,3 +250,8 @@
# Mar 1, 2021: - adapted rotation_ts and angle_ts to deal with nans
+----------------------------------------------------------------------
+V7.3 (published Jul 24, 2021)
+ - bug fixes [libGHP.pl] [libGMT.pl]
+ - minor improvement to [libIMP.pl]
+----------------------------------------------------------------------
--- a/ants.pl
+++ b/ants.pl
@@ -2,9 +2,9 @@
#======================================================================
# A N T S . P L
# doc: Fri Jun 19 14:01:06 1998
-# dlm: Mon Apr 13 11:17:43 2020
+# dlm: Thu Jul 1 18:46:26 2021
# (c) 1998 A.M. Thurnherr
-# uE-Info: 33 21 NIL 0 0 72 2 2 4 NIL ofnI
+# uE-Info: 29 51 NIL 0 0 72 2 2 4 NIL ofnI
#======================================================================
# HISTORY:
@@ -26,11 +26,12 @@
# Dec 8, 2017: - updated to V7.0 (to avoid absolute-path symlink)
# Nov 27, 2018: - updated to V7.1 (for LADCP_w 1.4 release)
# Apr 13, 2020: - updated to V7.2 (for MIMP_tools)
+# Jul 1, 2021: - updated to V7.3 because of a bug
exec($ENV{ANTS_PERL},$0,@ARGV),die("$ENV{ANTS_PERL}: $!")
if (defined($ENV{ANTS_PERL}) && $^X ne $ENV{ANTS_PERL});
-$antsLibVersion = 7.2;
+$antsLibVersion = 7.3;
die(sprintf("$0: obsolete library V%.1f; V%.1f required\n",
$antsLibVersion,$antsMinLibVersion))
--- a/libGHP.pl
+++ b/libGHP.pl
@@ -1,17 +1,18 @@
#======================================================================
# L I B G H P . P L
# doc: Fri Sep 7 09:56:08 2012
-# dlm: Mon Oct 22 13:10:47 2012
+# dlm: Wed Jul 14 07:41:20 2021
# (c) 2012 A.M. Thurnherr
-# uE-Info: 11 0 NIL 0 0 72 2 2 4 NIL ofnI
+# uE-Info: 12 50 NIL 0 0 72 2 2 4 NIL ofnI
#======================================================================
# HISTORY:
# Sep 7, 2012: - created
# Oct 22, 2012: - cosmetics
+# Jul 14, 2021: - BUG: adapted to new libGM name
require "$ANTS/libfuns.pl"; # arccosh
-require "$ANTS/libGM.pl"; # GM_N0
+require "$ANTS/libGM76.pl"; # GM_N0
#----------------------------------------------------------------------------
# h(R_omega) correction factor for different shear/strain (R_omega) ratios
--- a/libGMT.pl
+++ b/libGMT.pl
@@ -1,9 +1,9 @@
#======================================================================
# L I B G M T . P L
# doc: Sun Jun 14 13:45:47 2015
-# dlm: Sun Apr 11 09:55:22 2021
+# dlm: Thu Jul 1 18:45:15 2021
# (c) 2015 A.M. Thurnherr
-# uE-Info: 47 34 NIL 0 0 72 2 2 4 NIL ofnI
+# uE-Info: 48 66 NIL 0 0 72 2 2 4 NIL ofnI
#======================================================================
# perl implementation of /Data/Makefiles/Makefile.GMT
@@ -45,6 +45,7 @@
# Mar 17, 2016: - added check for gmt5 on load
# Apr 10, 2021: - adapted to GMT6 (suppress warnings)
# Apr 11, 2021: - added gmt set GMT_AUTO_DOWNLOAD off
+# Jul 1, 2021: - BUG: gmt check was based on psxy, not gmt psxy
$DEBUG = 0;
@@ -53,7 +54,7 @@
#----------------------------------------------------------------------
if (`which gmt` eq '') {
- if (`which psxy` eq '') {
+ if (`which gmt` eq '') {
croak("$0: [libGMT.pl] GMT version 6 required\n");
} else {
croak("$0: [libGMT.pl] GMT version 6 required (gmt4 installed)\n");
--- a/libIMP.pl
+++ b/libIMP.pl
@@ -1,9 +1,9 @@
#======================================================================
# L I B I M P . P L
# doc: Tue Nov 26 21:59:40 2013
-# dlm: Tue Apr 14 17:23:47 2020
+# dlm: Sat Jul 24 09:37:27 2021
# (c) 2017 A.M. Thurnherr
-# uE-Info: 736 58 NIL 0 0 72 0 2 4 NIL ofnI
+# uE-Info: 70 13 NIL 0 0 72 0 2 4 NIL ofnI
#======================================================================
# HISTORY:
@@ -65,6 +65,9 @@
# - BUG: dhist_binsize != 1 did not work
# - BUG: dhist agreement % was not rounded
# Apr 14, 2020: - cosmetics
+# Jul 12, 2021: - improvements to histogram plot
+# Jul 24, 2021: - updated docu
+# HISTORY END
#----------------------------------------------------------------------
# gRef() library
@@ -458,9 +461,18 @@
my($plotsize) = '13c';
my($xmin,$xmax) = (-180.5,180.5);
my($ymin) = 0;
- my($ymax) = 1.05 * $dhist[$HDG_offset/$dhist_binsize];
+ my($ymax) = 0;
+
+ for (my($i)=0; $i<@dhist; $i++) {
+ $ymax = $dhist[$i] if ($dhist[$i] > $ymax);
+ }
+ $ymax = 1.05 * $ymax;
GMT_begin("$P{profile_id}${opt_a}_hdg_offset.ps","-JX${plotsize}","-R$xmin/$xmax/$ymin/$ymax",'-X6 -Y4 -P');
+ if (defined($opt_o)) {
+ GMT_psxy("-W2,red");
+ printf(GMT "%f %f\n%f %f\n",$opt_o,0,$opt_o,$ymax);
+ }
GMT_psxy("-Sb${dhist_binsize}u -GCornFlowerBlue");
for (my($i)=0; $i<@dhist; $i++) {
next unless $dhist[$i];