100 gchar * lil[3] = {
"ii",
"iii",
"iv"};
112 int numth = omp_get_max_threads ();
113 gboolean doatoms = FALSE;
135 saved_line = g_strdup_printf (
"%s",
this_line);
145 this_word = strtok_r (NULL,
" ", & saved_line);
149 #pragma omp parallel for num_threads(numth) private(j,l,v,this_line,saved_line,this_word) shared(i,k,lil,coord_line,this_reader,active_project,res)
152 if (
res == 2)
goto enda;
154 saved_line = g_strdup_printf (
"%s",
this_line);
164 if (l < 2)
this_word = strtok_r (NULL,
" ", & saved_line);
176 saved_line = g_strdup_printf (
"%s",
this_line);
185 this_word = strtok_r (NULL,
" ", & saved_line);
193 this_word = strtok_r (NULL,
" ", & saved_line);
217 #pragma omp parallel for num_threads(numth) private(i,j,k,l,v,this_line,saved_line,this_word) shared(lil,coord_line,this_reader,active_project,res)
220 if (!
res)
goto ends;
225 saved_line = g_strdup_printf (
"%s",
this_line);
236 this_word = strtok_r (NULL,
" ", & saved_line);
243 saved_line = g_strdup_printf (
"%s",
this_line);
253 if (l < 2)
this_word = strtok_r (NULL,
" ", & saved_line);
261 saved_line = g_strdup_printf (
"%s",
this_line);
270 this_word = strtok_r (NULL,
" ", & saved_line);
278 this_word = strtok_r (NULL,
" ", & saved_line);
339 if (l < 2)
this_word = strtok (NULL,
" ");
387 for (j=1; j<120; j++)
398 gchar * str = g_strdup_printf (
"Cannot find species with a mass of %f !",
this_reader ->
z[i]);
integer(kind=c_int) function lattice(totl, lid, vectors, vmod, angles, lat, cfrac, apbc)
void format_error(int stp, int ato, gchar *mot, int line)
Message to display an error message.