Commit ea0827ca authored by wbrouw's avatar wbrouw

Add polarisation correction inversion

parent 5d9d4e64
......@@ -43,6 +43,7 @@ C JPH 961209 JDONE argument on NCASTN
C JPH 970128 SHOW: Change calculation of gain ME, add comment.
C WNB 981022 Added loops for SET--INIT
C WNB 080711 Added SETINVERT option
C WNB 081226 Added PDINV polarisation invert option
C
C
SUBROUTINE NCALIB
......@@ -130,6 +131,8 @@ C
CALL NCAPOS
ELSE IF (OPTION.EQ.'PDZERO') THEN !ZERO POL. CORRECTION
CALL NCAPOZ
ELSE IF (OPTION.EQ.'PDINV') THEN !INVERT POL. CORRECTION
CALL NCAPOI
ELSE IF (OPTION.EQ.'PDSET') THEN !SET POL. CORRECTION
CALL NCAPOT
ELSE IF (OPTION.EQ.'PDEDIT') THEN !EDIT POL. CORRECTION
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment