machine_constants_vms.f90

Go to the documentation of this file.

MODULE machine_constants

  USE constants
  USE kinds
  
  IMPLICIT NONE

  !Machine constants
  INTEGER(INTG), PARAMETER :: machine_type=dec_computer
  INTEGER(INTG), PARAMETER :: machine_os=vms_os
  INTEGER(INTG), PARAMETER :: machine_endian=little_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

  CHARACTER(LEN=1), PARAMETER :: error_separator_constant=char(0)
  
END MODULE machine_constants