- Fix to AMOR s2t, wrong reading corrected
- Some problems at TASP with polarisation resolved
This commit is contained in:
2
t_conv.f
2
t_conv.f
@@ -290,7 +290,7 @@ C
|
||||
C-----------------------------------------------------------------------
|
||||
C DEAL WITH FLIPPERS AND HELMOTZ COILS IF LPA
|
||||
C
|
||||
IF (LPA .AND. (LMOAN(1) .OR. LMOAN(2))) THEN
|
||||
IF (LPA) THEN
|
||||
IF (LDF) CALL FLIP_CASE(IF1,IF2,P_IH,F1V,F1H,F2V,F2H,
|
||||
+ AKI,AKF,IER)
|
||||
IF (LDH) CALL HELM_CASE(HX,HY,HZ,P_IH,C_IH,AKI,AKF,
|
||||
|
||||
Reference in New Issue
Block a user