ex2f90.F90 (c20d77252dee0f9c80fc6f8b1a6f948e11175edb) ex2f90.F90 (d33816bfcbbe95b28482189fc4eaa06ffaf4fc8d)
1 program main
2#include <petsc/finclude/petscdmplex.h>
3 use petscdmplex
4 use petscsys
5 implicit none
6
7 DM dm
8 PetscInt, target, dimension(3) :: EC
9 PetscInt, target, dimension(2) :: VE
10 PetscInt, pointer :: pEC(:), pVE(:)
11 PetscInt, pointer :: nClosure(:)
12 PetscInt, pointer :: nJoin(:)
13 PetscInt, pointer :: nMeet(:)
14 PetscInt dim, cell, size
1 program main
2#include <petsc/finclude/petscdmplex.h>
3 use petscdmplex
4 use petscsys
5 implicit none
6
7 DM dm
8 PetscInt, target, dimension(3) :: EC
9 PetscInt, target, dimension(2) :: VE
10 PetscInt, pointer :: pEC(:), pVE(:)
11 PetscInt, pointer :: nClosure(:)
12 PetscInt, pointer :: nJoin(:)
13 PetscInt, pointer :: nMeet(:)
14 PetscInt dim, cell, size
15 PetscInt i0,i1,i2,i3,i4,i5,i6,i7
15 PetscInt i0,i1,i2,i3,i6,i7
16 PetscInt i8,i9,i10,i11
17 PetscErrorCode ierr
18
19 i0 = 0
20 i1 = 1
21 i2 = 2
22 i3 = 3
16 PetscInt i8,i9,i10,i11
17 PetscErrorCode ierr
18
19 i0 = 0
20 i1 = 1
21 i2 = 2
22 i3 = 3
23 i4 = 4
24 i5 = 5
25 i6 = 6
26 i7 = 7
27 i8 = 8
28 i9 = 9
29 i10 = 10
30 i11 = 11
31
32 call PetscInitialize(PETSC_NULL_CHARACTER,ierr)

--- 130 unchanged lines hidden --- 		23 i6 = 6
24 i7 = 7
25 i8 = 8
26 i9 = 9
27 i10 = 10
28 i11 = 11
29
30 call PetscInitialize(PETSC_NULL_CHARACTER,ierr)

--- 130 unchanged lines hidden ---