Compressible example
Local variables to be added
The following local variables need to be defined for the examples in this section:
integer, allocatable, dimension(:) :: lstelt
integer iel
integer iscal, imodif
double precision, allocatable, dimension(:) :: w1, w2, w3, w4
double precision, dimension(:), pointer :: crom
Allocation
Before user initialization, work arrays must be allocated.
Initialization
The following initialization block needs to be added for the following examples:
enddo
rtp(iel,
isca(iscal)) = 0.d0
enddo
enddo
endif
if(.true.) then
ithvar = ithvar*2
enddo
endif
if(.false.) then
ithvar = ithvar*3
enddo
endif
if(.true.) then
ithvar = ithvar*5
enddo
endif
if(.false.) then
ithvar = ithvar*7
enddo
endif
endif
Finalization
At the end of the subroutine, it is recommended to deallocate the work arrays:
deallocate(lstelt)
deallocate(w1, w2, w3, w4)