Hello everybody

In compiling of TBTrans I have following errors. Would you please let me
know what can I do?

In file m_tbt_gf.F90:56

double precision, allocatable, dimension (:,:) :: H, xij
                                                  1
Error: ALLOCATABLE attribute conflicts with DUMMY attribute at (1)
 In file m_tbt_gf.F90:57

integer, allocatable, dimension (:) :: ix
                                        1
Error: ALLOCATABLE attribute conflicts with DUMMY attribute at (1)
 In file m_tbt_gf.F90:58

double precision, allocatable, dimension (:) :: S,efs
                                                1
Error: ALLOCATABLE attribute conflicts with DUMMY attribute at (1)
 In file m_tbt_gf.F90:59

integer, allocatable, dimension (:) :: listh, listhptr, numh, indxuo
                                           1
Error: ALLOCATABLE attribute conflicts with DUMMY attribute at (1)
 In file m_tbt_gf.F90:66

allocate(H(maxnh,nspin))
         1
Error: Syntax error in ALLOCATE statement at (1)
 In file m_tbt_gf.F90:67

allocate(S(maxnh))
         1
Error: Syntax error in ALLOCATE statement at (1)
 In file m_tbt_gf.F90:68

allocate(indxuo(notot))
              1
Error: Syntax error in ALLOCATE statement at (1)
 In file m_tbt_gf.F90:69

allocate(listh(maxnh))
             1
Error: Syntax error in ALLOCATE statement at (1)
 In file m_tbt_gf.F90:70

allocate(listhptr(nuotot))
                1
Error: Syntax error in ALLOCATE statement at (1)
 In file m_tbt_gf.F90:71

allocate(numh(nuotot))
            1
Error: Syntax error in ALLOCATE statement at (1)
 In file m_tbt_gf.F90:72

allocate(efs(nspin))
           1
Error: Syntax error in ALLOCATE statement at (1)
 In file m_tbt_gf.F90:73

allocate(ix(maxnh))
          1
Error: Syntax error in ALLOCATE statement at (1)
 In file m_tbt_gf.F90:74

if (.not.gamma) allocate(xij(3,maxnh))
                           1
Error: Syntax error in ALLOCATE statement at (1)
 In file m_tbt_gf.F90:53

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:53

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:53

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:53

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:53

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:53

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:53

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:53

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:53

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:823

            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:833

            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


-- 
Best Regards
Reza Kalantari Nezhad
PhD Student
Mechanical Engineering
Amir Kabir University of Technology (Tehran Polytechnic)
Tehran
Iran

[email protected]

Mobile Phone: 0098-935-2578543

Responder a