SUBROUTINE HISTON

 HISTON controls the output to the metafile. The metafile MUST have been previously initialized to re-enable output.

CALL HISTON (I)

l     (I): action flag
           = -1 : disable output to metafile
           = +1 : enable output to metafile