lanczos

[aaron]

I'm getting the following error message when trying to compile FDSim3D. Hope you can help.

mpif90 -Ofast -DUSE_MPI -DMPI2 -c inh_v_w_int_1.F90
mpif90 -Ofast -DUSE_MPI -DMPI2 -c inh_v_w_int_1_si.F90
mpif90 -Ofast -DUSE_MPI -DMPI2 -c inh_v_w_int_2nd.F90
mpif90 -Ofast -DUSE_MPI -DMPI2 -c inh_v_w_int_2nd_pml.F90
mpif90 -Ofast -DUSE_MPI -DMPI2 -c interpol.F90
mpif90 -Ofast -DUSE_MPI -DMPI2 -c lanczos.F90
lanczos.F90:23.117:

LLAN, X_MIN_DF, X_MAX_DF,
1
Error: Missing generic specification in USE statement at (1)
lanczos.F90:25.27:

Y_MIN_DF, Y_MAX_DF, &
1
Error: Unclassifiable statement at (1)
lanczos.F90:38.13:

ALLOCATE ( VARF1 ( X_MIN_DF-LLAN*REFINE:X_MAX_DF+LLAN*REFINE, &
1
Error: Allocate-object at (1) is neither a data pointer nor an allocatable variable
lanczos.F90:43.13:

ALLOCATE ( LANC ( -REF2:REF2, -REF2:REF2 ) )
1
Error: Allocate-object at (1) is neither a data pointer nor an allocatable variable
lanczos.F90:67.71:

LANC (I,K) = SINC_X * SINC_Y * SIN (PI*R) / (PI*R/REAL(LLAN))
1
Error: Unexpected STATEMENT FUNCTION statement at (1)
lanczos.F90:69.25:

LANC (I,K) = 1.
1
Error: Unexpected STATEMENT FUNCTION statement at (1)
lanczos.F90:72.23:

LANC (I,K) = 0.
1
Error: Unexpected STATEMENT FUNCTION statement at (1)
lanczos.F90:80.6:

LANC = LANC / SUMA
1
Error: 'lanc' at (1) is not a variable
lanczos.F90:41.13:

REF2 = LLAN*REFINE
1
Error: Symbol 'llan' at (1) has no IMPLICIT type
lanczos.F90:59.28:

SINC_X = SIN (PI*X) / PI / X
1
Error: Symbol 'pi' at (1) has no IMPLICIT type
lanczos.F90:41.6:

REF2 = LLAN*REFINE
1
Error: Symbol 'ref2' at (1) has no IMPLICIT type
lanczos.F90:75.24:

SUMA = SUMA + LANC(I,K)
1
Error: Function 'lanc' at (1) has no IMPLICIT type
make: *** [lanczos.o] Error 1

[Siavashpour]

I have the same error to. Is there any one who can help us?

[fdsim]

Dear aaron and Siavashpour,

there is a typo in lanczos.f90 at line 23:

is: USE AUXIL , ONLY: LANC, REF2, PI, LLAN, \
should be: USE AUXIL , ONLY: LANC, REF2, PI, LLAN, &

Hope it helps...

Regards,
Martin

[Siavashpour]

Dear Dr. Galis
Thank you for your great guidance.
Now it works and I am so happy.
Best regards,
Siavashpour