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