15 lines
355 B
Plaintext
15 lines
355 B
Plaintext
#include <stdlib.h>
|
|
#include "stplugin.h"
|
|
|
|
STDLL stata_call(int argc, char *argv[]) {
|
|
int i, j, n = strtol(argv[1], NULL, 0);
|
|
|
|
for (i = 1; i <= n; i++) {
|
|
for (j = 1; j <= n; j++) {
|
|
// Don't forget array indices are 1-based in Stata.
|
|
SF_mat_store(argv[0], i, j, 1.0/(double)(i+j-1));
|
|
}
|
|
}
|
|
return 0;
|
|
}
|