NMATH - supplied nonmathematical function subprograms.

The following table shows the non-mathematical function subprograms supplied for Fortran.

Function                  Usage     #Args   Arg     Function
--------                  -----     -----   ---     --------
Left Shift                ILS (i,j)   2    integer  integer
Right Shift               IRS (i,j)   2    integer  integer
Left Rotate               ILR (i,j)   2    integer  integer
Right Logical             IRL (1,j)   2    integer  integer
Set Switch Word           ISETSW (i)  1    typeless integer
Reset Switch Word         IRETSW (i)  1    typeless integer
Mode                      MODE (i)    1    integer  integer
Compare                   KOMPCH      5    char     integer
                          (a,n,b,m,f)      integer
Random Number Generator   RAND(range) 1    real     real
Random Number Generator   RANDT(range)1    real     real
Random Number Generator   FLAT (seed) 1    real     real
Random Number Generator   UNIF2(seed, 3    real     real
                          mean,width)

The shift functions shift the contents of the memory location specified by the integer variable i by j bit positions. (Refer to the Macro Assembler Program (GMAP) manual for a description for a description of shifting functions.)

Usage:

ILS(i,j) Left shift i by j bit positions

IRS(i,j) Right shift i by j bit positions

ILR(i,j) Left rotate i by j bit positions

IRL(i,j) Right logical i by j bit positions

Where:

i and j are integer arguments.