[Wien] *** compilation error in spag.f ***

[Fernando Sato]

Dear users and maintainers 

I trying to compile the wien2k on linux/debian machine with
intel8.0/mkl61/athlon but the compilation show some errors in subroutine
spag.f.

end compilation
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
.
.
.  
  SRC_sumpara/sumpara
  SRC_supercell/supercell
  SRC_symmetry/symmetry
  SRC_symmetso/symmetso
  SRC_telnes/telnes
  SRC_tetra/tetra
  SRC_txspec/txspec
  SRC_w2web/w2web
cp: `SRC_w2web/w2web' and `/home/gsonm/WIEN2k/w2web' are the same file

done.

Compile messages for each SRC_* directory can be found in the
file "compile.msg".

Compile time errors (if any) were:
SRC_spaghetti/compile.msg:fortcom: Error: spag.f, line 300: This
intrinsic procedure cannot be passed as an actual argument.   [SIZE]
SRC_spaghetti/compile.msg:make: *** [spag.o] Error 1



     Press RETURN to continue
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
The SRC_spaghetti/compile.msg


rm  -f reallocate.o modules.o bndind.o bz_lin.o cartco.o clipin.o 
comprel.o con_ev.o defins.o drawt.o  get_ei.o get_k.o inview.o movet.o 
pgrpnr.o pointi.o  psend.o  psinit.o spag.o seppt.o transt.o writln.o
writs.o  writz.o wrtdate.o reallocate.P modules.P bndind.P bz_lin.P
cartco.P clipin.P  comprel.P con_ev.P defins.P drawt.P  get_ei.P get_k.P
inview.P movet.P  pgrpnr.P pointi.P  psend.P  psinit.P spag.P seppt.P
transt.P writln.P writs.P  writz.P wrtdate.P modules.prj bndind.prj
bz_lin.prj cartco.prj clipin.prj  comprel.prj con_ev.prj defins.prj
drawt.prj  get_ei.prj get_k.prj inview.prj movet.prj  pgrpnr.prj
pointi.prj  psend.prj  psinit.prj spag.prj seppt.prj transt.prj
writln.prj writs.prj  writz.prj wrtdate.prj reallocate.prj \
	spaghetti.xref
ifort  -FR -mp -w -tpp6 -O2 -c reallocate.f
ifort  -FR -mp -w -tpp6 -O2 -c modules.f
ifort  -FR -mp -w -tpp6 -O2 -c bndind.f
ifort  -FR -mp -w -tpp6 -O2 -c bz_lin.f
ifort  -FR -mp -w -tpp6 -O2 -c cartco.f
ifort  -FR -mp -w -tpp6 -O2 -c clipin.f
ifort  -FR -mp -w -tpp6 -O2 -c comprel.f
ifort  -FR -mp -w -tpp6 -O2 -c con_ev.f
ifort  -FR -mp -w -tpp6 -O2 -c defins.f
ifort  -FR -mp -w -tpp6 -O2 -c drawt.f
ifort  -FR -mp -w -tpp6 -O2 -c get_ei.f
ifort  -FR -mp -w -tpp6 -O2 -c get_k.f
ifort  -FR -mp -w -tpp6 -O2 -c inview.f
ifort  -FR -mp -w -tpp6 -O2 -c movet.f
ifort  -FR -mp -w -tpp6 -O2 -c pgrpnr.f
ifort  -FR -mp -w -tpp6 -O2 -c pointi.f
ifort  -FR -mp -w -tpp6 -O2 -c psend.f
ifort  -FR -mp -w -tpp6 -O2 -c psinit.f
ifort  -FR -mp -w -tpp6 -O2 -c spag.f
fortcom: Error: spag.f, line 300: This intrinsic procedure cannot be
passed as an actual argument.   [SIZE]
           jatom,jatom_list,jtype,size,ticks,nticks) 
..................................^
compilation aborted for spag.f (code 1)
make: *** [spag.o] Error 1
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

If I use the other library the number of error increase. I have trying
compile the wien2k with mpich and scalapack, in this case I don't have
sucess too.
I have tested compile the wien2k with the other libraries (lapack,
scalapck, blacs, atlas). The most better result were with mkl61.
Exist scalapack library, blacs, and lapack pre-compiled for amd/athlon?

Thank's for your attention,

-- 
========================================================
Fernando Sato 
Depto Fisica Aplicada - Sala 19
Universidade Estadual de Campinas - Unicamp
Instituto de Física Gleb Wataghin - IFGW
Grupo de Sólidos Orgânicos e Novos Materiais - GSONM
htt://www.ifi.unicamp.br/gsonm
Campinas - SP - Brazil
CEP 13083-970 / Caixa Postal 6165
========================================================