corrected potential non standard allocation by means transfer intrinsic function for gfortran compatibility