---------------------------------------------------------
 
      N_part  numero particelle POSIZIONEte random con
      ------
      distribuzione assegnata.     N_mat   dimensione
                                   -----
      della   griglia con cui viene costruita la matrice
 
      rho_mat  densita` a partire dalle  N_part particelle
      -------
 
      si considera il reticolo shiftato rispetto a qello di centro
 
       sulle particelle
 
 
         ______________________
        |       |       |
        |   o ------o-------o
        |___| __|__ | __|__ |
        |   |   |   |   |   |
        |   o-------o-------o
        |___| __|__ | __|__ |
        |   |   |   |   |   |
        |   o ------o-------o
        |___| __|__ | __|__ |
        |   |   |   |   |   |
        |   o-------o-------o
        |___ ___|___ ___|________
 
 
 
      L  lato del quadrato su cui si annulla  rho
 -------------------------------------------------------
 =========================================================
 
subroutine rho_part1(rho_mat)
 
COMMONS: 
      include 'PARAM.f
      include'parameter-settings.f
 
SUBROUTINES USED:
  messages_n
 
micromap-index
Mon Jul 17 08:57:40 CEST 2017