The TYPE statement is provided for compatibility and is equivalent to:
PRINT f [, iolist ]
PRINT grname
WRITE(*, f ) [ iolist ]
WRITE(*,grname )