Hi, On a platform with gfortran compiler, I overcame a similar syntax error for TBTrans recompiling siesta and making some changes in the arch.make.
Regards, ________________________________ From: Reza Kalantari <[email protected]> To: [email protected]; [email protected] Sent: Sun, 6 March, 2011 19:42:38 Subject: [SIESTA-L] Compile TBtrans errors 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
