/*******************************************************/
/*                                                     */
/*      18/05/92  Smirnov.                             */
/*                                                     */
/*      Libraries:                                     */
/*                 ppi.lib                             */
/*                                                     */
/*                                                     */
/*******************************************************/

void    crate ( int nc );
int     naf     ( int n, int a, int f, long *d );
int     nafw    ( int n, int a, int f, long d );
int     nafd    ( int n, int a, int f );
int     testlam ( int n );
int     waitlam ( int n, int t );
void    cam_z   ( void );
void    cam_c   ( void );
void    cam_i   ( int i );
void    nafset  ( int n, int a, int f );
void    nafdo   ( long *d );