[Wien] Mixer: compilation error (IBM AIX Pwr5, XLF90)

[Sylvain Cristol]

Hi Ricardo

You just need to replace

if(memory .eq. 1)qlimit1=max(qlimit1,0.015)

by

if(memory .eq. 1)qlimit1=max(qlimit1,0.015D0)

in line 81 of LimitDMIX.F

and the compilation will go smoothly

Regards

Sylvain


Ricardo Faccio a écrit :
> Dear Wien users
>     I compiled successfully almost all the packages of the latest Wien2k. 
> The server is a IBM pwr5, AIX, XLF90, 64 bit.
>     The only problem appears in the SRC_mixer where the compilation stops 
> with this error:
> ################################################################################################
> xlf90  -q64 -O5 -qarch=pwr5 -qtune=pwr5 -qcache=auto -qstrict   -c -o 
> LimitDMIX.o LimitDMIX.F
> "LimitDMIX.F", line 81.54: 1513-041 (S) Arguments of the wrong type were 
> specified for the INTRINSIC procedure "max".
> #################################################################################################
> I guess the problem is related with argument type definition in the "max" 
> operation.
> Can someone tell me how to overcome this problem?
> Thanks in advance
> Best regards
> Ricardo
> -------------------------------------------------------------------------
> -----   Dr. Ricardo Faccio
> 
>   Mail: Cryssmat-Lab., Cátedra de Física, DETEMA
>   Facultad de Química, Universidad de la República
>        Av. Gral. Flores 2124, C.C. 1157
>        C.P. 11800, Montevideo, Uruguay.
>   E-mail: rfaccio at fq.edu.uy
>   Phone: 598 2 9241860 Int. 109
>              598 2 9290705
>   Fax:    598 2 9241906
>   Web:  http://cryssmat.fq.edu.uy/ricardo/ricardo.htm
> 
> _______________________________________________
> Wien mailing list
> Wien at zeus.theochem.tuwien.ac.at
> http://zeus.theochem.tuwien.ac.at/mailman/listinfo/wien
> 
> 

-- 

Sylvain Cristol
UCCS - Unité de Catalyse et de Chimie du Solide - UMR 8181
Université des Sciences et Technologies de Lille Bâtiment C3
59655 Villeneuve d'Ascq Cedex
France
Tel. +33(0)3.20.43.45.03 - Fax +33(0)3.20.43.65.61