wrong type fixed for is_plas

src/define_ov.f90

@@ -49,10 +49,11 @@ type (thread) threadinfo
 
 integer iproc, nproc, err, ierr, levelv
 integer nface, nlsf, i, j, k, np, kfix
-double precision s,e2d,xlsf,crit,wpreiso,evisc,is_plas
+double precision s,e2d,xlsf,crit,wpreiso,evisc
 integer ioctree_number_of_elements
 external ioctree_number_of_elements
 double precision current_time,activation_time
+logical is_plas
 
 !------------------------------------------------------------------------------|
 !------------------------------------------------------------------------------|