!=======================================================================
!
!  PROGRAM  PHASE/0 2014.01 (rev.375)
!
!  "First-principles Electronic Structure Calculation Program"
!
!  MODULE: m_Const_Parameters
!
!  AUTHOR(S): T. Yamasaki and K. Mae   August/20/2003
!  
!  Contact address :  Phase System Consortium
!                     E-mail: phase_system@nims.go.jp URL https://azuma.nims.go.jp
!  
!
!
!=======================================================================
module m_ErrorMessages
! $Id: $
  implicit none

  integer,parameter :: NO_ERROR = 0
  integer,parameter :: EOF_REACHED  = 1103
  integer,parameter :: FILE_NOT_EXIST = 1200
  integer,parameter :: F_POT_FILE_NOT_EXIST = 1203
! ---
  integer,parameter :: FORMAT_ERROR = 1101
  integer,parameter :: len_format_error = 37
  character(len=len_format_error) :: msg_format_error = "Input data format error when reading."
!!$                                                      1234567890123456789012345678901234567  
! ---
  integer,parameter :: ERROR_IN_INPUTFILE_OPENING = 1208
  integer,parameter :: len_1208_error = 35
  character(len=len_1208_error) :: msg_1208_error     = "Error in opening of the inputfile: "
! ---
  integer,parameter :: len_6100_error = 29
  character(len=len_6100_error) :: msg_6100_error     = "A CPP defintion is not proper"
  integer,parameter :: CPP_DEFINE_ERROR_1 = 6101
  integer,parameter :: len_6101_error = 31
  character(len=len_6101_error) :: msg_6101_error     = "TRANSPOSE_WITHOUT_REARRANGEMENT"
!!$                                                      1234567890123456789012345678901234567  

contains
  subroutine m_EMsg_abort01()

  end subroutine m_EMsg_abort01
end module m_ErrorMessages
  
