Fixed typos

src/make_cut.f90

@@ -371,7 +371,7 @@ if (icut.eq.0 .or. cloud_for_mat_props) then
                    mat(matel)%fvisc_strong_final,u,v,w,temp,pressure,hpressure,&
                    pore_fluid_pressure,                                        &
                    strain,e2dp,is_plastic_temp,nnode,r0,s0,t0,rst,ileaves,     &
-                   eviscosityp,yield_ratio_temp,frict_angle_temp,,weight)
+                   eviscosityp,yield_ratio_temp,frict_angle_temp,weight)
 
   ael=ael+aelp/(8.d0**level)
   bel=bel+belp/(8.d0**level)

src/make_matrix.f90

@@ -23,13 +23,10 @@ subroutine make_matrix (params,ndof,ael,bel,icon,xg,yg,zg,kfix,viscosity0,     &
                         plasticity_parameters,fviscosity,fvisc_weak_type,      &
                         fvisc_weak_onset,fvisc_weak_end,fvisc_weak_final,      &
                         fvisc_strong_onset,fvisc_strong_end,fvisc_strong_final,&
-                        unode,vnode,wnode,temp,pressure,strain,e2dp,is_plastic,&
-                        nnode,r0,s0,t0,rst,ileaves,eviscosity,                 &
-                        yield_ratio,frict_angle,weight)
                         unode,vnode,wnode,temp,pressure,hpressure,             &
                         pore_fluid_pressure,strain,e2dp,                       &
                         is_plastic,nnode,r0,s0,t0,rst,ileaves,eviscosity,      &
-                        yield_ratio,frict_angle,threadinfo,weight)
+                        yield_ratio,frict_angle,weight)
 
 !------------------------------------------------------------------------------|
 !(((((((((((((((( Purpose of the routine  ))))))))))))))))))))))))))))))))))))))