<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body bgcolor="#ffffff" text="#000000">
Now it gives me another error:<br>
<br>
<small>mpif90 -O3 -ftpp -D__FFTW -D__MPI -D__PARA -I../include
-I../../iotk/src -I../../Modules -I. -c cglib.f90<br>
<br>
real(DP) :: zmat( MAXVAL(descla(:)%nrlx), nudx, nspin ),
fmat( MAXVAL(descla(:)%nrlx), nudx, nspin ), fdiag( nx )<br>
^
<br>
openf95-870 openf90: ERROR CALCMT, File = cglib.f90, Line = 25,
Column = 25 <br>
The intrinsic call "MAXVAL" is not valid in a specification
expression.<br>
<br>
real(kind=DP) z0( MAXVAL(descla(:)%nrlx), nudx, nspin )<br>
^ <br>
openf95-870 openf90: ERROR ROTATE, File = cglib.f90, Line = 102,
Column = 28 <br>
The intrinsic call "MAXVAL" is not valid in a specification
expression.</small><br>
<br>
We have a machine with AMD interlagos processor and the vendor
recommend us to use this compiler Open64 from AMD.<br>
<br>
Thanks for your help!!<br>
Arturo<br>
<br>
El 05/06/12 10:49, Lorenzo Paulatto escribió:
<blockquote
cite="mid:CAG+GtJfTOgUjBS+3CEmtJsq3RiGux2KP6fqnHObMELALunDHHg@mail.gmail.com"
type="cite">
<div class="gmail_quote">On Tue, Jun 5, 2012 at 10:32 AM, Arturo <span
dir="ltr"><<a moz-do-not-send="true"
href="mailto:artginer@bifi.es" target="_blank">artginer@bifi.es</a>></span>
wrote:<br>
<blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt
0.8ex; border-left: 1px solid rgb(204, 204, 204);
padding-left: 1ex;">
real(dp), parameter :: fac = (1.d0/2.d0) *
1.d0/(3.d0*pi**2)**(1.d0/3.d0)<br>
^<br>
openf95-206 openf90: ERROR DO_RDG, File = elf.f90, Line = 203,
Column = 70<br>
The exponent in a constant initialization expression must be
type<br>
integer.<br>
<br>
How can I solve it?<br>
<br>
</blockquote>
<div><br>
</div>
<div>Open the file with a text editor and replace the
right-hand-side expression with its
result: 0.161620459673995d0</div>
<div><br>
</div>
<div>But, where did you find this compiler? And, I'm just
curious, why did you choose it? Are you sure it is reliable?</div>
<div><br>
</div>
<div>bests<br clear="all">
<div><br>
</div>
-- <br>
<div>Lorenzo Paulatto IdR @ IMPMC/CNRS & Université Paris
6</div>
<div>phone: +33 (0)1 44275 084 / skype: paulatz</div>
<div>www: <a moz-do-not-send="true"
href="http://www-int.impmc.upmc.fr/%7Epaulatto/"
target="_blank">http://www-int.impmc.upmc.fr/~paulatto/</a></div>
<div>mail: 23-24/4é16 Boîte courrier 115, 4 place Jussieu
75252 Paris Cédex 05</div>
<br>
<br>
<br>
</div>
</div>
<pre wrap="">
<fieldset class="mimeAttachmentHeader"></fieldset>
_______________________________________________
Pw_forum mailing list
<a class="moz-txt-link-abbreviated" href="mailto:Pw_forum@pwscf.org">Pw_forum@pwscf.org</a>
<a class="moz-txt-link-freetext" href="http://www.democritos.it/mailman/listinfo/pw_forum">http://www.democritos.it/mailman/listinfo/pw_forum</a>
</pre>
</blockquote>
<br>
<br>
<pre class="moz-signature" cols="72">--
Arturo Giner Gracia
HPC research group System Administrator
Instituto de Biocomputación y Física de Sistemas Complejos (BIFI)
Universidad de Zaragoza
e-mail: <a class="moz-txt-link-abbreviated" href="mailto:artginer@bifi.es">artginer@bifi.es</a>
phone: (+34) 976762992
</pre>
</body>
</html>