Corrected bug introduced in rev 1788. This bug gave segmentation error for the case using gfortran and CWRR.