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); }
int celprt_(int *cel) { return celprt((struct celprm *)cel); }