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

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

C. Programas 129C Transition Stateelse if(0.ne.in<strong>de</strong>x(string,’TS’)) thenCvlts=.true.read(5,*,ERR=1018) nif (n.gt.n_ts) thenwrite(6,20)stopendifcall readconf(n,nat_ts,ents(n),asymbolts,cordts,dmirts,wts,&ansymts(n),lints(n),amasts)CCwrite(6,*) (wts(n,j),j=1,3*nat_ts-5)write(6,*) (wts(n,j),j=1,9)vlts=.false.endifenddoCC if (iop7.eq.0) thenC write(6,*) ’Please write the method to evaluate the rateCC &constants: TST VTST VTST/MT’C stopC endifC9 continue10 format(A80)20 format(’Please check the number of conformers’)21 format(’Please keep the block data joined in the Electronic Degene&racy section.’)30 format(1x,F16.8,1x,F16.8,1X,F16.8,1X,F16.8)returnC --------------------------ERROR REPORT----------------------------------1000 write(6,*) ’Error reading "Title"’stop1001 write(6,*) ’Error reading "Number of reactants A"’stop1002 write(6,*) ’Error reading "Number of atoms A"’stop1003 write(6,*) ’Error reading "Number of reactants B"’stop1004 write(6,*) ’Error reading "Number of atoms B"’stop1005 write(6,*) ’Error reading "Number of TSs"’stop1006 write(6,*) ’Error reading "Number of atoms of TSs"’stop1007 write(6,*) ’Error reading "Scale Factor"’stop1008 write(6,*) ’Error reading "Electronic Degeneracy, ’&,’Number of States Reactant-A"’stop1009 write(6,*) ’Error reading "Electronic Degeneracy, ’&,’Degeneracy-Delta Energy Reactant-A"’stop1010 write(6,*) ’Error reading "Electronic Degeneracy, ’&,’Number of States Reactant-B"’

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

Saved successfully!

Ooh no, something went wrong!