character *(*) blockname integer*4 ierr ierr=threp(blockname,filename) ierr=threpa(blockname,filename)
The threp will copy the text contained in the specified block into
the specified output file, replacing strings insides of braces ({}) with
the expressions contained within them. The routine threpa is
identical except that the report is appended to the specified file, rather
than overwriting it.