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

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

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

CR97_05
Page Navigation
24

PHIIJ(I1,I)=PHIIJ(I,I1)

DO 21000 J=1, NCAT

DO 21001 I=NC1,NN

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

DO 22000 J=1, NCAT

DO 10 J1=1,NCAT

IF (J.EQ.J1) GO TO 10

DO 22001 I=NC1, NN

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

SUMCAT(J)=SUMCAT(J)+XM(J1)*(SUM+2.*PHIIJ(J,J1))

DO 23000 J=1, NCAT

DO 23001 J1=NC1,NN-1

DO 23002 I=J1+1, NN

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

DO 24000 J=1,NCAT

DO 24001 I=NC1,NN

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

DO 25000 J=1,NCAT

SUMZ(J)=SUM*DABS(Z(J))

DO 26000 J=1,NCAT

ACT(J+IP)=Z(J)**2*F+SUMCA(J)+SUMCAT(J)+SUMAN(J)+SUMZ(J)

Western Governors University

Privacy Statement
Press Release
Contact

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