derivative:
real f(1:nx),fdprime(1:nx)
!HPF DISTRUBITE f(BLOCK)
!HPF DISTRUBITE fdprime(BLOCK)
fdprime(3:nx-2) = c0*(-f(5:nx) +
16*f(4:nx-1) -
30*f(3:nx-2) +
16*f(2:nx-3) -
f(1:nx-4))
Generated with CERN WebMaker