write(EXT,'(i5)') it fname = trim(NAME) name = trim(FNAME) // '.' // adjustl(ext) print *, 'name = ', name