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@lists.quantum-espresso.org
https://lists.quantum-espresso.org/mailman/listinfo/users


--
Lorenzo Paulatto - Paris
_______________________________________________
Quantum ESPRESSO is supported by MaX (www.max-centre.eu/quantum-espresso)
users mailing list users@lists.quantum-espresso.org
https://lists.quantum-espresso.org/mailman/listinfo/users

Reply via email to