In pbeq2.src, routine SAVGD1, try changing this
INTEGER I
IF(UNIT.GT.0)THEN
IF(PRNLEV.GE.2) WRITE(OUTU,'(3x,A)')
$ 'FIRST RECORD IS: NCLX,NCLY,NCLZ,DCEL,XBCEN,YBCEN,ZBCEN'
IF(PRNLEV.GE.2) WRITE(OUTU,'(3x,A)')
$ ' EPSW,EPSP,CONC,TMEMB,ZMEMB,EPSM'
WRITE(UNIT) NCLX,NCLY,NCLZ,DCEL,XBCEN,YBCEN,ZBCEN
to
INTEGER I
INTEGER*4 NCLX4,NCLY4,NCLZ4
IF(UNIT.GT.0)THEN
NCLX4=NCLX
NCLY4=NCLY
NCLZ4=NCLZ
IF(PRNLEV.GE.2) WRITE(OUTU,'(3x,A)')
$ 'FIRST RECORD IS: NCLX,NCLY,NCLZ,DCEL,XBCEN,YBCEN,ZBCEN'
IF(PRNLEV.GE.2) WRITE(OUTU,'(3x,A)')
$ ' EPSW,EPSP,CONC,TMEMB,ZMEMB,EPSM'
WRITE(UNIT) NCLX4,NCLY4,NCLZ4,DCEL,XBCEN,YBCEN,ZBCEN
_________________________
Lennart Nilsson
Karolinska Institutet
Stockholm, Sweden