compiler won't take a function in one program but will in another. 1

[paul79]

Hi, I am having trouble compiling a program, it is telling me that it expects another right bracket but there are the correct number of brackets. The program is nm.f, it calls a function f.f and that is where the trouble is.

Here is the error

In file f.f:29

pred1= ((1+exp(-(x-q(j,0))/((q(j,0)**0.5)*w**0.5)))**-1.0)
1
Error: Expected a right parenthesis in expression at (1)

 

[xwb]

Is q a function or an array? Either way it has to be declared.

Minor note: xx ** -1.0 is the same as 1.0 / xx. The latter is a lot faster.

 

[paul79]

hi there, q is an array that is common and declared.

 

[xwb]

In the non working one, check whether you have common blocks, or functions called x, q, w, exp.

How is q declared? Is it something like q(0:10,0:20)

Also, if you're using F77, check that the last bracket hasn't gone over colum 72. My second program in Fortran had that problem and it took a very long time to work it out.

 

[paul79]

Thanks xwb, I didn't declare the array q in the original program that will use the function as a subroutine, therefore it was not recognizing q. Thank you so much! Oh, also before I have run into problems with running over column 72 before. Thanks again!