
,
may be on different PE(s) than

parameter (nx=20,p=4,ng=2)
real f(1:nx/p+2*ng)
real fdprime(1:nx/p+2*ng)
do i=(ng+1),(nx/p+2*ng),1
fdprime(i)= c0*(-f(i+2)+ 16*f(i+1)
30*f(i) + 16*f(i-1) -
f(i-2))
enddo
Generated with CERN WebMaker