Changed call D3dB_r_SMul1(1,0.5d0,dbl_mb(fdn(1))) to call D3dB_rr_daxpy(1,0.5d0,dbl_mb(fdn(1)+n2ft3d), dbl_mb(fdn(1)))...EJB
Changed call D3dB_r_SMul1(1,0.5d0,dbl_mb(fdn(1))) to call D3dB_rr_daxpy(1,0.5d0,dbl_mb(fdn(1)+n2ft3d), dbl_mb(fdn(1)))...EJB
rangsimanketkaew/NWChem