OOPSE/libmdtools/status_module.F90

module status
  implicit none
  PRIVATE


  integer, parameter :: statusMsgSize = 1000
  character(len=1), parameter :: nullchar = char(0)
interface
   subroutine c_info(cMessage)
     character(len=*),intent(in) :: cMessage
   end subroutine c_info

end interface
interface
   subroutine c_warning(cMessage)
     character(len=*), intent(in) :: cMessage
   end subroutine c_warning

end interface
interface
   subroutine c_error(cMessage)
     character(len=*),intent(in) :: cMessage
   end subroutine c_error
end interface

public :: handleInfo
public :: handleError
public :: handleWarning
public :: statusMsgSize

contains


  subroutine handleInfo(myRoutine,myMessage)
    character(len=*), intent(inout) :: myRoutine
    character(len=*), intent(inout) :: myMessage
    character(len=len_trim(myRoutine) + len_trim(myMessage) + 10) :: cMessage
   

    cMessage = cMessage//"ROUTINE:"//trim(myRoutine)//trim(myMessage)//nullchar

    call c_info(cMessage)
  end subroutine handleInfo


  subroutine handleError(myRoutine,myMessage)
    character(len=*), intent(in) :: myRoutine
    character(len=*), intent(in) :: myMessage
    character(len=len_trim(myRoutine) + len_trim(myMessage) + 10) :: cMessage

    cMessage = cMessage//"ROUTINE:"//trim(myRoutine)//trim(myMessage)//nullchar

    call c_error(cMessage)
  end subroutine handleError


  subroutine handleWarning(myRoutine,myMessage)
    character(len=*), intent(in) :: myRoutine
    character(len=*), intent(in) :: myMessage
    character(len=len_trim(myRoutine) + len_trim(myMessage) + 22) :: cMessage

    cMessage = cMessage//"WARNING FROM ROUTINE: "//trim(myRoutine)//trim(myMessage)//nullchar

    call c_warning(cMessage)
  end subroutine handleWarning


end module status
Revision:	648
Committed:	Wed Jul 23 22:13:59 2003 UTC (20 years, 11 months ago) by chuckv
File size:	1753 byte(s)
Log Message:	Finished most code for eam....
#	User	Rev	Content
1	chuckv	632	module status
2			implicit none
3			PRIVATE
4
5
6	chuckv	648	integer, parameter :: statusMsgSize = 1000
7			character(len=1), parameter :: nullchar = char(0)
8	chuckv	632	interface
9			subroutine c_info(cMessage)
10			character(len=*),intent(in) :: cMessage
11			end subroutine c_info
12
13			end interface
14			interface
15			subroutine c_warning(cMessage)
16			character(len=*), intent(in) :: cMessage
17			end subroutine c_warning
18
19			end interface
20			interface
21			subroutine c_error(cMessage)
22			character(len=*),intent(in) :: cMessage
23			end subroutine c_error
24			end interface
25
26	chuckv	648	public :: handleInfo
27	chuckv	632	public :: handleError
28	chuckv	648	public :: handleWarning
29			public :: statusMsgSize
30	chuckv	632
31			contains
32
33
34	chuckv	648	subroutine handleInfo(myRoutine,myMessage)
35	chuckv	632	character(len=*), intent(inout) :: myRoutine
36			character(len=*), intent(inout) :: myMessage
37			character(len=len_trim(myRoutine) + len_trim(myMessage) + 10) :: cMessage
38
39
40	chuckv	648	cMessage = cMessage//"ROUTINE:"//trim(myRoutine)//trim(myMessage)//nullchar
41	chuckv	632
42			call c_info(cMessage)
43	chuckv	648	end subroutine handleInfo
44	chuckv	632
45
46			subroutine handleError(myRoutine,myMessage)
47			character(len=*), intent(in) :: myRoutine
48			character(len=*), intent(in) :: myMessage
49			character(len=len_trim(myRoutine) + len_trim(myMessage) + 10) :: cMessage
50
51	chuckv	648	cMessage = cMessage//"ROUTINE:"//trim(myRoutine)//trim(myMessage)//nullchar
52	chuckv	632
53			call c_error(cMessage)
54			end subroutine handleError
55
56
57
58
59
60	chuckv	648	subroutine handleWarning(myRoutine,myMessage)
61	chuckv	632	character(len=*), intent(in) :: myRoutine
62			character(len=*), intent(in) :: myMessage
63	chuckv	648	character(len=len_trim(myRoutine) + len_trim(myMessage) + 22) :: cMessage
64	chuckv	632
65	chuckv	648	cMessage = cMessage//"WARNING FROM ROUTINE: "//trim(myRoutine)//trim(myMessage)//nullchar
66	chuckv	632
67			call c_warning(cMessage)
68	chuckv	648	end subroutine handleWarning
69	chuckv	632
70
71
72
73
74
75
76
77
78
79			end module status