Starting work toward operator management of Q65-Pileup's q3list.

2026-06-07 08:24:53 -04:00 · 2023-03-01 12:01:53 -05:00
parent e1865d4a4d
commit 3dec36b9bd
2 changed files with 7 additions and 9 deletions
@@ -1,4 +1,4 @@
-subroutine get_q3list(fname,nlist,list)
+subroutine get_q3list(fname,bDiskData,nlist,list)

  type q3list
     character*6 call
@@ -11,6 +11,7 @@ subroutine get_q3list(fname,nlist,list)
  character*(*) fname
  character*36 list(40)
  character*8 grid6
+  logical*1 bDiskData
  integer time
  integer nt(8)
  integer indx(MAX_CALLERS)