prnio_state
int prnio_state(int);
extern int prnio_state(int);
x_stat = parallel_comm(1, prnio_state);
func = prnio_state;