6.7 TRUNCATE_FILE: truncate a file

      subroutine truncate_file(ifil,name,ni)

Truncates the file ifil, copying record extensions as appropriate.

${\tt ni}=0$

file is truncated before record name

${\tt ni}>0$

file is truncated after ni'th record