EVA_uebungen/ue01/sum2.c

#include <R.h>
    
void sum2(double* mtrx, int* m, int* n, double* res)
{
    *res = 0;

    for(int i=0; i < *n; i++)
    {
        for(int j=0; j < *m; j++) {
            *res += mtrx[j * (*n) + i];
        }
    }
}