<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
</head>
<body>
<p>Thanks, you are correct in this case about .eq. being the proper
choice.</p>
<p>Today, I did an upgrade from Ubuntu 18.04 LTS to the April 2020
release of Ubuntu 20.04 LTS [1].</p>
<p>I was able to compile WIEN2k 19.2 using the stable gfortran 9.3.0
of Ubuntu 20.04 LTS successfully.<br>
</p>
<p>Since it is easy to install the developmental gfortran 10 [2]
using "sudo apt install gfortran-10" in Ubuntu 20.04 LTS, I
compiled the tetra program with that and it worked fine too as
seen below. Something that I have noticed is that in my
compile.msg for SRC_tetra I have "<font color="#008000"><font
color="#ff00ff">76</font> | DO 30 K=1,KMAX</font>" for a
warning that does not affect the compile but in the compile.msg at
[3] that Dr. Elumalai sent there is "<font color="#ff0000">73</font>
| DO 30 K=1,KMAX" that seems to suggest the same warning
occurred at different line numbers of <font color="#ff00ff">76</font>
and <font color="#ff0000">73</font>, respectively. Thus,
SRC_tetra/ados.f file the Dr. Elumalai has is most likely
different from the one I'm using. I'm using the original file
that is part of WIEN2k_19.2.tar that I got today from the Code
download [4] area of the WIEN2k website.<br>
</p>
<p>Of note, the full WIEN2k 19.2 compiled successfully with gfortran
10, but the -fallow-invalid-boz and -fallow-argument-mismatch [5]
compiler options [6] were needed to compile some of the modules.<br>
</p>
[1] <a class="moz-txt-link-freetext"
href="https://ubuntu.com/tutorials/tutorial-upgrading-ubuntu-desktop#1-before-you-start">https://ubuntu.com/tutorials/tutorial-upgrading-ubuntu-desktop#1-before-you-start</a><br>
[2]
<a class="moz-txt-link-freetext" href="https://gcc.gnu.org/wiki/GFortran/News#gfortran_10_.28current_development_version.29">https://gcc.gnu.org/wiki/GFortran/News#gfortran_10_.28current_development_version.29</a><br>
[3]
<a class="moz-txt-link-freetext" href="https://www.mail-archive.com/wien@zeus.theochem.tuwien.ac.at/msg20025.html">https://www.mail-archive.com/wien@zeus.theochem.tuwien.ac.at/msg20025.html</a><br>
[4] <a class="moz-txt-link-freetext" href="http://www.wien2k.at/reg_user/index.html">http://www.wien2k.at/reg_user/index.html</a><br>
[5] <a class="moz-txt-link-freetext" href="https://github.com/Unidata/netcdf-fortran/issues/212">https://github.com/Unidata/netcdf-fortran/issues/212</a><br>
[6]
<a class="moz-txt-link-freetext" href="https://gcc.gnu.org/onlinedocs/gcc-10.1.0/gfortran/Fortran-Dialect-Options.html#Fortran-Dialect-Options">https://gcc.gnu.org/onlinedocs/gcc-10.1.0/gfortran/Fortran-Dialect-Options.html#Fortran-Dialect-Options</a>
<br>
<p>username@computername:~/WIEN2k$ lsb_release -a<br>
No LSB modules are available.<br>
Distributor ID: Ubuntu<br>
Description: Ubuntu 20.04 LTS<br>
Release: 20.04<br>
Codename: focal<br>
username@computername:~/WIEN2k$ gfortran-10 -v<br>
...<br>
gcc version 10.0.1 20200411 (experimental) [master revision
bb87d5cc77d:75961caccb7:f883c46b4877f637e0fa5025b4d6b5c9040ec566]
(Ubuntu 10-20200411-0ubuntu1) <br>
...<br>
username@computername:~/WIEN2k$ ./siteconfig<br>
...<br>
Selection: R<br>
...<br>
Selection: S<br>
Which program to recompile? tetra<br>
...<br>
SRC_tetra ...<br>
...<br>
gfortran-10 -ffree-form -O2 -ftree-vectorize -march=native
-ffree-line-length-none -ffpe-summary=none -fallow-invalid-boz
-fallow-argument-mismatch -c ados.f<br>
ados.f:76:30:<br>
<br>
<font color="#ff0000"> <font color="#008000"><font
color="#ff00ff">76</font> | DO 30 K=1,KMAX</font></font><br>
| 1<br>
Warning: Fortran 2018 deleted feature: Shared DO termination label
30 at (1)<br>
ados.f:86:72:<br>
<br>
86 | 10 F(I,KP)=FC(I,KPP,JJ)<br>
|
1<br>
Warning: Fortran 2018 deleted feature: DO termination statement
which is not END DO or CONTINUE with label 10 at (1)<br>
ados.f:87:24:<br>
<br>
87 | 20 D(KP)=EBS(KPP,JJ)<br>
| 1<br>
Warning: Fortran 2018 deleted feature: DO termination statement
which is not END DO or CONTINUE with label 20 at (1)<br>
...<br>
Compile time errors (if any) were:<br>
<br>
<br>
Check file compile.msg in the corresponding SRC_* directory
for the <br>
compilation log and more info on any compilation problem.<br>
</p>
<div class="moz-cite-prefix">On 5/9/2020 9:18 AM, Peter Blaha wrote:<br>
</div>
<blockquote type="cite"
cite="mid:9c4bbf4d-54d8-e167-c5e4-1b1ec7afd8fa@theochem.tuwien.ac.at">This
is an if between 2 integers and for that .eq. is the proper
choice.
<br>
<br>
Only for comparison of logical variables some "clever" informatic
guys have invented .eqv. instead of the old f77 standard.
<br>
<br>
<blockquote type="cite">Another possibility is that the .eq. in
the if statement is problematic. It's a little surprising that
it even compiles as usually the .eq. works fine for ifort but
does not work for gfortran. For both ifort and gfortran to
work, we have been having to change .eq. to .eqv.:
<br>
<br>
<a class="moz-txt-link-freetext" href="https://www.mail-archive.com/wien@zeus.theochem.tuwien.ac.at/msg18770.html">https://www.mail-archive.com/wien@zeus.theochem.tuwien.ac.at/msg18770.html</a>
<br>
<a class="moz-txt-link-freetext" href="https://www.mail-archive.com/wien@zeus.theochem.tuwien.ac.at/msg11545.html">https://www.mail-archive.com/wien@zeus.theochem.tuwien.ac.at/msg11545.html</a>
<br>
<a class="moz-txt-link-freetext" href="https://www.mail-archive.com/wien@zeus.theochem.tuwien.ac.at/msg18762.html">https://www.mail-archive.com/wien@zeus.theochem.tuwien.ac.at/msg18762.html</a>
<br>
<br>
The information at the following links might be of interest:
<br>
<br>
<a class="moz-txt-link-freetext" href="https://www.mail-archive.com/wien@zeus.theochem.tuwien.ac.at/msg18767.html">https://www.mail-archive.com/wien@zeus.theochem.tuwien.ac.at/msg18767.html</a>
<br>
<a class="moz-txt-link-freetext" href="https://gcc.gnu.org/onlinedocs/gcc-3.4.6/g77/Equivalence-Versus-Equality.html#Equivalence-Versus-Equality">https://gcc.gnu.org/onlinedocs/gcc-3.4.6/g77/Equivalence-Versus-Equality.html#Equivalence-Versus-Equality</a>
<br>
<a class="moz-txt-link-freetext" href="https://gcc.gnu.org/onlinedocs/gcc-10.1.0/gfortran/Bitwise-logical-operators.html#Bitwise-logical-operators">https://gcc.gnu.org/onlinedocs/gcc-10.1.0/gfortran/Bitwise-logical-operators.html#Bitwise-logical-operators</a>
<br>
<br>
On 5/9/2020 3:34 AM, Tran, Fabien wrote:
<br>
<blockquote type="cite">If the suggestion of P. Blaha does not
help, remove "doit= .true." and rewrite it manually. Maybe
there is some hidden character which perturbs the line.
<br>
<br>
________________________________________
<br>
From: Wien<a class="moz-txt-link-rfc2396E" href="mailto:wien-bounces@zeus.theochem.tuwien.ac.at"><wien-bounces@zeus.theochem.tuwien.ac.at></a> on
behalf of Peter Blaha<a class="moz-txt-link-rfc2396E" href="mailto:pblaha@theochem.tuwien.ac.at"><pblaha@theochem.tuwien.ac.at></a>
<br>
Sent: Saturday, May 9, 2020 8:57 AM
<br>
<a class="moz-txt-link-abbreviated" href="mailto:To:wien@zeus.theochem.tuwien.ac.at">To:wien@zeus.theochem.tuwien.ac.at</a>
<br>
Subject: Re: [Wien] compilation error - reg
<br>
<br>
Which version of gfortran are you using ?
<br>
<br>
Maybe the newest gfortran is "buggy" or is using some newest
fortran
<br>
standard which has eliminated the default types of fortran.
<br>
<br>
My gfortran-8 compiles this without problem.
<br>
<br>
The offending statement:
<br>
<br>
ados.f:79:48:
<br>
<br>
79 | if(kpp.eq.kselect.and.kselect.gt.0) doit=
.true.
<br>
| 1
<br>
Error: Cannot convert LOGICAL(4) to REAL(4) at (1)
<br>
<br>
looks innocent to me. kpp and kselect are by default integers.
<br>
Maybe you can switch-off the 2018 standard somewhere, or try
to enclose
<br>
the 2 parts of the if with further brackets like:
<br>
<br>
if((kpp.eq.kselect).and.(kselect.gt.0)) doit= .true.
<br>
<br>
<br>
Am 09.05.2020 um 04:50 schrieb Viswanathan Elumalai:
<br>
<blockquote type="cite">Dear Sir/Mam
<br>
Greetings
<br>
I had error while compiling the wien2k 19.2 version. I could
not solve
<br>
it from my end. I searched in wien mail list, I did not see
any report
<br>
in this regards. I copied the error message here and
attached the
<br>
corresponding compile file.
<br>
<br>
SRC_tetra/compile.msg:Error: Cannot convert LOGICAL(4) to
REAL(4) at (1)
<br>
SRC_tetra/compile.msg:make: *** [Makefile:108: ados.o] Error
1
<br>
<br>
I am looking forward your reply.
<br>
with best regards
<br>
<br>
Dr. Viswanathan Elumalai,
<br>
Assistant Professor in Physics</blockquote>
</blockquote>
</blockquote>
</blockquote>
</body>
</html>