# Test

The notations of this documentation are given hereafter[1]:

Notation Explanation
${\displaystyle m_{k}}$ mass of species k in the system
${\displaystyle m}$ mass of the system
${\displaystyle Y_{k}}$ mass fraction of species k in the system
${\displaystyle X_{k}}$ molar fraction of species k in the system
${\displaystyle \mathbf {u} }$ 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
SUM=0
DO I=1,N