generate F77 interface for double precision