--- trunk/OOPSE/libmdtools/status_module.F90	2004/06/04 14:35:59	1237
+++ trunk/OOPSE/libmdtools/status_module.F90	2004/06/04 14:59:27	1239
@@ -22,14 +22,17 @@ public :: statusMsgSize
 public :: handleError
 public :: handleWarning
 public :: statusMsgSize
+public :: nullchar
+public :: newline
+public :: tab
 
 contains
 
   subroutine handleInfo(myRoutine, myMessage)
-    character(len=*), intent(inout) :: myRoutine
-    character(len=*), intent(inout) :: myMessage
+    character(len=*), intent(in) :: myRoutine
+    character(len=*), intent(in) :: myMessage
    
-    painCave%errMsg = "ROUTINE:" // trim(myRoutine) // newline // &
+    painCave%errMsg = "Location: " // trim(myRoutine) // newline // &
          tab // trim(myMessage) // newline // nullchar
 
     painCave%severity = OOPSE_INFO
@@ -43,7 +46,7 @@ contains
     character(len=*), intent(in) :: myRoutine
     character(len=*), intent(in) :: myMessage
 
-    painCave%errMsg = "ROUTINE:" // trim(myRoutine) // newline // &
+    painCave%errMsg = "Location: " // trim(myRoutine) // newline // &
          tab // trim(myMessage) // newline // nullchar
 
     painCave%severity = OOPSE_ERROR
@@ -57,7 +60,7 @@ contains
     character(len=*), intent(in) :: myRoutine
     character(len=*), intent(in) :: myMessage
 
-    painCave%errMsg = "ROUTINE:" // trim(myRoutine) // newline // &
+    painCave%errMsg = "Location: " // trim(myRoutine) // newline // &
          tab // trim(myMessage) // newline // nullchar
 
     painCave%severity = OOPSE_WARNING