From 74f07211c3b52e5fc6720e49cc3946dc7ab3f6dc Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Wed, 17 Jan 2024 12:41:43 -0500 Subject: [PATCH] Restore normal behavior in read_qm(). --- qmap/libqmap/read_qm.f90 | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) 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)