#!/usr/local/bin/perl
#
#  fix_qregres
#
#  1998/02/10 J.L. Svarc
#
#  Procedure adds several other parameters not included in the 
#  standard qregres file. These parameters are needed to correctly 
#  model a troposhere gradient.

#  Open qregres.nml file and temp file
#  -----------------------------------
   open (QregresInHdl, "qregres.nml");
   open (QregresOutHdl, ">qregres.nml.$$");
   while (<QregresInHdl>) {
      print(QregresOutHdl $_);

#  Add following lines to temp file
#  --------------------------------
      if (substr($_,2,13) eq "station_model")
      {
         print(QregresOutHdl "     NMLStaPrtl(1,  1) =\n");
         print(QregresOutHdl "          'STA X',\n");
         print(QregresOutHdl "          'STA Y',\n");
         print(QregresOutHdl "          'STA Z',\n");
         print(QregresOutHdl "          'WETZTROP',\n");
         print(QregresOutHdl "          'TRPAZCOS',\n");
         print(QregresOutHdl "          'TRPAZSIN',\n");
         print(QregresOutHdl "          'STA BIAS',\n");
         print(QregresOutHdl "          ' ',\n");
      }
   }
   close (QregresInHdl);
   close (QregresOutHdl);

#  Add NMLTropMap parameter to temp file
#  ------------------------------------- 
   system ("set_qr_tropmap -i qregres.nml.$$ -m 'NIELL'");

#  Move temp file to qregres.nml file
#  ----------------------------------    
   system ("mv qregres.nml.$$ qregres.nml");
 
   exit;