fortran中求M,N之间完全数的数目

键盘输入M,N，求出M,N之间完全数的个数？
请问我已经求出完全数都有哪些，但是怎么统计个数呢

integer::M,N,s,j,sum,i,cnt，下一行cnt = 0，在if (s==sum)后面写 then write(,)s cnt = cnt+1 end if