[QE-users] Error in installing thermo_pw with qe-6.5

[Lorenzo Paulatto]

Hello Pooja,
it is a problem with most recent gfortran being picky about this dubious 
syntax. You can just grab the latest version of the file from git :
https://github.com/dalcorso/thermo_pw/blob/master/lib/voigt.f90
cheers

On 6/18/20 8:54 AM, Pooja Vyas wrote:
> Dear users,
> I'm trying to install thermo_pw with qe-6.5. All steps of installation 
> are done but at last when I give the command 'make' in thermo_pw 
> directory, I face the following error:
> 
> ( cd lib ; make all || exit 1 )
> make[1]: Entering directory '/home/pooja/qe-6.5/thermo_pw/lib'
> mpif90 -O3 -g -fopenmp -x f95-cpp-input -fopenmp -D__FFTW -D__MPI   
> -I/home/pooja/qe-6.5//include -I/home/pooja/qe-6.5//FoX/finclude 
> -I/home/pooja/qe-6.5//S3DE/iotk/include/ -I/home/pooja/qe-6.5//iotk/src 
> -I/home/pooja/qe-6.5//Modules -I/home/pooja/qe-6.5//FFTXlib 
> -I/home/pooja/qe-6.5//LAXlib -I/home/pooja/qe-6.5//UtilXlib 
> -I/home/pooja/qe-6.5//FoX/finclude -I. -c voigt.f90
> voigt.f90:143:27:
> 
>    142 |    DO ij=1,6
>        |            2
>    143 |       CALL voigt_index(i,j,ij,.FALSE.)
>        |                           1
> Error: Variable ‘ij’ at (1) not definable inside loop beginning at (2) 
> as INTENT(INOUT) argument to subroutine ‘voigt_index’
> voigt.f90:145:30:
> 
>    144 |       DO mn=1,6
>        |               2
>    145 |          CALL voigt_index(m,n,mn,.FALSE.)
>        |                              1
> Error: Variable ‘mn’ at (1) not definable inside loop beginning at (2) 
> as INTENT(INOUT) argument to subroutine ‘voigt_index’
> voigt.f90:153:26:
> 
>    151 |    DO i=1,3
>        |           2
>    152 |       DO j=1,3
>    153 |          CALL voigt_index(i,j,ij,.TRUE.)
>        |                          1
> Error: Variable ‘i’ at (1) not definable inside loop beginning at (2) as 
> INTENT(INOUT) argument to subroutine ‘voigt_index’
> voigt.f90:153:28:
> 
>    152 |       DO j=1,3
>        |              2
>    153 |          CALL voigt_index(i,j,ij,.TRUE.)
>        |                            1
> Error: Variable ‘j’ at (1) not definable inside loop beginning at (2) as 
> INTENT(INOUT) argument to subroutine ‘voigt_index’
> voigt.f90:156:32:
> 
>    154 |          DO m=1,3
>        |                 2
>    155 |             DO n=1,3
>    156 |                CALL voigt_index(m,n,mn,.TRUE.)
>        |                                1
> Error: Variable ‘m’ at (1) not definable inside loop beginning at (2) as 
> INTENT(INOUT) argument to subroutine ‘voigt_index’
> voigt.f90:156:34:
> 
>    155 |             DO n=1,3
>        |                    2
>    156 |                CALL voigt_index(m,n,mn,.TRUE.)
>        |                                  1
> Error: Variable ‘n’ at (1) not definable inside loop beginning at (2) as 
> INTENT(INOUT) argument to subroutine ‘voigt_index’
> voigt.f90:110:27:
> 
>    109 |    DO ij=1,6
>        |            2
>    110 |       CALL voigt_index(i,j,ij,.FALSE.)
>        |                           1
> Error: Variable ‘ij’ at (1) not definable inside loop beginning at (2) 
> as INTENT(INOUT) argument to subroutine ‘voigt_index’
> voigt.f90:117:26:
> 
>    115 |    DO i=1,3
>        |           2
>    116 |       DO j=1,3
>    117 |          CALL voigt_index(i,j,ij,.TRUE.)
>        |                          1
> Error: Variable ‘i’ at (1) not definable inside loop beginning at (2) as 
> INTENT(INOUT) argument to subroutine ‘voigt_index’
> voigt.f90:117:28:
> 
>    116 |       DO j=1,3
>        |              2
>    117 |          CALL voigt_index(i,j,ij,.TRUE.)
>        |                            1
> Error: Variable ‘j’ at (1) not definable inside loop beginning at (2) as 
> INTENT(INOUT) argument to subroutine ‘voigt_index’
> voigt.f90:77:27:
> 
>     76 |    DO ij=1,6
>        |            2
>     77 |       CALL voigt_index(i,j,ij,.FALSE.)
>        |                           1
> Error: Variable ‘ij’ at (1) not definable inside loop beginning at (2) 
> as INTENT(INOUT) argument to subroutine ‘voigt_index’
> voigt.f90:84:26:
> 
>     82 |    DO i=1,3
>        |           2
>     83 |       DO j=1,3
>     84 |          CALL voigt_index(i,j,ij,.TRUE.)
>        |                          1
> Error: Variable ‘i’ at (1) not definable inside loop beginning at (2) as 
> INTENT(INOUT) argument to subroutine ‘voigt_index’
> voigt.f90:84:28:
> 
>     83 |       DO j=1,3
>        |              2
>     84 |          CALL voigt_index(i,j,ij,.TRUE.)
>        |                            1
> Error: Variable ‘j’ at (1) not definable inside loop beginning at (2) as 
> INTENT(INOUT) argument to subroutine ‘voigt_index’
> make[1]: *** [../../make.inc:16: voigt.o] Error 1
> make[1]: Leaving directory '/home/pooja/qe-6.5/thermo_pw/lib'
> make: *** [Makefile:15: thermo_lib] Error 1
> 
> Can anyone please suggest some solution to remove this error and install 
> thermo_pw perfectly?
> Any kind of help would be appreciated!! Not being a fortran expert, I 
> cannot edit the file which has errors related to this.
> Thanks and regards.
> 
> 
> 
> _______________________________________________
> Quantum ESPRESSO is supported by MaX (www.max-centre.eu/quantum-espresso)
> users mailing list users at lists.quantum-espresso.org
> https://lists.quantum-espresso.org/mailman/listinfo/users
> 

-- 
Lorenzo Paulatto - Paris