@@ -1877,8 +1877,11 @@ real(dp) function EIRENE_ph_lorvdw(dx,fwhm,shift,dvdw,
       z1  = cmplx(-a, -1._dp,dp) * aa
 !pb      zz  = cdsqrt(b*z1) *(0._dp,1._dp)
       zz  = sqrt(b*z1) *(0._dp,1._dp)
+#ifdef LEGACYCOMP
+      fad = EIRENE_ph_faddeeva2(abs(zz), aimag(zz), icell, 0)
+#else
       fad = EIRENE_ph_faddeeva2(zz%RE, zz%IM, icell, 0)
-
+#endif
 !pb      sz1 = z1*cdsqrt(z1)
       sz1 = z1*sqrt(z1)
       z=sz1*fad