12.07.2015 Views

a variacional del estado de transición a la - Páxinas persoais - USC ...

a variacional del estado de transición a la - Páxinas persoais - USC ...

a variacional del estado de transición a la - Páxinas persoais - USC ...

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

Apéndice CProgramasC.1.MORATE2program morateimplicit double precision (a-h,o-z)parameter (itop=1000,natoms=100)character*80 stringcommon/geom/x(natoms),y(natoms),z(natoms),is(natoms),iat,ich,imultcommon/opt/ iopcommon/gg/ energy,grad(3*natoms),gh(3*natoms,3*natoms)open(unit=90,file=’esp.fu90’,status=’old’)do i=1,itopread(90,10,end=9) stringif(0.ne.in<strong>de</strong>x(string,’energy’)) iop=0if(0.ne.in<strong>de</strong>x(string,’first’)) iop=1if(0.ne.in<strong>de</strong>x(string,’second’)) iop=2if(0.ne.in<strong>de</strong>x(string,’Gaussian calcu<strong>la</strong>tion’)) thenread(90,*)read(90,*) ich,imultdo j=1,natomsread(90,*,end=9) is(j),x(j),y(j),z(j)iat=iat+1enddoendifenddo9 continueclose(90)C call write input MORATEcall wimC call run MORATEcall system (’$TMPDIR/vitH/mopac2002.x input’)C call read output MORATEcall romC call write output Gaussian fchkcall wogfcall system (’rm -f $TMPDIR/vitH/input.*’)C call system (’rm -f /home2/ruben/vitamin-D3/AM1/ec/boat/polyrate/cC &ar/vitH/input.*’)10 format(a80)109

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!