xTAPP開発版170619をgfortran 4.7.2でコンパイルしようとすると
mpif90 -ffree-line-length-none -O3 -fopenmp -msse3 -fno-inline-functions -O3 -DPWB_SORTED_BY_INDEX -DESM -DINCONSISTENT_THREAD_COMP -I/usr/include -c vbchrg.f90
vbchrg.f90:837.11:
if (srg(irdkpt%irrg(irg))) then
1
Error: IF clause at (1) requires a scalar LOGICAL expression
if ( srg (irdkpt%irrg(irg)).eq.1) then
また、wannier.F90 についても
mpif90 -ffree-line-length-none -O3 -fopenmp -msse3 -fno-inline-functions -O3 -DPWB_SORTED_BY_INDEX -DESM -DINCONSISTENT_THREAD_COMP -I/usr/include -c wannier.F90
wannier.F90:232.14:
mod(nk,mmm(3,2,1).ne.0) ) then
1
Error: 'a' and 'p' arguments of 'mod' intrinsic at (1) must have the same type
と怒られますが、230行目から232行目は
if ( mod (nk,mmm(1,2,1)).ne.0 .or. &
mod (nk,mmm(2,2,1)).ne.0 .or. &
mod (nk,mmm(3,2,1)).ne.0 ) then
gfortran 6.3.0 では以下のようなエラーがでます。
makeqg.f90:419:26:
stop'GETQJ'
1
Error: Blank required in STOP statement near (1)
xtapp-util も一箇所だけ修正が必要なようです。
https://github.com/cmsi/ma-xtapp/blob/develop/xtapp-util/debian/patches/fortran.patch