HEADING:(SETJKL.LG) SET VARIABLES 'J,K,L' FOR SUBROUTINES  7/25/90 GF


STEP
570   IF  NOM N < 00 THEN   LET  N = - NOM N
571   LET  I = N
572   LET  J = I + 3.00000E+02
573   LET  K = I + 6.00000E+02
574   LET  L = I + 1.00000E+02
575   EXIT