Test

The notations of this documentation are given hereafter:

Notation	Explanation
$m_{k}$	mass of species k in the system
$m$	mass of the system
$Y_{k}$	mass fraction of species k in the system
$X_{k}$	molar fraction of species k in the system
$\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
      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