<div dir="ltr"><div>Thanks a lot sir, your suggestion actually worked and installation was successful.</div><div>Thanks & Regards<br></div></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">On Thu, Jun 18, 2020 at 1:48 PM Lorenzo Paulatto <<a href="mailto:paulatz@gmail.com">paulatz@gmail.com</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">Hello Pooja,<br>
it is a problem with most recent gfortran being picky about this dubious <br>
syntax. You can just grab the latest version of the file from git :<br>
<a href="https://github.com/dalcorso/thermo_pw/blob/master/lib/voigt.f90" rel="noreferrer" target="_blank">https://github.com/dalcorso/thermo_pw/blob/master/lib/voigt.f90</a><br>
cheers<br>
<br>
On 6/18/20 8:54 AM, Pooja Vyas wrote:<br>
> Dear users,<br>
> I'm trying to install thermo_pw with qe-6.5. All steps of installation <br>
> are done but at last when I give the command 'make' in thermo_pw <br>
> directory, I face the following error:<br>
> <br>
> ( cd lib ; make all || exit 1 )<br>
> make[1]: Entering directory '/home/pooja/qe-6.5/thermo_pw/lib'<br>
> mpif90 -O3 -g -fopenmp -x f95-cpp-input -fopenmp -D__FFTW -D__MPI   <br>
> -I/home/pooja/qe-6.5//include -I/home/pooja/qe-6.5//FoX/finclude <br>
> -I/home/pooja/qe-6.5//S3DE/iotk/include/ -I/home/pooja/qe-6.5//iotk/src <br>
> -I/home/pooja/qe-6.5//Modules -I/home/pooja/qe-6.5//FFTXlib <br>
> -I/home/pooja/qe-6.5//LAXlib -I/home/pooja/qe-6.5//UtilXlib <br>
> -I/home/pooja/qe-6.5//FoX/finclude -I. -c voigt.f90<br>
> voigt.f90:143:27:<br>
> <br>
>    142 |    DO ij=1,6<br>
>        |            2<br>
>    143 |       CALL voigt_index(i,j,ij,.FALSE.)<br>
>        |                           1<br>
> Error: Variable ‘ij’ at (1) not definable inside loop beginning at (2) <br>
> as INTENT(INOUT) argument to subroutine ‘voigt_index’<br>
> voigt.f90:145:30:<br>
> <br>
>    144 |       DO mn=1,6<br>
>        |               2<br>
>    145 |          CALL voigt_index(m,n,mn,.FALSE.)<br>
>        |                              1<br>
> Error: Variable ‘mn’ at (1) not definable inside loop beginning at (2) <br>
> as INTENT(INOUT) argument to subroutine ‘voigt_index’<br>
> voigt.f90:153:26:<br>
> <br>
>    151 |    DO i=1,3<br>
>        |           2<br>
>    152 |       DO j=1,3<br>
>    153 |          CALL voigt_index(i,j,ij,.TRUE.)<br>
>        |                          1<br>
> Error: Variable ‘i’ at (1) not definable inside loop beginning at (2) as <br>
> INTENT(INOUT) argument to subroutine ‘voigt_index’<br>
> voigt.f90:153:28:<br>
> <br>
>    152 |       DO j=1,3<br>
>        |              2<br>
>    153 |          CALL voigt_index(i,j,ij,.TRUE.)<br>
>        |                            1<br>
> Error: Variable ‘j’ at (1) not definable inside loop beginning at (2) as <br>
> INTENT(INOUT) argument to subroutine ‘voigt_index’<br>
> voigt.f90:156:32:<br>
> <br>
>    154 |          DO m=1,3<br>
>        |                 2<br>
>    155 |             DO n=1,3<br>
>    156 |                CALL voigt_index(m,n,mn,.TRUE.)<br>
>        |                                1<br>
> Error: Variable ‘m’ at (1) not definable inside loop beginning at (2) as <br>
> INTENT(INOUT) argument to subroutine ‘voigt_index’<br>
> voigt.f90:156:34:<br>
> <br>
>    155 |             DO n=1,3<br>
>        |                    2<br>
>    156 |                CALL voigt_index(m,n,mn,.TRUE.)<br>
>        |                                  1<br>
> Error: Variable ‘n’ at (1) not definable inside loop beginning at (2) as <br>
> INTENT(INOUT) argument to subroutine ‘voigt_index’<br>
> voigt.f90:110:27:<br>
> <br>
>    109 |    DO ij=1,6<br>
>        |            2<br>
>    110 |       CALL voigt_index(i,j,ij,.FALSE.)<br>
>        |                           1<br>
> Error: Variable ‘ij’ at (1) not definable inside loop beginning at (2) <br>
> as INTENT(INOUT) argument to subroutine ‘voigt_index’<br>
> voigt.f90:117:26:<br>
> <br>
>    115 |    DO i=1,3<br>
>        |           2<br>
>    116 |       DO j=1,3<br>
>    117 |          CALL voigt_index(i,j,ij,.TRUE.)<br>
>        |                          1<br>
> Error: Variable ‘i’ at (1) not definable inside loop beginning at (2) as <br>
> INTENT(INOUT) argument to subroutine ‘voigt_index’<br>
> voigt.f90:117:28:<br>
> <br>
>    116 |       DO j=1,3<br>
>        |              2<br>
>    117 |          CALL voigt_index(i,j,ij,.TRUE.)<br>
>        |                            1<br>
> Error: Variable ‘j’ at (1) not definable inside loop beginning at (2) as <br>
> INTENT(INOUT) argument to subroutine ‘voigt_index’<br>
> voigt.f90:77:27:<br>
> <br>
>     76 |    DO ij=1,6<br>
>        |            2<br>
>     77 |       CALL voigt_index(i,j,ij,.FALSE.)<br>
>        |                           1<br>
> Error: Variable ‘ij’ at (1) not definable inside loop beginning at (2) <br>
> as INTENT(INOUT) argument to subroutine ‘voigt_index’<br>
> voigt.f90:84:26:<br>
> <br>
>     82 |    DO i=1,3<br>
>        |           2<br>
>     83 |       DO j=1,3<br>
>     84 |          CALL voigt_index(i,j,ij,.TRUE.)<br>
>        |                          1<br>
> Error: Variable ‘i’ at (1) not definable inside loop beginning at (2) as <br>
> INTENT(INOUT) argument to subroutine ‘voigt_index’<br>
> voigt.f90:84:28:<br>
> <br>
>     83 |       DO j=1,3<br>
>        |              2<br>
>     84 |          CALL voigt_index(i,j,ij,.TRUE.)<br>
>        |                            1<br>
> Error: Variable ‘j’ at (1) not definable inside loop beginning at (2) as <br>
> INTENT(INOUT) argument to subroutine ‘voigt_index’<br>
> make[1]: *** [../../make.inc:16: voigt.o] Error 1<br>
> make[1]: Leaving directory '/home/pooja/qe-6.5/thermo_pw/lib'<br>
> make: *** [Makefile:15: thermo_lib] Error 1<br>
> <br>
> Can anyone please suggest some solution to remove this error and install <br>
> thermo_pw perfectly?<br>
> Any kind of help would be appreciated!! Not being a fortran expert, I <br>
> cannot edit the file which has errors related to this.<br>
> Thanks and regards.<br>
> <br>
> <br>
> <br>
> _______________________________________________<br>
> Quantum ESPRESSO is supported by MaX (<a href="http://www.max-centre.eu/quantum-espresso" rel="noreferrer" target="_blank">www.max-centre.eu/quantum-espresso</a>)<br>
> users mailing list <a href="mailto:users@lists.quantum-espresso.org" target="_blank">users@lists.quantum-espresso.org</a><br>
> <a href="https://lists.quantum-espresso.org/mailman/listinfo/users" rel="noreferrer" target="_blank">https://lists.quantum-espresso.org/mailman/listinfo/users</a><br>
> <br>
<br>
-- <br>
Lorenzo Paulatto - Paris<br>
_______________________________________________<br>
Quantum ESPRESSO is supported by MaX (<a href="http://www.max-centre.eu/quantum-espresso" rel="noreferrer" target="_blank">www.max-centre.eu/quantum-espresso</a>)<br>
users mailing list <a href="mailto:users@lists.quantum-espresso.org" target="_blank">users@lists.quantum-espresso.org</a><br>
<a href="https://lists.quantum-espresso.org/mailman/listinfo/users" rel="noreferrer" target="_blank">https://lists.quantum-espresso.org/mailman/listinfo/users</a></blockquote></div>