Exemple #1
0
int celprt_(int *cel)

{
  /* This may or may not force the Fortran I/O buffers to be flushed.  If
   * not, try CALL FLUSH(6) before calling CELPRT in the Fortran code. */
  fflush(NULL);

  return celprt((struct celprm *)cel);
}
Exemple #2
0
int celprt_(int *cel)

{
   return celprt((struct celprm *)cel);
}