Actual source code: f90_hpux.c

  1: /*$Id: f90_hpux.c,v 1.9 2001/03/23 23:20:56 balay Exp $*/

  3: /*-------------------------------------------------------------*/

  7: int F90Array1dCreate(void *array,PetscDataType type,int start,int len,F90Array1d *ptr)
  8: {
  9:   int size,ierr;

 14:   PetscDataTypeGetSize(type,&size);
 15:   ptr->addr          = array;
 16:   ptr->cookie        = F90_COOKIE;
 17:   ptr->sd            = size;
 18:   ptr->ndim          = F90_1D_ID;
 19:   ptr->dim[0].extent = len;
 20:   ptr->dim[0].mult   = size;
 21:   ptr->dim[0].lower  = start;
 22:   return(0);
 23: }

 27: int F90Array2dCreate(void *array,PetscDataType type,int start1,int len1,int start2,int len2,F90Array2d *ptr)
 28: {
 29:   int size,ierr;

 34:   PetscDataTypeGetSize(type,&size);
 35:   ptr->addr          = array;
 36:   ptr->cookie        = F90_COOKIE;
 37:   ptr->sd            = size;
 38:   ptr->ndim          = F90_2D_ID;
 39:   ptr->dim[0].extent = len1;
 40:   ptr->dim[0].mult   = size;
 41:   ptr->dim[0].lower  = start1;
 42:   ptr->dim[1].extent = len2;
 43:   ptr->dim[1].mult   = len1*size;
 44:   ptr->dim[1].lower  = start2;
 45:   return(0);
 46: }
 47: /*-------------------------------------------------------------*/