1
1
This commit was SVN r849.
Этот коммит содержится в:
Rich Graham 2004-03-15 17:57:12 +00:00
родитель 17d0f83588
Коммит aa71cb2a6d

Просмотреть файл

@ -138,7 +138,7 @@ int lam_group_init(void)
return LAM_ERROR; return LAM_ERROR;
}; };
/* make sure that MPI_GROUP_NULL is in location in the table */ /* make sure that MPI_GROUP_NULL is in location in the table */
if( LAM_GROUP_NULL_FORTRAN == ret_val ){ if( LAM_GROUP_NULL_FORTRAN != ret_val ){
return LAM_ERROR; return LAM_ERROR;
}; };
lam_mpi_group_null.grp_f_to_c_index=ret_val; lam_mpi_group_null.grp_f_to_c_index=ret_val;