`INTEGER FUNCTION JNINDX(IL,I,J)`

Gives the node vector index of node`I`in layer`IL`if`J`=0, otherwise it gives the weight vector index of the weight between node`I`in layer`IL`and node`J`in layer (`IL-1`). (See common block`/JNINT1/`for details on the node and weight vectors.)`REAL FUNCTION GJN(X,N)`

Returns the activation function of type`N`with argument`X`. It also computes the derivatives and and stores them in the common block`/JNSIGM/`. The activation function type is determined by switches`MSTJN(3)`or`IGFN(I)`.`REAL FUNCTION GAUSJN(IDUM)`

Generates a Gaussian distributed random number with standard deviation 1.0 and mean 0.0 for use in Langevin updating.`REAL FUNCTION ERRJN(IDUM)`

Returns the error of the network, determined by the switch`MSTJN(4)`.`REAL FUNCTION RJN(IDUM)`

A random number generator that returns random numbers in the open interval . The routine is taken, basically unchanged, from the Lund program`JETSET`but the code owes very much to [75].

Fri Feb 24 11:28:59 MET 1995