The notations of this documentation are given hereafter:
|mass of species k in the system|
|mass of the system|
|mass fraction of species k in the system|
|molar fraction of species k in the system|
|ensemble velocity of the fluid|
PROGRAM CALCULATE ! ! Program to calculate the sum of up to n values of x**3 ! where negative values are ignored. ! IMPLICIT NONE INTEGER I,N REAL SUM,X,Y READ(*,*) N SUM=0 DO I=1,N READ(*,*) X IF (X.GE.0.0) THEN Y=X**3 SUM=SUM+Y END IF END DO WRITE(*,*) 'This is the sum of the positive cubes:',SUM END
- Most thermodynamic variables are defined for a given system which turns out to be a computational cell in SITCOMB.