diff --git a/rdcon/free.f b/rdcon/free.f index 3c84387d..f7b236e6 100644 --- a/rdcon/free.f +++ b/rdcon/free.f @@ -670,7 +670,7 @@ END SUBROUTINE free_ahb_write c declarations. c----------------------------------------------------------------------- SUBROUTINE free_get_wvac() - LOGICAL, PARAMETER :: complex_flag=.FALSE. + LOGICAL, PARAMETER :: complex_flag=.TRUE. INTEGER :: ipert REAL(r8) :: kernelsignin REAL(r8), DIMENSION(mpert) :: singfac