Hello,

I have a code:

30 COMMON /COR1/ RLI
31 C
32 DIMENSION ALR(360),DQ(180),XI1(180),XI12(180),B2(180),
33 1 T12(180),X12(180)
34 C
35 EXTERNAL CAPPA
36 VM(VA,E,LAMBDA,ALR)=(VA/E)*(1.+((E-1.)/2.)*(1.+1./LAMBDA-
37 1 COS(ALR)-(1./LAMBDA)+SQRT(1.-LAMBDA**2*SIN(ALR)*SIN(ALR/A))))

And errors:

Vibe_analysis.f:32.20:

DIMENSION ALR(360),DQ(180),XI1(180),XI12(180),B2(180),
1
Error: Argument 'alr' of statement function at (1) must be scalar
Vibe_analysis.f:36.9:

VM(VA,E,LAMBDA,ALR)=(VA/E)*(1.+((E-1.)/2.)*(1.+1./LAMBDA-
1
Error: Incompatible ranks 0 and 1 in assignment at (1)


How I can fix it?

Thank you

I don't know Fortran, but if it says the argument to the COS function must be scalar then it cannot be an array. And probably the same for SIN, too.

Update. Just looked it up for you: COS, SIN.

1 members found this post helpful.

Hello
You declared an array of 360 Elements
DIMENSION ALR(360)
Thus you have to specify the Element of the array
... cos(alr(I))..

wehre i is the Index of the array Element

Regards

Martin

1 members found this post helpful.