andersonlecture - Anderson model code Not tridiagonal! We...

Info iconThis preview shows pages 1–3. Sign up to view the full content.

View Full Document Right Arrow Icon

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: Anderson model code Not tridiagonal! We will use periodic boundary conditions! Anderson model code, declarations implicit none INTEGER, PARAMETER :: nn=10,nn3=nn**3 ! size of square,number of site INTEGER, PARAMETER :: nbin=1000 ! for dos,part ratio REAL*8, PARAMETER :: ww=5.0d0 ! width of disorder, from -w/2 to w/2 REAL*8 , dimension(nn3) :: w,fv1,fv2 REAL*8 , dimension(nn3,nn3) :: hamil,z REAL*8 , dimension(nbin) :: dos,part,count REAL*8 :: rnd,en,ran2 REAL*8, PARAMETER :: wmin=-ww*2.0d0,wmax=ww*2.0d0 REAL*8, PARAMETER :: delw=4.0d0*ww/nbin INTEGER :: matz,ierr,m,n,nb,i,ii,j,jj,k,kk,l,ll,neigh Anderson model code, declarations implicit none INTEGER, PARAMETER :: nn=10,nn3=nn**3 ! size of square,number of site INTEGER, PARAMETER :: nbin=1000 ! for dos,part ratio REAL*8, PARAMETER :: ww=5.0d0 ! width of disorder, from -w/2 to w/2 REAL*8 , dimension(nn3) :: w,fv1,fv2 REAL*8 , dimension(nn3,nn3) :: hamil,z REAL*8 , dimension(nbin) :: dos,part,count REAL*8 :: rnd,en,ran2 REAL*8, PARAMETER :: wmin=-ww*2.0d0,wmax=ww*2.0d0 REAL*8, PARAMETER :: delw=4.0d0*ww/nbin INTEGER :: matz,ierr,m,n,nb,i,ii,j,jj,k,kk,l,ll,neigh INTEGER, PARAMETER :: mensb=50 Initialize diagonal elements from random distribution...
View Full Document

This note was uploaded on 08/08/2011 for the course PHZ 5156 taught by Professor Johnson,m during the Fall '08 term at University of Central Florida.

Page1 / 15

andersonlecture - Anderson model code Not tridiagonal! We...

This preview shows document pages 1 - 3. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online