cadd   xtlang


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/examples/contrib/mpi/mpitest.xtm

Implementation

(bind-func cadd
  (lambda (a:float* b:float* c:float* nx:i32)
    (doloop (j nx)
      (pset! a j (+ (pref b j)
                    (pref c j))))))


Back to Index

Similar Entries