using on unitialized error caused segfault in some cases

2018-06-04 12:36:52 +02:00 · 2018-06-04 12:36:52 +02:00 · c903880d19
parent 80bfd39846
commit c903880d19
1 changed files with 2 additions and 0 deletions
--- a/src/math.f90
+++ b/src/math.f90
@ -1820,6 +1820,8 @@ function math_sampleFiberOri(alpha,beta,FWHM)
 integer(pInt):: j,&                                                                                !< index of smallest component
   i

+ allocate(a(0))
+ allocate(idx(0))
 fInC = [sin(alpha(1))*cos(alpha(2)), sin(alpha(1))*sin(alpha(2)), cos(alpha(1))]
 fInS = [sin(beta(1))*cos(beta(2)),   sin(beta(1))*sin(beta(2)),   cos(beta(1))]