APPENDIX A: FORTRAN LISTING OF THE FREZCHEM2 PROGRAM-continue - CR97_050030

APPENDIX A: FORTRAN LISTING OF THE FREZCHEM2 PROGRAM-continue - CR97_050029

APPENDIX A: FORTRAN LISTING OF THE FREZCHEM2 PROGRAM-continue - CR97_050031

CR97_05
Page Navigation
25

DO 27000 I=NC1, NN

DO 27001 J=1, NCAT

SUMAC(I)=SUMAC(I)+XM(J)*(2.*(B(J,I))+ZZ*C(J,I))

DO 28000 I=NC1, NN

DO 20 I1=NC1,NN

IF (I.EQ.I1) GO TO 20

DO 28001 J=1, NCAT

SUM=SUM+XM(J)*PSI(I,I1,J)

SUMAA(I)=SUMAA(I)+XM(I1)*(SUM+2.*PHIIJ(I,I1))

DO 29000 I=NC1, NN

DO 29001 J=1,NCAT-1

DO 29002 J1=J+1, NCAT

SUMCC(I)=SUMCC(I)+XM(J)*XM(J1)*PSI(J,J1,I)

DO 30000 J=1,NCAT

DO 30001 I=NC1,NN

SUM=SUM+XM(J)*XM(I)*C(J,I)

DO 31000 I=NC1,NN

SUMK(I)=SUM*ABS(Z(I))

DO 32000 J=NC1,NN

ACT(J+IP)=Z(J)**2*F+SUMAC(J)+SUMAA(J)+SUMCC(J)+SUMK(J)

DO 33000 I=1,NMV-IP

IF(ACT(I+IP).GT.ALOG(10000.)) ACT(I+IP)=ALOG(10000.)

Western Governors University

Privacy Statement
Press Release
Contact

Integrated Publishing, Inc. - A (SDVOSB) Service Disabled Veteran Owned Small Business