Formatting a value

Dear Silverfrost Community: Can someone format a numerical value so that it is in the form of the U.S. currency (dollars and cents)? Thank you. 😃

Program dollars_cents
Character(Len=16) :: c
Real :: v

Read (Unit=*, Fmt=*) v
Write (Unit=c, Fmt='(F16.2)') v
c = '$' // Adjustl(c)
Print *, c
End Program dollars_cents

Write (*, Fmt='(' $',f0.2)') v

You could also search for Business Editing in FTN95.chm