After initialization, the network is trained by presenting training patterns and invoking the subroutine JNTRAL. The sample program illustrates how this is done.