diff --git a/source/voronoi/maindriver12.f b/source/voronoi/maindriver12.f
index 5e2343513104229175c09bb3f2e6def1f5ea1f5e..648fe9c2fa8888ef4b70b602a94604e35f76ddc0 100644
--- a/source/voronoi/maindriver12.f
+++ b/source/voronoi/maindriver12.f
@@ -1235,6 +1235,14 @@ c unshifted in sub. readinput).
          WRITE(69,FMT='(2I6)')  
      &        (SITEAT(IAT),IDSHAPE(SITEAT(IAT)),IAT=1,NATYP) ! CPA, NATYP>NAEZ
       ENDIF
+      
+      ! MdSD: some parameters for the radial mesh and related arrays
+      WRITE(69,*)
+      WRITE(69,'("IRMD=",I8)') MAXVAL(IRWS(1:NATYP),DIM=1)
+      WRITE(69,'("IRNSD=",I8)') MAXVAL(IRNS(1:NATYP),DIM=1)
+      WRITE(69,'("IRID=",I8)') MAXVAL(MESHN_ALL(1:NUMSHAPE),DIM=1)+NRAD
+      WRITE(69,'("IPAND=",I8)') MAXVAL(NPAN_ALL(1:NUMSHAPE),DIM=1)+1
+      WRITE(69,'("NFUND=",I8)') MAXVAL(NFUN_ALL(1:NUMSHAPE),DIM=1)
          
 
       CLOSE(69)