integer, parameter :: f_name_length = 256 !Size of file name