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