Commit 5b50155f authored by kbk's avatar kbk
Browse files

default all is private

parent 2bfa85dd
!$Id: exceptions.F90,v 1.1 2005-04-25 07:55:49 kbk Exp $ !$Id: exceptions.F90,v 1.2 2005-04-25 09:26:57 kbk Exp $
#include "cppdefs.h" #include "cppdefs.h"
!----------------------------------------------------------------------- !-----------------------------------------------------------------------
!BOP !BOP
...@@ -18,7 +18,7 @@ ...@@ -18,7 +18,7 @@
! !USES: ! !USES:
IMPLICIT NONE IMPLICIT NONE
! !
! private private
! !
! !PUBLIC MEMBER FUNCTIONS: ! !PUBLIC MEMBER FUNCTIONS:
public getm_error,getm_warning public getm_error,getm_warning
...@@ -28,7 +28,10 @@ ...@@ -28,7 +28,10 @@
! Original author(s): Lars Umlauf ! Original author(s): Lars Umlauf
! !
! $Log: exceptions.F90,v $ ! $Log: exceptions.F90,v $
! Revision 1.1 2005-04-25 07:55:49 kbk ! Revision 1.2 2005-04-25 09:26:57 kbk
! default all is private
!
! Revision 1.1 2005/04/25 07:55:49 kbk
! use more general frame for error handling - Umlauf ! use more general frame for error handling - Umlauf
! !
! !
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment