C++ (Cpp) NXTVAL_示例

示例#1

文件： 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

文件： capi.c 项目： jeffhammond/ga

long tcg_nxtval(long mproc)
{
    long amproc = mproc;

    return NXTVAL_(&amproc);
}

示例#3

文件： capi.c 项目： dmlb2000/nwchem-cml

long tcg_nxtval(long mproc)
{
    Integer amproc = mproc;

    return NXTVAL_(&amproc);
}