ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/group/trunk/OOPSE/libmdtools/status_module.F90
(Generate patch)

Comparing trunk/OOPSE/libmdtools/status_module.F90 (file contents):
Revision 1237 by gezelter, Fri Jun 4 14:35:59 2004 UTC vs.
Revision 1239 by gezelter, Fri Jun 4 14:59:27 2004 UTC

# Line 22 | Line 22 | public :: statusMsgSize
22   public :: handleError
23   public :: handleWarning
24   public :: statusMsgSize
25 + public :: nullchar
26 + public :: newline
27 + public :: tab
28  
29   contains
30  
31    subroutine handleInfo(myRoutine, myMessage)
32 <    character(len=*), intent(inout) :: myRoutine
33 <    character(len=*), intent(inout) :: myMessage
32 >    character(len=*), intent(in) :: myRoutine
33 >    character(len=*), intent(in) :: myMessage
34    
35 <    painCave%errMsg = "ROUTINE:" // trim(myRoutine) // newline // &
35 >    painCave%errMsg = "Location: " // trim(myRoutine) // newline // &
36           tab // trim(myMessage) // newline // nullchar
37  
38      painCave%severity = OOPSE_INFO
# Line 43 | Line 46 | contains
46      character(len=*), intent(in) :: myRoutine
47      character(len=*), intent(in) :: myMessage
48  
49 <    painCave%errMsg = "ROUTINE:" // trim(myRoutine) // newline // &
49 >    painCave%errMsg = "Location: " // trim(myRoutine) // newline // &
50           tab // trim(myMessage) // newline // nullchar
51  
52      painCave%severity = OOPSE_ERROR
# Line 57 | Line 60 | contains
60      character(len=*), intent(in) :: myRoutine
61      character(len=*), intent(in) :: myMessage
62  
63 <    painCave%errMsg = "ROUTINE:" // trim(myRoutine) // newline // &
63 >    painCave%errMsg = "Location: " // trim(myRoutine) // newline // &
64           tab // trim(myMessage) // newline // nullchar
65  
66      painCave%severity = OOPSE_WARNING

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines