The argument of statement function must be scalar - fortran

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