fdds_prtmsg prints a message to
the printout file (if opened) or to the terminal (via stderr:).
It is always advisable to print back out what the program read in
for the user parameters. This will document what parameters the
program is using. If the user had any typo's, then this will reflect
a possible different value than expected. Also, most typo's will
result in a parameter definition not being read and should indicate
this at the end of the printout file. A typical printout of user
parameters may look something like:
ier=fdds_prtmsg('\n*** USER PARAMETERS ***\n\n\0')
ier=fdds_prtmsg('\tscale = %g\n\0',scale)
ier=fdds_prtmsg('\tnsout = %d\n\0',nsout)
ier=fdds_prtmsg('\tmute values:\0')
do i=1,n
ier=fdds_prtmsg(' %d\0',mute(i))
enddo
ier=fdds_prtmsg('\n\0')
ier=fdds_prtmsg('\tmode = %s\n\0',mode)
ier=fdds_prtmsg('\n\0')
if (mem .le. 0) then
ier=fdds_prterr('MEMORY ALLOCATED = %f MB\n\0', mem)
else
if (verbose) then
ier=fdds_prtcon('Memory allocated = %f MB\n\0', mem)
else
ier=fdds_prtmsg('Memory allocated = %f MB\n\0', mem)
endif
endif