avoid uninitialized array

2019-06-29 10:26:29 -07:00 · 2019-06-29 10:26:29 -07:00 · a04be84719
parent bf8ac403f1
commit a04be84719
1 changed files with 17 additions and 16 deletions
--- a/src/plastic_dislotwin.f90
+++ b/src/plastic_dislotwin.f90
@ -338,6 +338,7 @@ subroutine plastic_dislotwin_init
     prm%r            = math_expand(prm%r,prm%N_tw)
     
   else
+     allocate(prm%gamma_char(0))
     allocate(prm%t_tw      (0))
     allocate(prm%b_tw      (0))
     allocate(prm%r         (0))