#!/usr/xpg4/bin/awk -f
#

BEGIN {
	firstLine = 1 ;
	firstMos = 1;
}

{
  c=substr($0,1,1);
  if(firstLine==1){
    firstLine=0;
    oldscale=$3;
    format[1]=$1;
    format[2]=$2;
    format[3]=$3;
    format[4]=$4;
    format[5]=$5;
    format[6]=$6;
    format[7]=$7;
  }
  else {
    if(c=="n"||c=="p"){
      if(firstMos==1){
	firstMos=0;
#	newscale=oldscale*$5/2;
	newscale=l*100;
	format[3]=newscale;
	printf("%s %s %s %s %s %s %s\n",format[1], format[2], format[3], format[4], format[5], format[6], format[7]);
      }
      w=$5*oldscale/newscale;
      l=$6*oldscale/newscale;
      printf("%s %s %s %s %s %s\n",$1,$2,$3,$4,w,l);
    }
    else if(c=="R"||c=="C"||c=="r") print $0;
  }
}
