[포트란] 포트란 경로

소개글

응용 수치 해석 과목할때 포트란 실습 경로 입니다.. 참고 하시길..

목차

없음

본문내용

program roots
real x,eps,dxmax,root,f,dfdx
integer n,imax,mult
external f,dfdx
write(*,*) x
eps=1.0e-5
mult=4
imax=100
dxmax=1.0
call newton(x,eps,imax,dxmax,mult,root,f,dfdx,n)
stop
end

subroutine newton(x,eps,imax,dxmax,mult,root,f,dfdx,n)
real x,eps,dxmax,root,f,dfdx,df,dx
integer n,imax,mult
do 1 i=1,imax
df=dfdx(x)
if(df.eq.o.)then
write(*,*)i,x,f(x)
pause 'fatal error in newton'
return
endif

참고 자료

없음