From 15b8a8e30f25033ce821a3dd642bf136de528dca Mon Sep 17 00:00:00 2001
From: "Juan S. Acero Triana" <57607681+jsacerot@users.noreply.github.com>
Date: Sat, 25 Mar 2023 00:50:15 -0700
Subject: [PATCH] Update PFB-WriteFcn.R

```aa`` needs to be double; otherwise, writepfb may wrongly write values when ```to.write``` is full of integers.
---
 Rpkg/R/PFB-WriteFcn.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Rpkg/R/PFB-WriteFcn.R b/Rpkg/R/PFB-WriteFcn.R
index e0ba3be..6faab47 100644
--- a/Rpkg/R/PFB-WriteFcn.R
+++ b/Rpkg/R/PFB-WriteFcn.R
@@ -70,7 +70,7 @@ writepfb=function(to.write,filename,dx,dy,dz){
   writeBin(rz,fp,integer(),endian="big")
   
   # aa=as.vector(as.double(a))
-  aa=as.vector(to.write)
+  aa=as.double(as.vector(to.write))
   writeBin(aa,fp,double(),endian="big")
   
   close(fp)