Fortran coding do loop

[luvbite38]

Can some1 kindly help me understand the following code, I am trying to translate the following code in VBA:

Thanks in advance

FFLC = FLC .......i understand this part
ANGLE=PI/6 !Suppose 30 Degrees .......i understand this part
Do 21800 I=i,5 .......Don't understand this
FLC=FFLC-COS(ANGLE)*NDIA
FLE=SQRT(FLB*FLB+FLC*FLC) .......i understand this part
21800 ANGLE=ATAN2(FLC,FLB).......i understand this part
if (R.NE.o.)D=R/2.+NDIA/2.......i understand this part
FLCUT = ........ .......i understand this part
LE=IFIX(FLE).......Don't understand this

My answer for FLCUT is 2387 when using the 30 degree angle but fortran result 2397 (after using the iteration which I dont understand)

Can someone please help me understand this please?

Regards
<!-- google_ad_section_end --><!-- / message -->

 

[energman58]

First loop says do for i = 1 to 10 incrementing by 1

Inside that loop is a second loop k= 5 to 1 incrementing by -1

N increments each time line 200 is reached - that is each time each loop is executed

So

10 loops each executing 5 loops = executes N=N+1 50 times: N=50

 

[energman58]

Note that there are at least 4 structures for do loops in VBA and there may be more I dont know about as i am no VBA expert. These loops are Do While, Do-Loop While and Do Until and Do-Loop Until and they all have different ways of treating the test condition - sometimes they test after executing the loop and sometimes before.

The Do-Loop While and Do-Loop Until ALWAYS execute the loop at least once - regardless of the condition - as they do the test on exit so you must be careful when you "translate" code from other languages to make sure you get the result you expect.

 

[luvbite38]

thanks mate :D..... you guys rock....