#!/bin/awk -f
## Extract profiles from MASS files to ASCII format
## Use as: expmass.awk <mass-file>
## Nov 24, 2004
BEGIN{OFMT="%.3f"}
{
  if ($1=="I") {A = $4; corr = 1./(1. + 0.7*A) }

  if ($1=="F") {fluxd = $10; errD = $11}; 
    
  if ($1=="T" && $4=="X" && $7<50) {

    if ( fluxd>90 && errD<0.005) {
    ut=substr($3,1,2)+substr($3,4,2)/60+substr($3,7,2)/3600 
      print $2,ut,$7*corr^0.6, $9*corr*1e13,$11*corr*1e13,$13*corr*1e13,$15*corr*1e13,$17*corr*1e13,$19*corr*1e13 
      }

  }
}
# END{ system ("xmgrace   -param all.par tmp[123]")}