--- trunk/OOPSE/libmdtools/status_module.F90	2003/07/17 19:29:09	632
+++ trunk/OOPSE/libmdtools/status_module.F90	2003/07/23 22:13:59	648
@@ -3,7 +3,8 @@ module status
   PRIVATE
 
 
-  character(len=1), parameter :: null = char(0)
+  integer, parameter :: statusMsgSize = 1000
+  character(len=1), parameter :: nullchar = char(0)
 interface
    subroutine c_info(cMessage)
      character(len=*),intent(in) :: cMessage
@@ -22,24 +23,24 @@ public :: info
    end subroutine c_error
 end interface
 
-public :: info
+public :: handleInfo
 public :: handleError
-public :: warning
+public :: handleWarning
+public :: statusMsgSize
 
-
 contains
 
 
-  subroutine info(myRoutine,myMessage)
+  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)//null
+    cMessage = cMessage//"ROUTINE:"//trim(myRoutine)//trim(myMessage)//nullchar
 
     call c_info(cMessage)
-  end subroutine info
+  end subroutine handleInfo
 
 
   subroutine handleError(myRoutine,myMessage)
@@ -47,7 +48,7 @@ contains
     character(len=*), intent(in) :: myMessage
     character(len=len_trim(myRoutine) + len_trim(myMessage) + 10) :: cMessage
 
-    cMessage = cMessage//"ROUTINE:"//trim(myRoutine)//trim(myMessage)//null
+    cMessage = cMessage//"ROUTINE:"//trim(myRoutine)//trim(myMessage)//nullchar
 
     call c_error(cMessage)
   end subroutine handleError
@@ -56,15 +57,15 @@ contains
 
 
 
-  subroutine warning(myRoutine,myMessage)
+  subroutine handleWarning(myRoutine,myMessage)
     character(len=*), intent(in) :: myRoutine
     character(len=*), intent(in) :: myMessage
-    character(len=len_trim(myRoutine) + len_trim(myMessage) + 10) :: cMessage
+    character(len=len_trim(myRoutine) + len_trim(myMessage) + 22) :: cMessage
 
-    cMessage = cMessage//"ROUTINE:"//trim(myRoutine)//trim(myMessage)//null
+    cMessage = cMessage//"WARNING FROM ROUTINE: "//trim(myRoutine)//trim(myMessage)//nullchar
 
     call c_warning(cMessage)
-  end subroutine warning
+  end subroutine handleWarning