Simplifying to help clear up some confusion

2019-10-26 23:01:05 -04:00
parent 56d457a056
commit 952d9d7080
5 changed files with 49 additions and 18 deletions
@@ -1,4 +1,4 @@
-  integer, parameter :: NTMAX=300
+  integer, parameter :: NTMAX=60
  integer, parameter :: NMAX=NTMAX*12000 !Total sample intervals (one minute)
  integer, parameter :: NDMAX=NTMAX*1500 !Sample intervals at 1500 Hz rate
  integer, parameter :: NSMAX=6827       !Max length of saved spectra
@@ -18,8 +18,6 @@
     integer(c_int) :: nfsplit
     integer(c_int) :: nfb
     integer(c_int) :: ntol
-     integer(c_int) :: knum
-     integer(c_int) :: kpos
     integer(c_int) :: kin
     integer(c_int) :: nzhsym
     integer(c_int) :: nsubmode