RDI2grd
changeset 33 307630665c6c
parent 0 229a0d72d2ab
child 34 3b4bcd55e1ea
--- a/RDI2grd
+++ b/RDI2grd
@@ -2,9 +2,9 @@
 #======================================================================
 #                    R D I 2 G R D 
 #                    doc: Wed Aug 30 11:51:22 2006
-#                    dlm: Thu Jun 18 07:06:34 2009
+#                    dlm: Thu Mar 17 07:39:24 2016
 #                    (c) 2006 A.M. Thurnherr
-#                    uE-Info: 18 54 NIL 0 0 72 2 2 4 NIL ofnI
+#                    uE-Info: 20 0 NIL 0 0 72 2 2 4 NIL ofnI
 #======================================================================
 
 # make GMT grd files from RDI file
@@ -16,6 +16,7 @@
 #	Sep  1, 2006: - fiddled with registration
 #	Sep 19, 2007: - adapted to new [RDI_BB_Read.pl]
 #	Jun 18, 2009: - BUG: xysize had been called xyside
+#   Mar 17, 2016: - adapted to new Getopt library
 
 # NOTES:
 #	- regular grids only => no dimensional time axis for data collected
@@ -25,7 +26,7 @@
 #	- implement soundspeed corretion
 #	- add temporal pre-averaging
 
-require "getopts.pl";
+use Getopt::Std;
 $0 =~ m{(.*/)[^/]+};
 require "$1RDI_BB_Read.pl";
 require "$1RDI_Coords.pl";
@@ -123,7 +124,7 @@
 die("Usage: $0 [-M)agnetic <declination>] [-r)ange <first_ens,last_ens>] " .
 			  "[output -b)ase <name>] [-d)imensional coordinates] " .
 			  "<RDI file>\n")
-	unless (&Getopts("b:dM:r:") && @ARGV == 1);
+	unless (&getopts("b:dM:r:") && @ARGV == 1);
 
 print(STDERR "WARNING: magnetic declination not set!\n")
 	unless defined($opt_M);