here is the code..please help



!hello..this is a questions of newton iteration
!in this i need to generate the first 10 roots of the given equation F=theeta*(1/(1-(a*h/sigma)))

!as you can see that the equation is a function of theeta and i also been given an equation for theeta

! theeta=(1-1/(((n-0.5)**2)*(3.142**2)*(k**2)))*3.142*(n-0.5)

!annd now you can see that theeta is a function of n..that is the number of roots..for for the first root.i have n=1 and so on..10

!also i need to have the derivative of the function because it will be needed for the newton iteration

!DF=1/(cos(theeta**2)) as u c that it depends on theeta as well

! so u see that i need to have the roots(theeta) for each value of n..and all these values of rooots need to be stored in an array

!then having done all this..these values of roots will be needed to calculate the values of the fnal equation which i have ommited for now

! i have made three function subprograms for these equations that i have mentioned.and this subroutine..but i am getting errors and warnings

!please make corrections and add comments for identification so that i can know my mistakes




PROGRAM NEWTON

real theeta(10),f(100),df(100),eps

theeta(1)=0.1
EPS=0.00001

CALL NEWT(theeta,X,EPS)
STOP
END

!-------------------------------------------------!

SUBROUTINE NEWT(theeta,X,EPS)
real theeta(10),f(100),df(100)



integer L

do L=1,10

X=theeta(L)-(F(theeta(L))/DF(theeta(L)))




DO WHILE(ABS(X-theeta(L)) .GT. EPS)
theeta(L)=X
X=theeta(L)-(F(theeta(L))/DF(theeta(L)))
END DO
end do

RETURN
END




!--------------------------------

function theeta(n)

integer n(10)

real k,a,h,sigma,theeta
dimension theeta(10)

a=0.1
h=23.0
sigma=46.0


k=1-(a*h/sigma)

do i=1,10

theeta(i)=(1-1/(((i-0.5)**2)*(3.142**2)*(k**2)))*3.142*(i-0.5)


end do



return

end

!-------------------------------------------------------------------------


FUNCTION F(theeta)

real a,h,sigma,f(9),theeta(9)

integer m

a=0.1
h=23.0
sigma=46.0




do m=2,10

F(m)=theeta(m)*(1/(1-(a*h/sigma)))
enddo


WRITE(6,10)theeta,F
10 FORMAT(22X,F16.7,4X,F16.7)
RETURN
END

!-------------

FUNCTION DF(theeta)
real df(9),theeta(9)

integer j

do j=2,10

DF(j)=1/(cos(theeta(j)**2))

end do

RETURN
END

Please use the CODE tags when posting code, plus it would be helpful if you state which language your question is about -preferably in the thread title.

sir i am very sorry...please teach me how to use tags...i am unaware of them..secondly...this is fortran programming..please help

At the end of your code put this: [/CODE]
At the start of your code put this: [CODE]
I can't show you with the CODE tag first because then the forum software thinks I am inserting code and the examp,etags disappear. You can edit your original post and insert those tags so that it will be easier to read. I haven't had good luck in the past editing the title of my threads, but maybe that has changed. If you can edit the title put [FORTRAN] in there so any FORTRAN gurus can easily see what language you are working in.

gnashly: you can demonstrate the use of code tags thusly:
[NOPARSE][CODE]#define SOMECODE 1[/CODE][/NOPARSE],
and then it just shows up as
[CODE]#define SOMECODE 1[/CODE]

See also the link in my sig for help on posting with tags.
--- rod.

heres the new thread i have made.with all due corrections you suggested

http://www.linuxquestions.org/questi...15#post4560315

Except that:mamatu, please just edit your post in this thread, your new one's likely to be locked.

Not sure where you get that. Everything works for me. Perhaps a bug report is in order...
Sorry to take this off-topic.

--- rod.

jeremy was already PMed and fixed it before you posted
This still doesn't seem to have bought the OP time to edit their post.

its urgent plss

Please follow the discussion here:

http://www.linuxquestions.org/questi...-arays-920935/