tams-ellipsoid.awk: also extract and save sample id - ebeltoft-ams - AMS results for channel deposit at Ebeltoft, Denmark
 (HTM) git clone git://src.adamsgaard.dk/ebeltoft-ams
 (DIR) Log
 (DIR) Files
 (DIR) Refs
       ---
 (DIR) commit 2de749e6f5d5f3154e8e1e28453c91145d608556
 (DIR) parent 31b2df39fe81bc3f8650a04f57f3d2a71940f231
 (HTM) Author: Anders Damsgaard <anders@adamsgaard.dk>
       Date:   Fri, 24 Jun 2022 12:10:37 +0200
       
       ams-ellipsoid.awk: also extract and save sample id
       
       Diffstat:
         M ams-ellipsoid.awk                   |       8 +++++++-
       
       1 file changed, 7 insertions(+), 1 deletion(-)
       ---
 (DIR) diff --git a/ams-ellipsoid.awk b/ams-ellipsoid.awk
       t@@ -3,7 +3,12 @@
        BEGIN {
                if (axis == "")
                        axis = "max"
       -        printf "Trend\tPlunge\n"
       +        printf "No.\tTrend\tPlunge\n"
       +}
       +
       +/_[A-z0-9]+ +/ {
       +        if (match($0, /_[A-z0-9]+ /))
       +                id = substr($0, RSTART + 1, RLENGTH - 2)
        }
        
        /^Specimen/ {
       t@@ -15,6 +20,7 @@ BEGIN {
                K_int_incl = $4
                K_min_incl = $5
        
       +        printf("%s\t", id)
                if (axis == "max")
                        printf "%g\t%g\n", K_max_decl, K_max_incl
                if (axis == "int")