FM Example
program fm_finite_difference
INPORT (real x(100)) Li(4), Ri(4)
OUTPORT (real x(100)) Lo(4), Ro(4)
CHANNEL(IN=Li(i), OUT=Ro(mod(i,4)+1))
CHANNEL(IN=Ri(i), OUT=Lo(mod(i,4)+1))
PROCESSCALL subdomain(Li(i), Lo(i), Ri(i), Ro(i))
subroutine subdomain(Li, Lo, Ri, Ro)
INPORT (real x(100)) Li, Ri
OUTPORT (real x(100)) Lo, Ro
real X(27, 100), New(25, NP)
X = exchange(X, Li, Lo, Ri, Ro)
diff = maxdiff(New, X, Li, Lo, Ri, Ro)