/*-------------------------------------------------------------------------------
 * 
 * 
 * 
 *       (c) Copyright 1992 - 1995 by G & A Technical Software, Inc.,   
 *                 28 Research Drive, Hampton, Virginia, 23666.              
 * 
 *     All Rights Reserved. No part of this software or publication may be   
 *     reproduced, stored in a retrieval system, or transmitted, in any form 
 *     or by any means, electronic, mechanical, photocopying, recording, or  
 *     otherwise without the prior written permission of G & A Technical     
 *     Software, Inc.                                                        
 * 
 * 
 * 
 *  This file was generated by testit 
 * 
 *               File: s3_testit.c 
 *               User: deaver 
 *               Date: Thu Aug  7 12:33:33 2008  
 * 
 *-------------------------------------------------------------------------------*/

#include <stdlib.h>

#define PNODE     0x504E
#define CFUNC     0x4346
#define CSUBR     0x4353
#define DFUNC     0x4446
#define DSUBR     0x4453
#define FFUNC     0x4646
#define FSUBR     0x4653
#define OTHER     0x4F54
#define ENODE     0x4FFF
#define UNDEFINED -1

typedef double real;

typedef unsigned char   byte;
typedef unsigned short  word;
typedef unsigned long   dword;

typedef float   real4;
typedef double  real8;

typedef struct {
        float   r;
        float   i;
} complex;

typedef struct {
        double  r;
        double  i;
} dbl_complex;

typedef struct {
char   *name;
int     type;
void  (*function)();
int     NDS;
} ststr;

extern void  fillarray( );
extern void  cprintarray( );
extern void  fprintarray_ ( );



ststr  user_routines[] = {
"testit"        ,PNODE, (void (*)())"testit.pct",  0,
"test2"         ,PNODE, (void (*)())"test2.pct",  0,
"fillarray"     ,CSUBR, (void (*)())fillarray       ,  6,
"cprintarray"   ,CSUBR, (void (*)())cprintarray     ,  6,
"fprintarray"   ,FSUBR, (void (*)())fprintarray_    ,  6
 };



int s3_n_user_routines()
  {
int temp;

temp = sizeof(user_routines)/sizeof(ststr);

return temp;
}

int main(int argc, char **argv)
{
  extern int s3_static_main(int argc, char **argv);
  return(s3_static_main(argc,argv));
}