prevfldcount = int((prevfldsecs+0.5)/fldperiod) + 1
if (fldcount .ne. prevfldcount) then
integer prevfldcount
prevfldcount= int((prevfldsecs+0.5)/fldperiod) + 1
if (count0 .ne. prevfldcount) then
prevfldcount = int(prevfldsecs/fldperiod) + 1