diff --git a/map65/libm65/decode0.f90 b/map65/libm65/decode0.f90
index 5ddebc5e1..242edac15 100644
--- a/map65/libm65/decode0.f90
+++ b/map65/libm65/decode0.f90
@@ -8,16 +8,16 @@ subroutine decode0(dd,ss,savg,nstandalone)
   integer hist(0:32768)
   character mycall*12,hiscall*12,mygrid*6,hisgrid*6,datetime*20
   character mycall0*12,hiscall0*12,hisgrid0*6
-  character*300 datadir,tempdir
   common/npar/fcenter,nutc,idphi,mousedf,mousefqso,nagain,                &
        ndepth,ndiskdat,neme,newdat,nfa,nfb,nfcal,nfshift,                 &
        mcall3,nkeep,ntol,nxant,nrxlog,nfsample,nxpol,nmode,               &
-       nfast,nsave,mycall,mygrid,hiscall,hisgrid,datetime,datadir,tempdir
+       nfast,nsave,mycall,mygrid,hiscall,hisgrid,datetime
   common/tracer/ limtrace,lu
   data neme0/-99/,mcall3b/1/
   save
 
   call timer('decode0 ',0)
+
   if(newdat.ne.0) then
      nz=52*96000
      hist=0
diff --git a/map65/libm65/m65.f90 b/map65/libm65/m65.f90
index c8efd3e94..dfce37194 100644
--- a/map65/libm65/m65.f90
+++ b/map65/libm65/m65.f90
@@ -13,13 +13,12 @@ program m65
   common/tracer/limtrace,lu
   real*8 fc0,fcenter
   character*80 arg,infile
-  character*300 datadir,tempdir
   character mycall*12,hiscall*12,mygrid*6,hisgrid*6,datetime*20
   common/datcom/dd(4,5760000),ss(4,322,NFFT),savg(4,NFFT),fc0,nutc0,junk(36)
   common/npar/fcenter,nutc,idphi,mousedf,mousefqso,nagain,                &
        ndepth,ndiskdat,neme,newdat,nfa,nfb,nfcal,nfshift,                 &
        mcall3,nkeep,ntol,nxant,nrxlog,nfsample,nxpol,nmode,               &
-       nfast,nsave,mycall,mygrid,hiscall,hisgrid,datetime,datadir,tempdir
+       nfast,nsave,mycall,mygrid,hiscall,hisgrid,datetime
 
   nargs=iargc()
   if(nargs.ne.1 .and. nargs.lt.5) then
diff --git a/map65/libm65/m65a.f90 b/map65/libm65/m65a.f90
index 259f68001..21ea4019d 100644
--- a/map65/libm65/m65a.f90
+++ b/map65/libm65/m65a.f90
@@ -63,41 +63,18 @@ subroutine m65c(dd,ss,savg,nparams0)
   integer*1 detach_m65
   real*4 dd(4,5760000),ss(4,322,32768),savg(4,32768)
   real*8 fcenter
-  integer nparams0(189),nparams(189)
+  integer nparams0(40),nparams(40)
   character*12 mycall,hiscall
   character*6 mygrid,hisgrid
   character*20 datetime
-  character*300 datadir,tempdir
-  character*1 c0
-  common/npar/fcenter,nutc,idphi,mousedf,mousefqso,nagain,                &
-       ndepth,ndiskdat,neme,newdat,nfa,nfb,nfcal,nfshift,                 &
-       mcall3,nkeep,ntol,nxant,nrxlog,nfsample,nxpol,nmode,               &
-       nfast,nsave,mycall,mygrid,hiscall,hisgrid,datetime,datadir,tempdir
+  common/npar/fcenter,nutc,idphi,mousedf,mousefqso,nagain,              &
+       ndepth,ndiskdat,neme,newdat,nfa,nfb,nfcal,nfshift,               &
+       mcall3,nkeep,ntol,nxant,nrxlog,nfsample,nxpol,nmode,             &
+       nfast,nsave,mycall,mygrid,hiscall,hisgrid,datetime
   equivalence (nparams,fcenter)
-
+  
   nparams=nparams0                     !Copy parameters into common/npar/
   npatience=1
-  i0=index(mycall,c0)
-  if(i0.gt.0) mycall=mycall(1:i0-1)
-  
-  i0=index(mygrid,c0)
-  if(i0.gt.0) mygrid=mygrid(1:i0-1)
-  
-  i0=index(hiscall,c0)
-  if(i0.gt.0) hiscall=hiscall(1:i0-1)
-  
-  i0=index(hisgrid,c0)
-  if(i0.gt.0) hisgrid=hisgrid(1:i0-1)
-  
-  i0=index(datetime,c0)
-  if(i0.gt.0) datetime=datetime(1:i0-1)
-
-  i0=index(datadir,c0)
-  if(i0.gt.0) datadir=datadir(1:i0-1)
-
-  i0=index(tempdir,c0)
-  if(i0.gt.0) tempdir=tempdir(1:i0-1)
-
   if(iand(nrxlog,1).ne.0) then
      write(21,1000) datetime(:17)
 1000 format(/'UTC Date: 'a17/78('-'))