LOGICAL Shap_alwaysExchUV, Shap_alwaysExchTr
& Shap_alwaysExchUV, Shap_alwaysExchTr
Shap_alwaysExchTr = .TRUE.
CALL WRITE_0D_L( Shap_alwaysExchTr, INDEX_NONE,
& Shap_alwaysExchUV, Shap_alwaysExchTr,
Shap_alwaysExchTr = .FALSE.
IF ( .NOT.Shap_alwaysExchTr
IF ( ( MOD(n,2).EQ.1 .OR. Shap_alwaysExchTr ) .AND.