tams-ellipsoid.awk - 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
       ---
       tams-ellipsoid.awk (536B)
       ---
            1 #!/usr/bin/awk -f
            2 
            3 BEGIN {
            4         if (axis == "")
            5                 axis = "max"
            6         printf "No.\tTrend\tPlunge\n"
            7 }
            8 
            9 /ANISOTROPY OF SUSCEPTIBILITY/ {
           10         if (match($1, /[A-z0-9\-_]+/))
           11                 id = substr($1, RSTART, RLENGTH)
           12 }
           13 
           14 /^Specimen/ {
           15         K_max_decl = $3
           16         K_int_decl = $4
           17         K_min_decl = $5
           18         getline
           19         K_max_incl = $3
           20         K_int_incl = $4
           21         K_min_incl = $5
           22 
           23         printf("%s\t", id)
           24         if (axis == "max")
           25                 printf "%g\t%g\n", K_max_decl, K_max_incl
           26         if (axis == "int")
           27                 printf "%g\t%g\n", K_int_decl, K_int_incl
           28         if (axis == "min")
           29                 printf "%g\t%g\n", K_min_decl, K_min_incl
           30 }