FIXME : Add documentation
type dcell_type complex, dimension(:), pointer :: supercell => null() end type dcell_type