diff --git a/tools/diachro/src/DIAPRO/imcou_fordiachro.f90 b/tools/diachro/src/DIAPRO/imcou_fordiachro.f90
index 5070af64d21e41bfd859c8b2f46118927e71c567..8f6cbc4711ef52257cc36f0c762cf2ec60719fa7 100644
--- a/tools/diachro/src/DIAPRO/imcou_fordiachro.f90
+++ b/tools/diachro/src/DIAPRO/imcou_fordiachro.f90
@@ -211,7 +211,7 @@ COMMON/LOGI/LVERT,LHOR,LPT,LXABS
COMMON/COLAREA/ICOL(300)
COMMON/HACHAREA/IHACH(300)
#include "big.h"
-REAL,DIMENSION(N2DVERTX,400) :: XZWORKZ
+REAL,DIMENSION(N2DVERTX,2500) :: XZWORKZ
!REAL,DIMENSION(1000,400) :: XZWORKZ
!REAL,DIMENSION(200,200) :: XZWORKZ
REAL,DIMENSION(N2DVERTX) :: XZZDS
diff --git a/tools/diachro/src/DIAPRO/imcoupv_fordiachro.f90 b/tools/diachro/src/DIAPRO/imcoupv_fordiachro.f90
index af1dedb704cd7e1b5b3ffe89fecfc6943254bb4d..0f2b736c9e336f2abe5ffad8bf69b5545c6b876b 100644
--- a/tools/diachro/src/DIAPRO/imcoupv_fordiachro.f90
+++ b/tools/diachro/src/DIAPRO/imcoupv_fordiachro.f90
@@ -160,7 +160,7 @@ END INTERFACE
COMMON/LOGI/LVERT,LHOR,LPT,LXABS
COMMON/TEMV/XZWORKZ,XZZDS,NINX,NINY
#include "big.h"
-REAL,DIMENSION(N2DVERTX,400):: XZWORKZ
+REAL,DIMENSION(N2DVERTX,2500):: XZWORKZ
!REAL,DIMENSION(1000,400):: XZWORKZ
!REAL,DIMENSION(200,200) :: XZWORKZ
REAL,DIMENSION(N2DVERTX):: XZZDS
diff --git a/tools/diachro/src/DIAPRO/imcouv_fordiachro.f90 b/tools/diachro/src/DIAPRO/imcouv_fordiachro.f90
index 3962aa7c0ddf18c7aa1beefeca84d32a9087b1cf..16fd204ce4a1ac142a51886e55c8c7cbc831a736 100644
--- a/tools/diachro/src/DIAPRO/imcouv_fordiachro.f90
+++ b/tools/diachro/src/DIAPRO/imcouv_fordiachro.f90
@@ -159,7 +159,7 @@ END INTERFACE
COMMON/LOGI/LVERT,LHOR,LPT,LXABS
COMMON/TEMV/XZWORKZ,XZZDS,NINX,NINY
#include "big.h"
-REAL,DIMENSION(N2DVERTX,400):: XZWORKZ
+REAL,DIMENSION(N2DVERTX,2500):: XZWORKZ
!REAL,DIMENSION(1000,400):: XZWORKZ
!REAL,DIMENSION(200,200) :: XZWORKZ
REAL,DIMENSION(N2DVERTX):: XZZDS
diff --git a/tools/diachro/src/DIAPRO/interpolw.f90 b/tools/diachro/src/DIAPRO/interpolw.f90
index 768f75a4f5e8fcc4058ea03755d08cbe085cb10a..f8b2fc959963f0fa59f306f19876cf30f3869aad 100644
--- a/tools/diachro/src/DIAPRO/interpolw.f90
+++ b/tools/diachro/src/DIAPRO/interpolw.f90
@@ -57,7 +57,7 @@ IMPLICIT NONE
COMMON/LOGI/LVERT,LHOR,LPT,LXABS
COMMON/TEMV/XZWORKZ,XZZDS,NINX,NINY
#include "big.h"
-REAL,DIMENSION(N2DVERTX,400):: XZWORKZ
+REAL,DIMENSION(N2DVERTX,2500):: XZWORKZ
!REAL,DIMENSION(1000,400):: XZWORKZ
REAL,DIMENSION(N2DVERTX):: XZZDS
!REAL,DIMENSION(1000):: XZZDS
diff --git a/tools/diachro/src/DIAPRO/pro1d_fordiachro.f90 b/tools/diachro/src/DIAPRO/pro1d_fordiachro.f90
index 38897ac0a0ae3e914e1a921cb4657eb50c18c4bf..cec539a7e8f2e442564499ebd58ab619e8514ba1 100644
--- a/tools/diachro/src/DIAPRO/pro1d_fordiachro.f90
+++ b/tools/diachro/src/DIAPRO/pro1d_fordiachro.f90
@@ -662,21 +662,21 @@ ENDIF
CALL RESOLV_TIT('CTITXL',YTEM)
IF(YTEM /= ' ' .AND. YTEM /= 'DEFAULT')THEN
CALL RESOLV_TIT('CTITXL',YTEM)
- CALL PLCHHQ(ZVL,ZVB-MIN(ZVB/2.,.05),YTEM,.008,0.,-1.)
+ CALL PLCHHQ(ZVL,ZVB-MIN(ZVB/2.,.05),YTEM,XSZTITXL,0.,-1.)
! CALL PLCHHQ(ZVL,ZVB/2.,YTEM,.008,0.,-1.)
ENDIF
YTEM(1:LEN(YTEM))=' '
CALL RESOLV_TIT('CTITXM',YTEM)
IF(YTEM /= ' ' .AND. YTEM /= 'DEFAULT')THEN
CALL RESOLV_TIT('CTITXM',YTEM)
- CALL PLCHHQ((ZVL+ZVR)/2.,ZVB-MIN(ZVB/2.,.05),YTEM(1:LEN_TRIM(YTEM)),.008,0.,0.)
+ CALL PLCHHQ((ZVL+ZVR)/2.,ZVB-MIN(ZVB/2.,.05),YTEM(1:LEN_TRIM(YTEM)),XSZTITXM,0.,0.)
! CALL PLCHHQ((ZVL+ZVR)/2.,ZVB/2.,YTEM(1:LEN_TRIM(YTEM)),.008,0.,0.)
ENDIF
YTEM(1:LEN(YTEM))=' '
CALL RESOLV_TIT('CTITXR',YTEM)
IF(YTEM /= ' ' .AND. YTEM /= 'DEFAULT')THEN
CALL RESOLV_TIT('CTITXR',YTEM)
- CALL PLCHHQ(ZVR,ZVB-MIN(ZVB/2.,.05),YTEM,.008,0.,+1.)
+ CALL PLCHHQ(ZVR,ZVB-MIN(ZVB/2.,.05),YTEM,XSZTITXR,0.,+1.)
! CALL PLCHHQ(ZVR-ZVB/2.,ZVB/2.,YTEM,.008,0.,-1.)
ENDIF
if(nverbia > 0)then
diff --git a/tools/diachro/src/DIAPRO/pvfct.f90 b/tools/diachro/src/DIAPRO/pvfct.f90
index 249e26d6708d7a5ec2f22ecba3b0c4042cf4b707..dbc70952a1985de8016947c2ff9b18317204ba13 100644
--- a/tools/diachro/src/DIAPRO/pvfct.f90
+++ b/tools/diachro/src/DIAPRO/pvfct.f90
@@ -97,7 +97,7 @@ END INTERFACE
COMMON/TEMV/XZWORKZ,XZZDS,NINX,NINY
COMMON/LOGI/LVERT,LHOR,LPT,LXABS
#include "big.h"
-REAL,DIMENSION(N2DVERTX,400) :: XZWORKZ
+REAL,DIMENSION(N2DVERTX,2500) :: XZWORKZ
!REAL,DIMENSION(1000,400) :: XZWORKZ
!REAL,DIMENSION(200,200) :: XZWORKZ
REAL,DIMENSION(N2DVERTX) :: XZZDS
diff --git a/tools/diachro/src/DIAPRO/subspxy.f90 b/tools/diachro/src/DIAPRO/subspxy.f90
index bc7ed793e927c1c465b17e16f4190e7089a4f105..e9e5290bee51fc888e9c7b44079d10672bed6882 100644
--- a/tools/diachro/src/DIAPRO/subspxy.f90
+++ b/tools/diachro/src/DIAPRO/subspxy.f90
@@ -160,7 +160,7 @@ END INTERFACE
COMMON/TEMV/XZWORKZ,XZZDS,NINX,NINY
COMMON/LOGI/LVERT,LHOR,LPT,LXABS
#include "big.h"
-REAL,DIMENSION(N2DVERTX,400) :: XZWORKZ
+REAL,DIMENSION(N2DVERTX,2500) :: XZWORKZ
!REAL,DIMENSION(1000,400) :: XZWORKZ
REAL,DIMENSION(N2DVERTX) :: XZZDS
!REAL,DIMENSION(1000) :: XZZDS
diff --git a/tools/diachro/src/POS/ficstr.f b/tools/diachro/src/POS/ficstr.f
index dd5334cb11fe45f5fddc9272a41d04ac85e2b914..598c7e140b2890871c319172022ee47d273d5463 100644
--- a/tools/diachro/src/POS/ficstr.f
+++ b/tools/diachro/src/POS/ficstr.f
@@ -4215,7 +4215,7 @@ C
REAL ZZXX(N2DVERTX),ZZXY(N2DVERTX)
c REAL ZZXX(4000),ZZXY(400)
cc REAL ZZXX(1000),ZZXY(400)
- REAL ZWORKZ(N2DVERTX,400),ZZDS(N2DVERTX)
+ REAL ZWORKZ(N2DVERTX,2500),ZZDS(N2DVERTX)
c REAL ZWORKZ(4000,400),ZZDS(4000)
cc REAL ZWORKZ(1000,400),ZZDS(1000)
LOGICAL LVERT,LHOR,LPT,LXABS
@@ -4421,7 +4421,7 @@ C
REAL ZZXX(N2DVERTX),ZZXY(N2DVERTX)
c REAL ZZXX(4000),ZZXY(400)
cc REAL ZZXX(1000),ZZXY(400)
- REAL ZWORKZ(N2DVERTX,400),ZZDS(N2DVERTX)
+ REAL ZWORKZ(N2DVERTX,2500),ZZDS(N2DVERTX)
c REAL ZWORKZ(4000,400),ZZDS(4000)
cc REAL ZWORKZ(1000,400),ZZDS(1000)
LOGICAL LVERT,LHOR,LPT,LXABS
diff --git a/tools/diachro/src/POS/frame41.f b/tools/diachro/src/POS/frame41.f
index 682c464be2b339a43f20aeb4e246b622235b5b67..e8d9353ce460bd02d75543d47258f286835b6c3d 100644
--- a/tools/diachro/src/POS/frame41.f
+++ b/tools/diachro/src/POS/frame41.f
@@ -219,7 +219,7 @@ C
#include "big.h"
C REAL ZWORKZ(600,300),ZZDS(600),ZZXX(600),ZZXY(300)
c REAL ZWORKZ(1000,400),ZZDS(1000),ZZXX(1000),ZZXY(400)
- REAL ZWORKZ(N2DVERTX,400),ZZDS(N2DVERTX)
+ REAL ZWORKZ(N2DVERTX,2500),ZZDS(N2DVERTX)
REAL ZZXX(N2DVERTX),ZZXY(N2DVERTX)
C REAL ZWORKZ(200,200),ZZDS(200),ZZXX(200),ZZXY(200)
LOGICAL LVERT,LHOR,LPT,LXABS
@@ -612,7 +612,7 @@ c DIMENSION ZZX(1000),ZZY(400)
DIMENSION ZZX(N2DVERTX),ZZY(N2DVERTX)
REAL ZZX,ZZY
c REAL ZWORKZ(1000,400),ZZDS(1000)
- REAL ZWORKZ(N2DVERTX,400),ZZDS(N2DVERTX)
+ REAL ZWORKZ(N2DVERTX,2500),ZZDS(N2DVERTX)
C REAL ZWORKZ(200,200),ZZDS(200)
INTEGER IIMAX,IJMAX
INTEGER INX,INY