diff --git a/sammy/src/ssm/mssm07.f90 b/sammy/src/ssm/mssm07.f90 index 34f1c106c82c57b98fad31b1f870c011895f5215..e07f36e3cc2d7ad8897631c934c244b206e1ce1f 100644 --- a/sammy/src/ssm/mssm07.f90 +++ b/sammy/src/ssm/mssm07.f90 @@ -59,6 +59,8 @@ module ssm_7_m call grid%initialize() call grid%setParameters(numcro, ktzero) call grid%setToAuxGrid(expData) + + Not_Quad = 0 ! ! CALL Zero2_2 (A, Sumw, Yyy1xx, Yyy2xx, Yyy2xq, Y2aaaa, Y2aaaq, Nx)