diff --git a/src/inital.F90 b/src/inital.F90 index e78dd6ef6cfc2532e861d9faec99c48057e955af..91f05c860ed68319fbfc79fac939a9a714ad6dfd 100644 --- a/src/inital.F90 +++ b/src/inital.F90 @@ -64,9 +64,10 @@ SUBROUTINE inital !!!!!! Load the COSOlver collision operator coefficients !!!!!! IF (ABS(CO) .GT. 1) THEN CALL load_COSOlver_mat + ! Compute collision + CALL compute_TColl ! compute C_0 = C(N_0) ENDIF - ! Compute collision - CALL compute_TColl ! compute C_0 = C(N_0) + END SUBROUTINE inital !******************************************************************************!