#
#  Awk program for processing the sif history file output from 
#  franc and franc2dl.
#
#  Usage:  awk -f sif.awk sif_file.txt > sif.out
#
#  Note:  Depending on the system, awk may be replaced by nawk or gawk
#

BEGIN { num_cracks = 0 } 
$0 ~ /Number of Cracks/ { 
    num_cracks = $4 
    a0 = 0.0 
    printf("    %-10s %-10s %-10s %-10s %-10s %-10s %s\n", \
        "a", "KI", "KII", "Angle", "Xtip", "Ytip", "da" ) 
} 
$0 ~ /Data for Crack/ { 
    if ( num_cracks > 1 ) { 
        print $0 
    } 
} 
$1 ~ /Step/ { 
    a = $6 
} 
$0 ~ /Crack Tip Location/ { 
    X = $6 
    Y = $7 
} 
$0 ~ /Crack Kink Angle/ { 
    angle = $5 
} 
$0 ~ /Total/ { 
    KI = $2 
    KII = $3 
    da = a - a0 
    printf( "%10s %10s %10s %10s %10s %10s %10s\n", \
           a, KI, KII, angle, X, Y, da ) 
    a0 = a 
}