%N remext %F $MIR/src/subs/fullname.for
%D Remove the extension part of a filename
%P bpw
%: files
%B
      subroutine remext ( filename )
      character*(*)  filename

 This takes the filename and strips all characters after the last '.'.
 If no '.' occurs, the input remains unchanged.

  Input/Output:
    filename:    name of a file
