machine_constants_irix.f90

Go to the documentation of this file.

MODULE machine_constants

  USE constants
  USE kinds
  
  IMPLICIT NONE

  !Module parameters
  
  !Machine constants
  INTEGER(INTG), PARAMETER :: machine_type=sgi_computer
  INTEGER(INTG), PARAMETER :: machine_os=irix_os
  INTEGER(INTG), PARAMETER :: machine_endian=big_endian_number
  INTEGER(INTG), PARAMETER :: machine_char_format=ascii_character
  INTEGER(INTG), PARAMETER :: machine_int_format=twos_complement_integer
  INTEGER(INTG), PARAMETER :: machine_sp_format=spieee_number
  INTEGER(INTG), PARAMETER :: machine_dp_format=dpieee_number
  INTEGER(INTG), PARAMETER :: integer_size=4
  INTEGER(INTG), PARAMETER :: short_integer_size=2
  INTEGER(INTG), PARAMETER :: long_integer_size=8
  INTEGER(INTG), PARAMETER :: single_real_size=4
  INTEGER(INTG), PARAMETER :: double_real_size=8
  INTEGER(INTG), PARAMETER :: character_size=1
  INTEGER(INTG), PARAMETER :: logical_size=4
  INTEGER(INTG), PARAMETER :: single_complex_size=8
  INTEGER(INTG), PARAMETER :: double_complex_size=16

END MODULE machine_constants