Salaam Thank you so much for your response. I am using gfortran compiler. Would you please let me know your phone number to call you and talk about it?
My phone number is 09127633204 Eradatmand Reza Kalantari On Sun, Mar 6, 2011 at 11:26 PM, sara yazdani <[email protected]> wrote: > 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 > > > -- 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
