Next: Common blocks
Up: Feed-forward Network (JN)
Previous: Internal subroutines
- 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].
System PRIVILEGED Account
Fri Feb 24 11:28:59 MET 1995