Open the file unit for writing

INTERFACE:

    subroutine init_ascii(fn,title,unit)
    IMPLICIT NONE

DESCRIPTION:

Opens a file giving in the output namelist and connects it with a unit number.

INPUT PARAMETERS:

    character(len=*), intent(in)        :: fn,title

INPUT/OUTPUT PARAMETERS:

    integer, intent(in)                 :: unit

REVISION HISTORY:

    Original author(s): Karsten Bolding & Hans Burchard
    See asciiout module