home *** CD-ROM | disk | FTP | other *** search
/ Aminet 33 / Aminet 33 - October 1999.iso / Aminet / dev / c / GAPLib.lha / GAPLib / gaplib / PopMember.c < prev    next >
Encoding:
C/C++ Source or Header  |  1999-07-04  |  581 b   |  17 lines
  1.  
  2. #include <GAP.h>
  3. #include "GAPLocal.h"
  4. #ifdef GAPDEBUG
  5. #include <stdio.h>
  6. #endif
  7. void *PopMember(struct Population *,const long int);
  8. #define i4A(n) (((long **)t1La->Polys)[n])
  9. void *PopMember(struct Population *t1La,const long int n)
  10. {
  11. #ifdef GAPDEBUG
  12. if(n>0 && n<t1La->NumPolys) {return(i4A(n));} else {fprintf(stderr,"\x50\x6f\x70\x4d\x65\x6d\x62\x65\x72\x3a\x20\x49\x6e\x64\x65\x78\x20\x6f\x75\x74\x20\x6f\x66\x20\x72\x61\x6e\x67\x65\x2c\x20\x25\x64\x20\x6e\x6f\x74\x20\x69\x6e\x20\x5b\x30\x2c\x25\x64\x5d\x2e\n",n,t1La->NumPolys-1);
  13. return(0);}
  14. #else
  15. return(i4A(n));
  16. #endif
  17. }