WSJT-X/lib/jt9b.f90

subroutine jt9b(jt9com,nbytes)

  include 'constants.f90'
  integer*1 jt9com(0:nbytes-1)
  kss=0
  ksavg=kss + 4*184*NSMAX
  kid2=ksavg + 4*NSMAX
  knutc=kid2 + 2*NTMAX*12000
  call jt9c(jt9com(kss),jt9com(ksavg),jt9com(kid2),jt9com(knutc))

  return
end subroutine jt9b
Oops! Add jt9b.f90 git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3304 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2013-05-23 14:44:36 +00:00			`subroutine jt9b(jt9com,nbytes)`

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			`include 'constants.f90'`
Oops! Add jt9b.f90 git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3304 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2013-05-23 14:44:36 +00:00			`integer*1 jt9com(0:nbytes-1)`
			`kss=0`
			`ksavg=kss + 4184NSMAX`
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			`kid2=ksavg + 4*NSMAX`
Oops! Add jt9b.f90 git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3304 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2013-05-23 14:44:36 +00:00			`knutc=kid2 + 2NTMAX12000`
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			`call jt9c(jt9com(kss),jt9com(ksavg),jt9com(kid2),jt9com(knutc))`
Oops! Add jt9b.f90 git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3304 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2013-05-23 14:44:36 +00:00
			`return`
			`end subroutine jt9b`