Dear TranSIESTA uesrs,
I'l try to compile TBTrans utility in computer cluster and I have an error.
I find such questions in archive, but cna't find the answer.
m_tbt_kpts.F90:20: warning: extra tokens at end of #endif directive
m_tbt_kpts.F90:45: warning: extra tokens at end of #endif directive
m_tbt_kpts.F90:92: warning: extra tokens at end of #endif directive
m_tbt_kpts.F90:101: warning: extra tokens at end of #endif directive
m_tbt_kpts.F90:145: warning: extra tokens at end of #endif directive
m_tbt_kpts.F90:193: warning: extra tokens at end of #endif directive
mpif90 -c -g -O2 -DMPI -DFC_HAVE_FLUSH -DFC_HAVE_ABORT tsread2.F
mpif90 -c -g -O2 -DMPI -DFC_HAVE_FLUSH -DFC_HAVE_ABORT m_tbt_gf.F90
In file m_tbt_gf.F90:57
double precision, allocatable, dimension (:,:) :: H, xij
1
Error: ALLOCATABLE attribute conflicts with DUMMY attribute at (1)
In file m_tbt_gf.F90:58
integer, allocatable, dimension (:) :: ix
1
Error: ALLOCATABLE attribute conflicts with DUMMY attribute at (1)
In file m_tbt_gf.F90:59
double precision, allocatable, dimension (:) :: S,efs
1
Error: ALLOCATABLE attribute conflicts with DUMMY attribute at (1)
In file m_tbt_gf.F90:60
integer, allocatable, dimension (:) :: listh, listhptr, numh, indxuo
1
Error: ALLOCATABLE attribute conflicts with DUMMY attribute at (1)
In file m_tbt_gf.F90:67
allocate(H(maxnh,nspin))
1
Error: Syntax error in ALLOCATE statement at (1)
In file m_tbt_gf.F90:68
allocate(S(maxnh))
1
Error: Syntax error in ALLOCATE statement at (1)
In file m_tbt_gf.F90:69
allocate(indxuo(notot))
1
Error: Syntax error in ALLOCATE statement at (1)
In file m_tbt_gf.F90:70
allocate(listh(maxnh))
1
Error: Syntax error in ALLOCATE statement at (1)
In file m_tbt_gf.F90:71
allocate(listhptr(nuotot))
1
Error: Syntax error in ALLOCATE statement at (1)
In file m_tbt_gf.F90:72
allocate(numh(nuotot))
1
Error: Syntax error in ALLOCATE statement at (1)
In file m_tbt_gf.F90:73
allocate(efs(nspin))
1
Error: Syntax error in ALLOCATE statement at (1)
In file m_tbt_gf.F90:74
allocate(ix(maxnh))
1
Error: Syntax error in ALLOCATE statement at (1)
In file m_tbt_gf.F90:75
if (.not.gamma) allocate(xij(3,maxnh))
1
Error: Syntax error in ALLOCATE statement at (1)
In file m_tbt_gf.F90:54
subroutine alloc_gf_vars(H,S,xij,indxuo,listh,listhptr,numh,efs, ix, &
1
Error: Symbol 'h' at (1) has no IMPLICIT type
In file m_tbt_gf.F90:54
subroutine alloc_gf_vars(H,S,xij,indxuo,listh,listhptr,numh,efs, ix, &
1
Error: Symbol 's' at (1) has no IMPLICIT type
In file m_tbt_gf.F90:54
subroutine alloc_gf_vars(H,S,xij,indxuo,listh,listhptr,numh,efs, ix, &
1
Error: Symbol 'xij' at (1) has no IMPLICIT type
In file m_tbt_gf.F90:54
subroutine alloc_gf_vars(H,S,xij,indxuo,listh,listhptr,numh,efs, ix, &
1
Error: Symbol 'indxuo' at (1) has no IMPLICIT type
In file m_tbt_gf.F90:54
subroutine alloc_gf_vars(H,S,xij,indxuo,listh,listhptr,numh,efs, ix, &
1
Error: Symbol 'listh' at (1) has no IMPLICIT type
In file m_tbt_gf.F90:54
subroutine alloc_gf_vars(H,S,xij,indxuo,listh,listhptr,numh,efs, ix, &
1
Error: Symbol 'listhptr' at (1) has no IMPLICIT type
In file m_tbt_gf.F90:54
subroutine alloc_gf_vars(H,S,xij,indxuo,listh,listhptr,numh,efs, ix, &
1
Error: Symbol 'numh' at (1) has no IMPLICIT type
In file m_tbt_gf.F90:54
subroutine alloc_gf_vars(H,S,xij,indxuo,listh,listhptr,numh,efs, ix, &
1
Error: Symbol 'efs' at (1) has no IMPLICIT type
In file m_tbt_gf.F90:54
subroutine alloc_gf_vars(H,S,xij,indxuo,listh,listhptr,numh,efs, ix, &
1
Error: Symbol 'ix' at (1) has no IMPLICIT type
In file m_tbt_gf.F90:824
call alloc_gf_vars(LH,LS,Lxij,Lindxuo,Llisth,Llisthptr,Lnumh &
1
Error: Type/rank mismatch in argument 'h' at (1)
In file m_tbt_gf.F90:834
call alloc_gf_vars(RH,RS,Rxij,Rindxuo,Rlisth,Rlisthptr,Rnumh &
1
Error: Type/rank mismatch in argument 'h' at (1)
make: *** [m_tbt_gf.o] Error 1
Thanks for any advices!
--
Sincerely yours,
*Dmitry G. Kvashnin*
================================================================
First year of master degree study
Moscow Institute of Physics and Technology http://mipt.ru/
141700, Institutsky lane 9, Dolgoprudny, Moscow Region, Russia
Junior research scientist
Emanuel Institute of Biochemical Physics http://sky1.chph.ras.ru/
119334, 4 Kosigina St., Moscow, Russia
================================================================
