WSJT-X/lib/fillcom.f90

subroutine fillcom(nutc0,ndepth0)
  character*20 datetime
  common/npar/nutc,ndiskdat,ntrperiod,nfqso,newdat,npts8,nfa,nfb,ntol,  &
       kin,nzhsym,nsave,nagain,ndepth,ntxmode,nmode,datetime
  save

  nutc=nutc0
  ndiskdat=1
  ntrperiod=60
  nfqso=1197
  newdat=1
  npts8=74736
  nfa=2700
  nfb=4007
  ntol=3
  kin=1024
  nzhsym=173
  nsave=0
  ndepth=ndepth0
  ntxmode=9
  nmode=9+65
  datetime="2013-Apr-16 15:13"
  
  return
end subroutine fillcom
Fine-tuning work on decoder. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3181 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2013-04-16 18:33:38 +00:00			`subroutine fillcom(nutc0,ndepth0)`
Add fillcom.f90 git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3178 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2013-04-16 16:38:25 +00:00			`character*20 datetime`
			`common/npar/nutc,ndiskdat,ntrperiod,nfqso,newdat,npts8,nfa,nfb,ntol, &`
Merging code for v1.1 back into the main wsjtx branch. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3462 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2013-07-08 13:17:22 +00:00			`kin,nzhsym,nsave,nagain,ndepth,ntxmode,nmode,datetime`
Add fillcom.f90 git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3178 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2013-04-16 16:38:25 +00:00			`save`

			`nutc=nutc0`
			`ndiskdat=1`
			`ntrperiod=60`
Merging code for v1.1 back into the main wsjtx branch. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3462 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2013-07-08 13:17:22 +00:00			`nfqso=1197`
Add fillcom.f90 git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3178 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2013-04-16 16:38:25 +00:00			`newdat=1`
			`npts8=74736`
Merging code for v1.1 back into the main wsjtx branch. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3462 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2013-07-08 13:17:22 +00:00			`nfa=2700`
			`nfb=4007`
Reduce ntol. Add "red3" (but not yet using it). git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3275 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2013-05-16 19:01:16 +00:00			`ntol=3`
Add fillcom.f90 git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3178 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2013-04-16 16:38:25 +00:00			`kin=1024`
			`nzhsym=173`
			`nsave=0`
Fine-tuning work on decoder. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3181 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2013-04-16 18:33:38 +00:00			`ndepth=ndepth0`
Merging code for v1.1 back into the main wsjtx branch. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3462 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2013-07-08 13:17:22 +00:00			`ntxmode=9`
			`nmode=9+65`
Add fillcom.f90 git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3178 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2013-04-16 16:38:25 +00:00			`datetime="2013-Apr-16 15:13"`

			`return`
			`end subroutine fillcom`