auto_types.h

/* This structure contains all of the input data for the setubv routine
   Those values which are arrays and those
   which are input and output are markered as such*/
#ifndef AUTO_TYPES_H
#define AUTO_TYPES_H
typedef struct {
  integer ndim, ips, ncol, nbc, nint, ncb, nrc, nra, nca, na; /*scalar input */
  FUNI_TYPE((*funi)); /*scalar input*/
  ICNI_TYPE((*icni)); /*scalar input*/
  integer ndxloc; /*scalar input*/
  iap_type *iap; /*array input size: NIAP*/
  rap_type *rap; /*array input size: NRAP*/
  doublereal  *par; /*array input size: NPARX2*/
  integer *icp; /*array input size:  NPARX2*/
  doublereal *aa; /*array output (but must be initialized to 0) size: *nca X *nra X *na */
  doublereal *bb; /*array output (but must be initialized to 0) size: *ncb X *nra X *na */
  doublereal *cc; /*array output (but must be initialized to 0) size: *nca X *nrc X *na */
  doublereal *dd; /*array output (but must be initialized to 0) size: *ncb X *nrc */
  doublereal *fa; /*array output (but must be initialized to 0) size: *nra X *na */
  doublereal *fc; /*array output (but must be initialized to 0) size: *nrc */
  doublereal *ups; /*array input size: *ndxloc X (*ndim X *ncol) */
  doublereal *uoldps; /*array input size: *ndxloc X (*ndim X *ncol) */
  doublereal *udotps; /*array input size: *ndxloc X (*ndim X *ncol) */
  doublereal *upoldp; /*array input size: *ndxloc X (*ndim X *ncol) */
  doublereal *dtm; /*array input size: *na */
  integer loop_start; /*scalar input*/
  integer loop_end; /*scalar input*/  
  integer loop_offset; /*scalar input*/
  doublereal *wp; /*array input size: MCL2*MCL1 */
  doublereal *wt; /*array input size: MCL2*MCL1 */
  doublereal *wi; /*array input size: MCL2*MCL1??? Not sure of this one yet */
  doublereal *thu; /*array input size: ndim * 8 */
  doublereal *thl; /*array input size: NPARX */ 
  doublereal *rldot; /*array input size: NPARX */ 
  BCNI_TYPE((*bcni));
} setubv_parallel_arglist;

/* This structure contains all of the input data for the conpar routine
   Those values which are arrays and those
   which are input and output are markered as such*/
typedef struct {
  integer *nov, *nra, *nca; /*scalars input*/
  doublereal *a; /*array input and output size: nca X nra X na */
  integer *ncb; /*scalar input */
  doublereal *b; /*array input and output size: ncb X nra X na*/
  integer *nbc, *nrc; /*scalar input */
  doublereal *c; /*array input and output size: nca X nrc X *na*/
  doublereal *d; /*array input and output size: ncb X nrc*/
  integer *irf; /*array input size: na X nra*/
  integer *icf; /*array input: na X nca*/
  integer loop_start; /*scalar input*/
  integer loop_end; /*scalar output*/  
} conpar_parallel_arglist;
#endif