[daip] [!6528]: aips - OMFIT (31DEC15)

[Eric Greisen]

Eric Greisen updated #6528
--------------------------

                 Due: - Cleared - (was: 05 May 2015 04:32 PM)

OMFIT (31DEC15)
---------------

           Ticket ID: 6528
                 URL: https://help.nrao.edu/staff/index.php?/Tickets/Ticket/View/6528



In the code is the following:

            IF (LGOBA(L+J)) THEN
C  MFB omft9 adds the 1.414.. below
               WRITE (MSGTXT,2365) COUT(J), UOUT(J), POUT(J),
     *            1.4142135*SOUT(J)
C               WRITE (MSGTXT,2365) COUT(J), UOUT(J), POUT(J),
C    *              SOUT(J)
            ELSE
               WRITE (MSGTXT,2364) COUT(J), UOUT(J), POUT(J)
            END IF

It will be easy to take this 1.4142135 out of the code again.
It is in the version you sent me (OMFT9).

Cheers

Eric




------------------------------------------------------
Staff CP:  https://help.nrao.edu/staff