MODULE constants
        IMPLICIT NONE

        ! ** Double precision (i.e accuracy) **
        INTEGER, PARAMETER :: dp = SELECTED_REAL_KIND(12)  
        
        ! ** Needed in the solver of the norm minimization problem ** 
        INTEGER :: next
        INTEGER, SAVE :: NRES,NDEC,NREM,NADD,NIT,NFV,NFG,NFH
        
  
      END MODULE constants