pro MAKE_LIS_FILES, datedeb,datefin, nblocks = nblocks
if not(keyword_set(nblocks)) then nblocks = 1
for i=datedeb,datefin do begin
pFileList=make_file_list(i, 0l, i, 24l, level='k', /noemptyfiles)
if (ptr_valid(pFileList)) then begin
FileList=*pFileList
ptr_free, pFileList
fichier=FileList[0]
f = DELPATH(fichier)
faaaajjj = long(strmid(f,1,7))
path=EXTPATH(fichier)
path=strmid(path,0,strlen(path)-2)
nom=strtrim(long(i),2)
nomlis=path+'lis/'+nom+'.lis'
LISTE_COMP, i, 0, i, 24, nomlis, 0
print,nomlis
endif
endfor
spawn, [getenv('ROOT_RPWS') + '/pro/kronosdb/upsert.sh', '-l', 'lis', string(format='(I7)', datedeb), string(format='(I7)', datefin)], /NOSHELL
return
end