请问一下我的这个程序哪里处错误了
real xvalue(5000),yvalue(6000)
real coefsin(5000),coefcos(5000)
real ppsin ppcos
integer x
open(11,file='xyvalue1.dat',status='old')
do i=1,5000
   read(11,100)kk,xvalue,yvalue
end do
100   format(1x,5i,2f12.5)
      close(11)
open(13,file='new',status='unknown')
do i=1,5000
   yvalue=0.0
   do j=1,x
   yvalue(i)=yvalue+coefsin(j)*sin(i*xvalue(i))
     $   +coefcos(j)*cos(i*xvalue(i))
   write(13,101)x,coefsin(j),coefcos(j)
   end do
end do
101   format(1x,5i,2f12.5)
        
end
恳求大侠赐助