#include </usrg1/hpm/x/wave/scenesub.c>

main()
{ int cnt;

initialize();
if (0)
   {makeBEAMS(); add(); 
    readA("/usr/hpm/x/wave/F300.9"); convolve(); ck();
    writeQ("/usrg1/hpm/x/wave/BEAMS.9");}
if (0)
   {for (cnt = 0; cnt < 4;  ++cnt)
       {makeRA();    multiply();  ck();
        makeIA();    add();       ck();
        writeQ("/usrg1/hpm/x/wave/LIT1.9");
        readA("/usr/hpm/x/wave/F300.9");  convolve();  ck();
        makeRB();    multiply();  ck();
        readA("/usr/hpm/x/wave/F300.9");  convolve();  ck(); }

    makeRA();      multiply();  ck();
    makeIA();      add();       ck();
    writeQ("/usrg1/hpm/x/wave/LIT1.9");
    readA("/usr/hpm/x/wave/F300.9");    convolve();  ck();
    makeTB();      multiply();  ck();
    writeQ("/usrg1/hpm/x/wave/LIT2.9");}
if (1)
   {readQ("/usrg1/hpm/x/wave/LIT2.9");
    readA("/usr/hpm/x/wave/F10K.9");    convolve();  ck();
    makeL();       multiply();  ck();
    readA("/usr/hpm/x/wave/F10K.9");    convolve();  ck();
    writeQ("/usrg1/hpm/x/wave/FINAL.9");               ck();}
if (1)
   {readQ("/usrg1/hpm/x/wave/LIT1.9");                   ck();
    makeTB();      mask();        ck();
    writeQ("/usrg1/hpm/x/wave/LIT1M.9");
    readQ("/usrg1/hpm/x/wave/LIT2.9");                   ck();
    makeTB();      mask();        ck();
    readQ("/usrg1/hpm/x/wave/LIT1M.9");   add();         ck();
    writeQ("/usrg1/hpm/x/wave/LIT1M.9");   }

}