MITgcm Call Tree

BEGIN{MATCH_ROUTINE=0; i=0;nVals=0; while ( getline < "varkey" ) { var[i]=$1; val[i]=$2; ++i; nVals=i-1; } print "" print "" print "MITgcm Call Tree" print "" print "" while ( getline < "callTree.header" ) { print $0; } print "

"
}
/\|-[A-Z,0-9,_]*.*/{
  match($0,/\|-[A-Z0-9_]*/);
  theString=substr($0,RSTART+2,RLENGTH-2);
  rsString=RSTART; rlString=RLENGTH;
  nMatch=-1;
  for ( i=0;i= 0 ) {
   print substr($0,0,rsString)"" theString "" substr($0,rsString+rlString,length());
   MATCH_ROUTINE=1;
  }
}
{
 if (MATCH_ROUTINE ==0 ){ print};
 MATCH_ROUTINE=0;
}
END{
print "

" print "" print "" }