从Java调用Fortran子例程

subroutine add(a, b, c)
    integer a, b, c
    c = a + b
end subroutine add

#include <jni.h>

JNIEXPORT void JNICALL Java_Add_add(JNIEnv *env, jobject obj, jint a, jint b, jintArray c) {
    jint *c_ptr = (*env)->GetIntArrayElements(env, c, NULL);
    add(a, b, c_ptr);
    (*env)->ReleaseIntArrayElements(env, c, c_ptr, 0);
}

public class Add {
    public native void add(int a, int b, int[] c);

    static {
        System.loadLibrary("add");
    }

    public static void main(String[] args) {
        Add add = new Add();
        int[] c = new int[1];
        add.add(1, 2, c);
        System.out.println(c[0]);
    }
}

gfortran -shared -o libadd.so add.f90
gcc -shared -o libadd.jnilib -I${JAVA_HOME}/include -I${JAVA_HOME}/include/darwin -L${JAVA_HOME}/jre/lib/amd64/server -ljvm add.c

java -Djava.library.path=. Add