SUBROUTINE M3MESG( MESGTXT ) ENTRY M3PARAG( NMESG, MESGS ) ENTRY M3PROMPT( MESSAGE, ANSWER, ISTAT ) ENTRY M3FLUSH( IDEV ) CHARACTER*(*), INTENT(IN ) :: MESGTXT ! caller-supplied message INTEGER , INTENT(IN ) :: NMESG, IDEV CHARACTER*(*), INTENT(IN ) :: MESGS( NMESG ) CHARACTER*(*), INTENT( OUT) :: ANSWER INTEGER , INTENT( OUT) :: NMESG, ISTAT, IDEV
m3mesgc() is a C wrapper calling the Fortran M3MESG()
void m3mesgc( const char * mesgtxt ) ;
M3MESG()
LOGFILE
).
M3MSG2()
M3MESG()
which, in the case that
the LOGFILE
and standard output are distinct,
writes the same message to both.
M3PARAG
M3PROMPT
M3FLUSH
FLUSH()
-- needed for IBM XLF.
OpenMP thread-safe (when compiled with OpenMP enabled).
See also M3ERR() and m3errc() , M3EXIT() and m3exitc() , and M3WARN() and m3warnc() .
#include "iodecl3.h"
if called from C.
... USE M3UTILIO ... CALL M3MESG( 'Here is a message' ) ; ...
... #include "iodecl3.h" ... m3mesgc( "Here is a message" ) ; ...
To: Models-3/EDSS I/O API: The Help Pages