fix getdp fortran