MODIFICATIONS IN THE iSALE CODE, Dellen version, USED IN MOREAU ET AL. (2018a,2019a,2019b), Moreau and Schwinger (2019) and Gueldemeister et al. (2022)- this work

File copied and modified from Moreau et al. (2019b) with main author's autorization

WHY:

TO BE ABLE TO READ OUT A BMP FILE USING THE MESO_BMP SETUP THAT ALLOWS CORRECT
INITIALIZATION OF PARAMETERS AND TREATMENT OF VOID IN THE BMP WHEN READING
A BLACK RGB (0,0,0)

==============================================================================
setup_geometry_objects.F90

Line 194
--------

Replace this:
*************

        case (OBJTYPE_BITMAP) ! form from bitmap

           call read_bitmap(oo,k)

By this:
********

        case (OBJTYPE_BITMAP) ! form from bitmap
           call ptool_text_dble(io_oin,"     ... Test pressure",obj(5)%pressure,2) 
           call ptool_text_dble(io_oin,"     ... Test energy",obj(5)%sie,2) 
           call ptool_text_dble(io_oin,"     ... Test temp.",obj(5)%temp,2)
           call ptool_text_int(io_oin,"     ... K is.",k,2) 
           call read_bitmap(oo,k)

==============================================================================


==============================================================================
setup_geometry_particles.F90

Line 638
--------

Add to this condition:
**********************

        if (image(i,j,1) == 255 .and. image(i,j,2) == 255 .and. image (i,j,3) == 255) then
           cellType(ic,jc)%objID = iobj   ! White => background object
           cellType(ic,jc)%matID = oo%mat ! White => background object material
        else 
	   ...

The 'else' condition right after the 'if':
******************************************

        if (image(i,j,1) == 255 .and. image(i,j,2) == 255 .and. image (i,j,3) == 255) then
           cellType(ic,jc)%objID = iobj   ! White => background object
           cellType(ic,jc)%matID = oo%mat ! White => background object material
        else if (image(i,j,1) == 0 .and. image(i,j,2) == 0 .and. image (i,j,3) == 0) then
           cellType(ic,jc)%objID = 0   ! Black => void
           !cellType(ic,jc)%matID = oo%mat ! Black => void
        else
           ...

==============================================================================



==============================================================================
THESE NEXT CHANGES MAY HAVE NO CONSEQUENCES IF NOT APPLIED BUT THEY WHERE FOUND WHEN COMPARING
WITH THE ORIGINAL SOURCE. IT MIGHT HAVE BEEN CHANGES THAT J. MOREAU DIDN'T DELETE,
AND, THUS, MIGHT BE USELESS.

==============================================================================
setup_cells.F90

May not change anything ... but in case...

Line 21
--------

This was added:
***************

  use mod_setup_params

==============================================================================

==============================================================================
mod_gradient.F90

May not change anything ... but in case...

Line 121
--------

This was added:
***************

  use ptool_interface

==============================================================================


