fortran coding

[luvbite38]

what does NCCH mean and what does it do?

I have a following code and I am trying to understand what NCCH is doing in this code?

if FLA gt 2 goto 240
.
.
.
.
240 NCCH = "2 "

thanks in advance

 

[VoG]

It is just the name of a variable.

 

[luvbite38]

Thanks VoG

In the following code what part NCCH is playing?
if (FLA GT 2 *(FLB+NDIA) GO TO 25000
E1 = FLA+FLB
Theta = COS (E1)
ANGLE = 2*THETA
FLC = FLB+NDIA
FLCUT = FLA+NDIA/2*ANGLE
Return
25000 NCCH = "2 "
Return

what I am trying to understand what would happen if FLA is not greater than 2 *(FLB+NDIA)??

please help

Thanks

 

[VoG]

In that case, the following runs

E1 = FLA+FLB
Theta = COS (E1)
ANGLE = 2*THETA
FLC = FLB+NDIA
FLCUT = FLA+NDIA/2*ANGLE

then the code returns to the calling routine without assigning a value to NCCH,

 

[luvbite38]

thanks alot, pls accept my apology in advance as I am totally new to fortran.

if FLA is not GT than xx
it will run the above stated but if the FLA is GT than xx what will happen than?

 

[VoG]

In that case the code that I posted does NOT run but this runs instead

25000 NCCH = "2 "

 

[luvbite38]

thanks once again

Basically, program is utilsing above code to calculate the FLCUT

and I am trying to understand what would NCCH = 2 will do in above case??

Am I right to say my answer will be FLCUT = 2? (i doubt it tho)

 

[VoG]

We would need to see all of the code to tell you that.

What is strange is that NCCH = "2" is setting NCCH to be the character 2 (text value), not a number.

 

[luvbite38]

I am afraid this is the entire code.....

 

[VoG]

It can't be the entire code. In any case if that is the bulk of the code then if the GT comparison is true then no value is assigned to FLCUT.