From 059096534bac4a616ae5d3ae2bb480c98db681af Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Mon, 15 Jan 2024 17:20:43 -0500 Subject: [PATCH] Cleanup. --- qmap/libqmap/q65c.f90 | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/qmap/libqmap/q65c.f90 b/qmap/libqmap/q65c.f90 index f699e6210..2032c40a1 100644 --- a/qmap/libqmap/q65c.f90 +++ b/qmap/libqmap/q65c.f90 @@ -86,11 +86,9 @@ subroutine q65c(fname0,revision0) write(*,3002) nutc,nagain,nhsym,n60,n60b,nd,ntx30a,ntx30b,ndecodes,revision 3002 format('A',i5.4,8i5,2x,a22) - if(nsave.eq.2 .or. (nsave.eq.1 .and. ndecodes.ge.1)) then - call timer('save_qm ',0) + if(nhsym.eq.390 .and. (nsave.eq.2 .or. (nsave.eq.1 .and. ndecodes.ge.1))) then call save_qm(fname,revision,mycall,mygrid,dd,ntx30a,ntx30b,fcenter, & - nutc,ndop00,ndop58) - call timer('save_qm ',1) + nutc,ndop00,ndop58) endif 999 return