Main subroutines

The main routines are JNINIT, JNTRAL, JNTEST, JNDUMP and JNREAD ( JNROLD). These are usually the only routines the user has to invoke. The network is initialized by setting switches in /JNDAT1/ and calling JNINIT. The net is trained by putting an input pattern in the vector OIN, the desired output values in the vector OUT and calling JNTRAL. Subsequent testing of the net is done by putting a test pattern in OIN, calling JNTEST and comparing the produced output values, stored in OUT, with the target values.

• SUBROUTINE JNINIT
  Initializes the network according to the setting of the switches in /JNDAT1/ and /JNDAT2/. Weights are given initial random values according to PARJN(4) or WIDL(I).

• SUBROUTINE JNTRAL
  Takes the pattern stored in the vector OIN and calls JNFEED to produce an output pattern, which is compared to the target pattern in the vector OUT. The resulting error is used to determine the change of the weights. The produced output pattern is stored in the vector OUT. Updating of the weights is performed every MSTJN(2) call to JNTRAL. The training algorithm is specified by the switch MSTJN(5).

• SUBROUTINE JNTEST
  Feeds the input signal in the vector OIN through the net and places the produced output in the vector OUT.

• SUBROUTINE JNDUMP(NF)
  Writes all relevant information of a network to the file ABS(NF). If NF is negative the output is unformatted, otherwise it is formatted. The user must make sure that the corresponding file is opened with write access accordingly.

• SUBROUTINE JNREAD(NF)
  Reads the information from the file ABS(NF) produced by JNDUMP and initializes the network described there. All switches and parameters in common blocks /JNDAT1/ and /JNDAT2/ set prior to a call to JNREAD are lost. The comments about the file number for JNDUMP apply also here.

• SUBROUTINE JNROLD(NF)
  Same as JNREAD(NF) except that it reads files produced by the older versions JETNET 1.0 and JETNET 1.1.