帮忙看看哪里有问题

Program main4
integer n
real *8 sum,p
real *8 NUM(1000)
INTEGER C
PARAMETER ( C = 10 )
OPEN ( UNIT = C, FILE = 'file.txt',
$ STATUS = 'OLD', FORM = 'UNFORMATTED' )
READ ( C ) NUM
p=sum(NUM)/size(NUM)
CLOSE ( UNIT = C )
write(*,*) '得到的总数',sum(NUM)
write(*,*) '求得的平均值',p
end