& filencbuffindex,
integer filencbuffindex
read(cunit) filencbuffindex
if (filencbuffindex .NE. cbuffindex) then
& filencbuffindex, cbuffindex