diff --git a/qmap/libqmap/read_qm.f90 b/qmap/libqmap/read_qm.f90
index 7007f9e2c..a3d3b29a4 100644
--- a/qmap/libqmap/read_qm.f90
+++ b/qmap/libqmap/read_qm.f90
@@ -13,10 +13,7 @@ subroutine read_qm(fname,iret)
        ntx30a,ntx30b   !...
 
   open(28,file=trim(fname),status='old',access='stream',err=900)
-  !  read(28,end=910) prog_id,mycall,mygrid,fcenter,nutc,ntx30a,           &
-
-!### The following is only for files recorded on 240116:
-  read(28,end=910) prog_id,mycall_12,mygrid_6,fcenter,nutc,ntx30a,           &
+  read(28,end=910) prog_id,mycall,mygrid,fcenter,nutc,ntx30a,           &
        ntx30b,ndop00,ndop58,ia,ib,fac0,nxtra
   fac=1.0
   if(fac0.gt.0.0) fac=1.0/fac0
@@ -27,7 +24,7 @@ subroutine read_qm(fname,iret)
   iret=3
   if(ib.eq.NMAX/2) iret=1
   if(ia.eq.NMAX/2+1) iret=2
-  print*,'A',ia,ib,iret,prog_id,' ',mycall,' ',mygrid,' ',fcenter,nutc
+!  print*,'A',ia,ib,iret,prog_id,' ',mycall,' ',mygrid,' ',fcenter,nutc
 !  write(*,3001) prog_id,mycall(1:6),mygrid,fcenter,nutc,ntx30a,ntx30b,  &
 !       ndop00,ndop58,ia,ib
 !3001 format(a24,2x,a6,2x,a6,f10.3,i6.4,2i5/4i9)