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.

128 C.2. CONFORATECCCCenddoelsewrite(6,21)stopendifelse if(0.ne.in<strong>de</strong>x(string,’Number of Temperatures’)) thenread(5,*,ERR=1014) ntempelse if(0.ne.in<strong>de</strong>x(string,’Temperatures’)) thendo j=1,ntempread(5,*,ERR=1015) temp(j)enddoelse if(0.ne.in<strong>de</strong>x(string,’Transition State’)) thenelse if(0.ne.in<strong>de</strong>x(string,’VTST/MT’)) thenwrite(6,*) in<strong>de</strong>x(string,’VTST/MT’)write(6,*) ’VTST/MT’iop7=3else if(0.ne.in<strong>de</strong>x(string,’VTST’)) thenwrite(6,*) in<strong>de</strong>x(string,’VTST’)write(6,*) ’VTST’iop7=2else if(1.eq.in<strong>de</strong>x(string,’TST’)) thenwrite(6,*) in<strong>de</strong>x(string,’TST’)write(6,*) ’TST’iop7=1C Reactants partC Reactant Aelse if(0.ne.in<strong>de</strong>x(string,’REACT-A’)) thenread(5,*,ERR=1016) nCif (n.gt.n_ra) thenstopendifcall readconf(n,nat_ra,enra(n),asymbo<strong>la</strong>,coorda,dmira,wa,ansyma(&n),lina(n),amasa)C write(6,*) nCC write(6,*) enra(n)C do k=1,nat_raC write(6,*) asymbo<strong>la</strong>(n,k),(coorda(n,k,j),j=1,3)C enddoC write(6,*) ’Moments’C write(6,*) (dmira(n,j),j=1,3)C write(6,*) (wa(n,j),j=1,3*nat_ra-6)C Reactant BC Only for Bimolecu<strong>la</strong>r reactionselse if(0.ne.in<strong>de</strong>x(string,’REACT-B’)) thenif (iop1.eq.2) thenread(5,*,ERR=1017) nif (n.gt.n_rb) thenwrite(6,20)stopendifcall readconf(n,nat_rb,enrb(n),asymbolb,coordb,dmirb,wb,ansymb(&n),linb(n),amasb)Cwrite(6,*) (wb(n,j),j=1,3*nat_rb-5)endif

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

Saved successfully!

Ooh no, something went wrong!