[daip] AIPS problem

[Eric Greisen]

Thanks a lot - I have found the error.  The gains were initialized
correctly only if channel 1 had data and you flagged channel 1.  From
there it was all down hill.

I have a simple correction which I will install in 31DEC05 today.  A
MNJ run tomorrow will pick it up.  The differences are simply

primate<205>$ diff BPASS.FOR $QPGNOT
2825d2824
<       SAVE INIT
2827d2825
<       DATA INIT /.TRUE./
2846c2844
<       IF ((ICHAN.EQ.1) .AND. (IIF.EQ.1) .AND. (IST.EQ.1)) INIT = .TRUE.
---
>       INIT = (ICHAN.EQ.1) .AND. (IIF.EQ.1) .AND. (IST.EQ.1)
2873d2870
<          INIT = .FALSE.

Again, thanks

Eric Greisen