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: /*-------------------------------------------------------------*/