src/utils/status.F90

!!
!! Copyright (c) 2005 The University of Notre Dame. All Rights Reserved.
!!
!! The University of Notre Dame grants you ("Licensee") a
!! non-exclusive, royalty free, license to use, modify and
!! redistribute this software in source and binary code form, provided
!! that the following conditions are met:
!!
!! 1. Redistributions of source code must retain the above copyright
!!    notice, this list of conditions and the following disclaimer.
!!
!! 2. Redistributions in binary form must reproduce the above copyright
!!    notice, this list of conditions and the following disclaimer in the
!!    documentation and/or other materials provided with the
!!    distribution.
!!
!! This software is provided "AS IS," without a warranty of any
!! kind. All express or implied conditions, representations and
!! warranties, including any implied warranty of merchantability,
!! fitness for a particular purpose or non-infringement, are hereby
!! excluded.  The University of Notre Dame and its licensors shall not
!! be liable for any damages suffered by licensee as a result of
!! using, modifying or distributing the software or its
!! derivatives. In no event will the University of Notre Dame or its
!! licensors be liable for any lost revenue, profit or data, or for
!! direct, indirect, special, consequential, incidental or punitive
!! damages, however caused and regardless of the theory of liability,
!! arising out of the use of or inability to use software, even if the
!! University of Notre Dame has been advised of the possibility of
!! such damages.
!!
!! SUPPORT OPEN SCIENCE!  If you use OpenMD or its source code in your
!! research, please cite the appropriate papers when you publish your
!! work.  Good starting points are:
!!                                                                      
!! [1]  Meineke, et al., J. Comp. Chem. 26, 252-271 (2005).             
!! [2]  Fennell & Gezelter, J. Chem. Phys. 124, 234104 (2006).          
!! [3]  Sun, Lin & Gezelter, J. Chem. Phys. 128, 24107 (2008).          
!! [4]  Vardeman & Gezelter, in progress (2009).
!!

module status
  implicit none
  PRIVATE

#define __FORTRAN90
#include "simError.h"

  character(len=1), parameter :: nullchar = char(0)
  character(len=1), parameter :: newline = char(10)
  character(len=1), parameter :: tab = char(9)
  INTEGER, PARAMETER:: statusMsgSize = MAX_SIM_ERROR_MSG_LENGTH 

!!$interface
!!$   
!!$   subroutine c_simError(painCave)
!!$     type(errorStruct), pointer :: painCave
!!$   end subroutine c_simError
!!$
!!$end interface

  public :: handleInfo
  public :: handleError
  public :: handleWarning
  public :: statusMsgSize
  public :: nullchar
  public :: newline
  public :: tab

contains

  subroutine handleInfo(myRoutine, myMessage)
    character(len=*), intent(in) :: myRoutine
    character(len=*), intent(in) :: myMessage

    painCave%errMsg = "Location: " // trim(myRoutine) // newline // &
         tab // trim(myMessage) // newline // nullchar

    painCave%severity = OPENMD_INFO
    painCave%isFatal = .false.

    call c_simError(painCave)
  end subroutine handleInfo


  subroutine handleError(myRoutine, myMessage)
    character(len=*), intent(in) :: myRoutine
    character(len=*), intent(in) :: myMessage

    painCave%errMsg = "Location: " // trim(myRoutine) // newline // &
         tab // trim(myMessage) // newline // nullchar

    painCave%severity = OPENMD_ERROR
    painCave%isFatal = .true.

    call c_simError(painCave)

  end subroutine handleError

  subroutine handleWarning(myRoutine, myMessage)
    character(len=*), intent(in) :: myRoutine
    character(len=*), intent(in) :: myMessage

    painCave%errMsg = "Location: " // trim(myRoutine) // newline // &
         tab // trim(myMessage) // newline // nullchar

    painCave%severity = OPENMD_WARNING
    painCave%isFatal = .false.

    call c_simError(painCave)

  end subroutine handleWarning

end module status
Revision:	1390
Committed:	Wed Nov 25 20:02:06 2009 UTC (15 years, 11 months ago) by gezelter
File size:	3926 byte(s)
Log Message:	Almost all of the changes necessary to create OpenMD out of our old project (OOPSE-4)
#	User	Rev	Content
1	gezelter	246	!!
2			!! Copyright (c) 2005 The University of Notre Dame. All Rights Reserved.
3			!!
4			!! The University of Notre Dame grants you ("Licensee") a
5			!! non-exclusive, royalty free, license to use, modify and
6			!! redistribute this software in source and binary code form, provided
7			!! that the following conditions are met:
8			!!
9	gezelter	1390	!! 1. Redistributions of source code must retain the above copyright
10	gezelter	246	!! notice, this list of conditions and the following disclaimer.
11			!!
12	gezelter	1390	!! 2. Redistributions in binary form must reproduce the above copyright
13	gezelter	246	!! notice, this list of conditions and the following disclaimer in the
14			!! documentation and/or other materials provided with the
15			!! distribution.
16			!!
17			!! This software is provided "AS IS," without a warranty of any
18			!! kind. All express or implied conditions, representations and
19			!! warranties, including any implied warranty of merchantability,
20			!! fitness for a particular purpose or non-infringement, are hereby
21			!! excluded. The University of Notre Dame and its licensors shall not
22			!! be liable for any damages suffered by licensee as a result of
23			!! using, modifying or distributing the software or its
24			!! derivatives. In no event will the University of Notre Dame or its
25			!! licensors be liable for any lost revenue, profit or data, or for
26			!! direct, indirect, special, consequential, incidental or punitive
27			!! damages, however caused and regardless of the theory of liability,
28			!! arising out of the use of or inability to use software, even if the
29			!! University of Notre Dame has been advised of the possibility of
30			!! such damages.
31			!!
32	gezelter	1390	!! SUPPORT OPEN SCIENCE! If you use OpenMD or its source code in your
33			!! research, please cite the appropriate papers when you publish your
34			!! work. Good starting points are:
35			!!
36			!! [1] Meineke, et al., J. Comp. Chem. 26, 252-271 (2005).
37			!! [2] Fennell & Gezelter, J. Chem. Phys. 124, 234104 (2006).
38			!! [3] Sun, Lin & Gezelter, J. Chem. Phys. 128, 24107 (2008).
39			!! [4] Vardeman & Gezelter, in progress (2009).
40			!!
41	gezelter	246
42	gezelter	119	module status
43			implicit none
44			PRIVATE
45
46			#define __FORTRAN90
47			#include "simError.h"
48
49			character(len=1), parameter :: nullchar = char(0)
50			character(len=1), parameter :: newline = char(10)
51			character(len=1), parameter :: tab = char(9)
52			INTEGER, PARAMETER:: statusMsgSize = MAX_SIM_ERROR_MSG_LENGTH
53
54			!!$interface
55			!!$
56			!!$ subroutine c_simError(painCave)
57			!!$ type(errorStruct), pointer :: painCave
58			!!$ end subroutine c_simError
59			!!$
60			!!$end interface
61
62	gezelter	507	public :: handleInfo
63			public :: handleError
64			public :: handleWarning
65			public :: statusMsgSize
66			public :: nullchar
67			public :: newline
68			public :: tab
69	gezelter	119
70			contains
71
72			subroutine handleInfo(myRoutine, myMessage)
73			character(len=*), intent(in) :: myRoutine
74			character(len=*), intent(in) :: myMessage
75	gezelter	507
76	gezelter	119	painCave%errMsg = "Location: " // trim(myRoutine) // newline // &
77			tab // trim(myMessage) // newline // nullchar
78
79	gezelter	1390	painCave%severity = OPENMD_INFO
80	gezelter	119	painCave%isFatal = .false.
81
82			call c_simError(painCave)
83			end subroutine handleInfo
84
85
86			subroutine handleError(myRoutine, myMessage)
87			character(len=*), intent(in) :: myRoutine
88			character(len=*), intent(in) :: myMessage
89
90			painCave%errMsg = "Location: " // trim(myRoutine) // newline // &
91			tab // trim(myMessage) // newline // nullchar
92
93	gezelter	1390	painCave%severity = OPENMD_ERROR
94	gezelter	119	painCave%isFatal = .true.
95
96			call c_simError(painCave)
97	gezelter	507
98	gezelter	119	end subroutine handleError
99
100			subroutine handleWarning(myRoutine, myMessage)
101			character(len=*), intent(in) :: myRoutine
102			character(len=*), intent(in) :: myMessage
103
104			painCave%errMsg = "Location: " // trim(myRoutine) // newline // &
105			tab // trim(myMessage) // newline // nullchar
106
107	gezelter	1390	painCave%severity = OPENMD_WARNING
108	gezelter	119	painCave%isFatal = .false.
109
110			call c_simError(painCave)
111
112			end subroutine handleWarning
113	gezelter	507
114	gezelter	119	end module status