integer function fdds_prtmsg(fmt, ...)
integer :: ier,offset
real :: angle
...
ier=fdds_prtmsg('offset = %i azimuth=%f\n\0',offset,angle)
fdds_openpr Open a printfile
fdds_savepr Redirect to printfile
fdds_prthdr Print header
fdds_sprintf Print to string
fdds_prtcon Print to console
fdds_prterr Print error message
fdds_errors Query errors
fdds_info Control printing
fdds_closepr Close printfile