bit_size(3I)

NAME
     BIT_SIZE - Returns the number of bits in an integer in the bit
     manipulation model

SYNOPSIS
     BIT_SIZE ([I=]i)

IMPLEMENTATION
     UNICOS, UNICOS/mk, and IRIX systems

STANDARDS
     Fortran 90

DESCRIPTION
     The BIT_SIZE intrinsic function returns the number of bits s as
     defined by the bit model.  The bit model is described in the
     MODELS(3I) man page.  This intrinsic function accepts the following
     argument:

     i    Must be of type integer

     BIT_SIZE is an inquiry function.  The name of this intrinsic cannot be
     passed as an argument.

RETURN VALUES
     The result is a scalar integer with the same kind type parameter as i.

     The result has the value of the number of bits s in the model integer
     defined in the DESCRIPTION section of this man page.

EXAMPLES
     The following code fragment is run on several systems:

          INTEGER(KIND=1) I1
          INTEGER(KIND=2) I2
          INTEGER(KIND=4) I4
          INTEGER(KIND=8) I8
          INTEGER ID
          PRINT *,'BIT_SIZE I1=',BIT_SIZE(I1)
          PRINT *,'BIT_SIZE I2=',BIT_SIZE(I2)
          PRINT *,'BIT_SIZE I4=',BIT_SIZE(I4)
          PRINT *,'BIT_SIZE I8=',BIT_SIZE(I8)
          PRINT *,'BIT_SIZE ID=',BIT_SIZE(ID)
          END

     On IRIX systems the output is as follows:

          BIT_SIZE I1= 8
          BIT_SIZE I2= 16
          BIT_SIZE I4= 32
          BIT_SIZE I8= 64
          BIT_SIZE ID= 32

     On UNICOS systems, excluding CRAY T90 systems that support IEEE
     floating-point arithmetic, the output is as follows:

          BIT_SIZE I1= 8
          BIT_SIZE I2= 16
          BIT_SIZE I4= 32
          BIT_SIZE I8= 64
          BIT_SIZE ID= 64

     On UNICOS/mk systems, the output is as follows:

          BIT_SIZE I1= 8
          BIT_SIZE I2= 16
          BIT_SIZE I4= 32
          BIT_SIZE I8= 64
          BIT_SIZE ID= 64

     On CRAY T90 systems that support IEEE floating-point arithmetic, the
     output is as follows:

          BIT_SIZE I1= 8
          BIT_SIZE I2= 16
          BIT_SIZE I4= 32
          BIT_SIZE I8= 64
          BIT_SIZE ID= 64

SEE ALSO
     MODELS(3I)

     Intrinsic Procedures Reference Manual, publication SR-2138, for the
     printed version of this man page.