1subroutine encode4(message,ncode)
2
3  use packjt
4  parameter (MAXCALLS=7000,MAXRPT=63)
5  integer ncode(206)
6  character*22 message          !Message to be generated
7  character*3 cok               !'   ' or 'OOO'
8  integer dgen(13)
9  integer*1 data0(13),symbol(216)
10
11  call chkmsg(message,cok,nspecial,flip)
12  call packmsg(message,dgen,itype) !Pack 72-bit message into 12 six-bit symbols
13  call entail(dgen,data0)
14  call encode232(data0,206,symbol)       !Convolutional encoding
15  call interleave4(symbol,1)             !Apply JT4 interleaving
16  do i=1,206
17     ncode(i)=symbol(i)
18  enddo
19
20end subroutine encode4
21