精选优质文档-倾情为你奉上五点光滑法的fortran程序 program main use dflibparameter(i_m=40)integer ireal(kind=8)px(-1:i_m),py(-1:i_m)real(kind=8)xc(1:i_m-2),yc(1:i_m-2),xd(1:i_m-2),yd(1:i_m-2)real(kind=8)xa(1:i_m-2),ya(1:i_m-2),xb(1:i_m-2),yb(1:i_m-2)real(kind=8)K1(1:i_m-2),K2(1:i_m-2),K3(1:i_m-2),K4(1:i_m-2)real(kind=8)K5(1:i_m-1)real(kind=8)c1(1:i_m-2),c2(1:i_m-2),c3(1:i_m-2),c4(1:i_m-2)REALAA,BB,DD,EE,diffrealaaa(1:i_m