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)