diff --git a/tools/diachro/src/DIAPRO/prints.f90 b/tools/diachro/src/DIAPRO/prints.f90
index 630e2a8370ac468688d9cd0429232f4b93006614..0c84925b502dc39fd713adaab76080e9c0a042a0 100644
--- a/tools/diachro/src/DIAPRO/prints.f90
+++ b/tools/diachro/src/DIAPRO/prints.f90
@@ -110,7 +110,7 @@ CHARACTER(LEN=16) :: YRECFM
 CHARACTER(LEN=40) :: YTEM
 ! Aout 99 Longueur YCOMMENT passee de 20 A 100
 CHARACTER(LEN=100) :: YCOMMENT
-CHARACTER(LEN=16),DIMENSION(2000),SAVE    :: YGROUP 
+CHARACTER(LEN=16),DIMENSION(5000),SAVE    :: YGROUP 
 !
 !-------------------------------------------------------------------------------
 IIB=1+JPHEXT; IIE=NIMAX+JPHEXT
diff --git a/tools/diachro/src/DIAPRO/read_filehead.f90 b/tools/diachro/src/DIAPRO/read_filehead.f90
index 8ae07a8f0135a8666e7b810d87b7e936f8f41610..bdc450f6c305489fc9d41dd474e1bc47f6717289 100644
--- a/tools/diachro/src/DIAPRO/read_filehead.f90
+++ b/tools/diachro/src/DIAPRO/read_filehead.f90
@@ -62,7 +62,7 @@ CHARACTER(LEN=*) :: HFILEDIA, HLUOUTDIA
 !
 CHARACTER(LEN=16) :: YRECFM
 CHARACTER(LEN=100) :: YCOMMENT
-CHARACTER(LEN=16),DIMENSION(2000),SAVE    :: YGROUP 
+CHARACTER(LEN=16),DIMENSION(5000),SAVE    :: YGROUP 
 INTEGER   ::   ILENG, ILENCH, IGRID, J, JJ, ILENDIM
 INTEGER   ::   IRESPDIA
 INTEGER,SAVE   ::   IGROUP=0
@@ -84,7 +84,6 @@ IF (IRESPDIA .NE. 0) THEN
   print*,' (ne pas appliquer conv2dia sur la sortie .000 du run)'
   STOP
 END IF
-
 ALLOCATE(ITABCHAR(ILENG))
 YRECFM='MENU_BUDGET'
 CALL FMREAD(HFILEDIA,YRECFM,HLUOUTDIA,ILENG,ITABCHAR, &