Hello jjgermis,
Thanks for your reply. I send you the DUMP and RGDUMP files They are part of the huge main file VLUGR2. It has to to with the lenght of the file.:
SUBROUTINE DUMP (LUNDMP, RWK, IWK)
C
C-----------------------------------------------------------------------
C
Ccc PARAMETER SPECIFICATION:
INTEGER LUNDMP, IWK()
DOUBLE PRECISION RWK()
C
Ccc PURPOSE:
C Dump all information necessary for a restart of VLUGR2 on file
C
Ccc PARAMETER DESCRIPTION:
C LUNDMP : IN. Logical unit number of dumpfile. Should be opened as an
C unformatted file.
C RWK : IN. Real workstorage as returned from VLUGR2
C IWK : IN. Integer workstorage as returned from VLUGR2
C
Ccc EXTERNALS USED: NONE
C
C
Ccc INCLUDE 'CMNSTATS'
C
C CMNSTATS
C
C COMMON with integration statistics
INTEGER MXCLEV, MXCNIT
PARAMETER (MXCLEV = 10, MXCNIT = 20)
INTEGER LUNPDS, LUNNLS, LUNLSS, LEVEL, NSTEPS, NREJS,
+ NJACS(MXCLEV), NRESID(MXCLEV), NNIT(MXCLEV),
+ NLSIT(MXCLEV,MXCNIT)
COMMON /STATS/ LUNPDS, LUNNLS, LUNLSS, LEVEL, NSTEPS, NREJS,
+ NJACS, NRESID, NNIT, NLSIT
SAVE /STATS/
C
C end INCLUDE 'CMNSTATS'
C
C
Ccc INCLUDE 'CMNWRITEF'
C
C CMNWRITEF
C
C COMMON needed for continuation calls
INTEGER MAXLVW, NPDEW, LRWKPS, LIWKPS, LRWKB, LIWKB
LOGICAL FIRST, SECOND
DOUBLE PRECISION T0, TW, TEW, DTW, XLW, YLW, XRW, YUW, DXB, DYB,
+ DTO
COMMON /WRITIF/ MAXLVW, NPDEW, LRWKPS, LIWKPS, LRWKB, LIWKB
COMMON /WRITLF/ FIRST, SECOND
COMMON /WRITRF/ T0, TW, TEW, DTW, XLW,YLW, XRW,YUW, DXB, DYB, DTO
SAVE /WRITIF/, /WRITLF/, /WRITRF/
C
C end INCLUDE 'CMNWRITEF'
C
C
C-----------------------------------------------------------------------
C
INTEGER I, J
WRITE(LUNDMP) MAXLVW, NPDEW, LRWKPS, LIWKPS, LRWKB, LIWKB,
+ FIRST, SECOND,
+ T0, TW, TEW, DTW, XLW, YLW, XRW, YUW, DXB, DYB, DTO
WRITE(LUNDMP) LUNPDS, LUNNLS, LUNLSS, LEVEL, NSTEPS, NREJS,
+ (NJACS(I), I=1,MXCLEV), (NRESID(I), I=1,MXCLEV),
+ (NNIT(I), I=1,MXCLEV), ((NLSIT(I,J), I=1,MXCLEV), J=1,MXCNIT)
WRITE(LUNDMP) (RWK(I), I=1,LRWKPS+LRWKB)
WRITE(LUNDMP) (IWK(I), I=1,LIWKPS+LIWKB)
RETURN
END
SUBROUTINE RDDUMP (LUNDMP, RWK, LENRWK, IWK, LENIWK)
C
C-----------------------------------------------------------------------
C
Ccc PARAMETER SPECIFICATION:
INTEGER LENIWK
INTEGER LUNDMP, LENRWK, IWK(LENIWK)
DOUBLE PRECISION RWK(LENRWK)
C
Ccc PURPOSE:
C Read all information necessary for a restart of VLUGR2 from file
C
Ccc PARAMETER DESCRIPTION:
C LUNDMP : IN. Logical unit number of dumpfile. Should be opened as an
C unformatted file.
C RWK : OUT. Real workstorage intended to pass to VLUGR2
C LENRWK : IN. Dimension of RWK.
C IWK : OUT. Integer workstorage intended to pass to VLUGR2
C LENIWK : IN. Dimension of IWK.
C
Ccc EXTERNALS USED: NONE
C
C
Ccc INCLUDE 'CMNSTATS'
C
C CMNSTATS
C
C COMMON with integration statistics
INTEGER MXCLEV, MXCNIT
PARAMETER (MXCLEV = 10, MXCNIT = 20)
INTEGER LUNPDS, LUNNLS, LUNLSS, LEVEL, NSTEPS, NREJS,
+ NJACS(MXCLEV), NRESID(MXCLEV), NNIT(MXCLEV),
+ NLSIT(MXCLEV,MXCNIT)
COMMON /STATS/ LUNPDS, LUNNLS, LUNLSS, LEVEL, NSTEPS, NREJS,
+ NJACS, NRESID, NNIT, NLSIT
SAVE /STATS/
C
C end INCLUDE 'CMNSTATS'
C
C
Ccc INCLUDE 'CMNWRITEF'
C
C CMNWRITEF
C
C COMMON needed for continuation calls
INTEGER MAXLVW, NPDEW, LRWKPS, LIWKPS, LRWKB, LIWKB
LOGICAL FIRST, SECOND
DOUBLE PRECISION T0, TW, TEW, DTW, XLW, YLW, XRW, YUW, DXB, DYB,
+ DTO
COMMON /WRITIF/ MAXLVW, NPDEW, LRWKPS, LIWKPS, LRWKB, LIWKB
COMMON /WRITLF/ FIRST, SECOND
COMMON /WRITRF/ T0, TW, TEW, DTW, XLW,YLW, XRW,YUW, DXB, DYB, DTO
SAVE /WRITIF/, /WRITLF/, /WRITRF/
C
C end INCLUDE 'CMNWRITEF'
C
C
C-----------------------------------------------------------------------
C
INTEGER I, J
READ(LUNDMP) MAXLVW, NPDEW, LRWKPS, LIWKPS, LRWKB, LIWKB,
+ FIRST, SECOND,
+ T0, TW, TEW, DTW, XLW, YLW, XRW, YUW, DXB, DYB, DTO
IF (LENRWK .LT. LRWKPS+LRWKB .OR. LENIWK .LT. LIWKPS+LIWKB) THEN
PRINT *, LENRWK, LRWKPS+LRWKB, LENIWK, LIWKPS+LIWKB
STOP 'work space too small'
ENDIF
READ(LUNDMP) LUNPDS, LUNNLS, LUNLSS, LEVEL, NSTEPS, NREJS,
+ (NJACS(I), I=1,MXCLEV), (NRESID(I), I=1,MXCLEV),
+ (NNIT(I), I=1,MXCLEV), ((NLSIT(I,J), I=1,MXCLEV), J=1,MXCNIT)
READ(LUNDMP) (RWK(I), I=1,LRWKPS+LRWKB)
READ(LUNDMP) (IWK(I), I=1,LIWKPS+LIWKB)
C
RETURN
END
LOGICAL FUNCTION CHKWRK (LRWKN, LENRWK, LIWKN, LENIWK,
+ LLWKN, LENLWK)
C-----------------------------------------------------------------------
INTEGER LRWKN, LENRWK, LIWKN, LENIWK, LLWKN, LENLWK
C
C
Ccc INCLUDE 'CMNCMMACH'
C
C CMNCMMACH
C
C COMMON with `machine numbers'
C LUNOUT : Logical unit # standard output -I
C LUNERR : Logical unit # standard error I Set in the routine
C UROUND : Smallest machine number such that I MACNUM
C 1.0+UROUND > 1.0 and 1.0-UROUND < 1.0 I
C XMIN : Smallest floating-point number -I
INTEGER LUNOUT, LUNERR
DOUBLE PRECISION UROUND, XMIN
COMMON /IMACH/ LUNOUT, LUNERR
COMMON /RMACH/ UROUND, XMIN
SAVE /IMACH/, /RMACH/
C
C end INCLUDE 'CMNCMMACH'
C
C-----------------------------------------------------------------------
CHKWRK = .TRUE.
IF (LRWKN .GT. LENRWK) THEN
WRITE(LUNERR,
+ '(''Real workspace too small, required at least:'',I10)')
+ LRWKN
CHKWRK = .FALSE.
ENDIF
IF (LIWKN .GT. LENIWK) THEN
WRITE(LUNERR,
+ '(''Integer workspace too small, required at least:'',I10)')
+ LIWKN
CHKWRK = .FALSE.
ENDIF
IF (LLWKN .GT. LENLWK) THEN
WRITE(LUNERR,
+ '(''Logical workspace too small, required at least:'',I10)')
+ LLWKN
CHKWRK = .FALSE.
ENDIF
RETURN
END
The error is and the first read(lundmp) ....
lundmp is the file number 89
regards reinoud
