module work

integer, parameter :: n_ext =6

character(260) fname(20)

integer no_of_files

END
