/** * 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); }
long tcg_nxtval(long mproc) { long amproc = mproc; return NXTVAL_(&roc); }
long tcg_nxtval(long mproc) { Integer amproc = mproc; return NXTVAL_(&roc); }