[daip] Polarisation code for Nasmyth & EW antennae

[Eric Greisen]

Richard Dodson wrote:
> Hi Eric

C                                       Nasmyth
             ELSE IF ((MNTYP(LOOPAN).EQ.4) .OR. (MNTYP(LOOPAN).EQ.5))
      *         THEN
                DPARM = TIME
                CALL SOUELV (LOOPAN, DPARM, HA, EL, AZ)
C       Right handed is FA=PA-EL
                IF (MNTYP(LOOPAN).EQ.5) EL = -EL

                IF (FIRST) THEN
                   WRITE (MSGTXT,1000) 'Using Nasmyth formula for ',
      *               LOOPAN
                   CALL MSGWRT (2)
                   FIRST = .FALSE.
                   END IF
C       Left handed is FA=PA+EL
                PANGLE(LOOPAN) = PANGLE(LOOPAN) + EL
             END IF

The comments in the code and the code itself are opposit.

For type 4 (right hand) this does PA+EL and for type 5 (left hand) it 
does PA-EL.

Which do you want?

Eric