예제 #1
0
파일: misc.c 프로젝트: dmlb2000/nwchem-cml 
/**
 * shut down message-passing library
 */ 
void FATR PEND_()
{
#ifdef NXTVAL_SERVER
    Integer zero=0;
    if( SR_parallel ) {
        (void) NXTVAL_(&zero);
    }
    MPI_Barrier(MPI_COMM_WORLD);
#endif
    finalize_nxtval();
    MPI_Finalize();
    exit(0);
}
예제 #2
0
파일: capi.c 프로젝트: jeffhammond/ga 
long tcg_nxtval(long mproc)
{
    long amproc = mproc;

    return NXTVAL_(&amproc);
}
예제 #3
0
파일: capi.c 프로젝트: dmlb2000/nwchem-cml 
long tcg_nxtval(long mproc)
{
    Integer amproc = mproc;

    return NXTVAL_(&amproc);
}