Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

SEGMENTATION_FAULT IN STRESS_AUTO_CORRELATION_CODE

Status
Not open for further replies.

lehloks

Programmer
Jul 12, 2013
40
ZA

Hi Forum users

I have a velocity autocorrelation code which was made to read a three component velocity vectors and I have modified to read a 9 component stress tensor data. I can compile it successfully but when I try to run it and compute a stress correlation function I get an error: i.e. segmentation fault. I have also included the type of data formate the code was initially meant to correlate.


Thanks in advance for the help.

[C PROGRAM TCORR

COMMON / BLOCK1 / STORA, STORB, STORC, STORD,STORE,STORF,STORG,
& STORH, STORI
C COMMON / BLOCK2/STORB
COMMON / BLOCK2 / PA, PB, PC, PD, PE, PF, PG, PH , PI
c COMMON / BLOCK4/ VB
COMMON / BLOCK3 / PACF, ANORM

C *******************************************************************
C ** CALCULATION OF TIME CORRELATION FUNCTIONS. **
C ** **
C ** THIS PROGRAM ANALYZES DATA TO CALCULATE A TIME CORRELATION **
C ** FUNCTION IN ONE SWEEP (LOW MEMORY REQUIREMENT). IN THIS **
C ** EXAMPLE THE VELOCITY AUTO-CORRELATION FUNCTION IS CALCULATED. **
C ** **
C ** PRINCIPAL VARIABLES: **
C ** **
C ** INTEGER N NUMBER OF ATOMS
C ** INTEGER NSTEP NUMBER OF STEPS ON THE TAPE
C ** INTEGER IOR INTERVAL FOR TIME ORIGINS
C ** INTEGER NT CORRELATION LENGTH, INCLUDING T=0
C ** INTEGER NTIMOR NUMBER OF TIME ORIGINS
C ** INTEGER NLABEL LABEL FOR STEP (1,2,3...NSTEP)
C ** REAL VX(N),VY(N),VZ(N) VELOCITIES
C ** REAL VACF(NT) THE CORRELATION FUNCTION
C ** NSTEP AND NT SHOULD BE MULTIPLES OF IOR.
C ** REAL PA,PB,PC = Pxx,Pxy,Pxz STRESSES
C ** REAL PD,PE,PF = Pyx,Pyy,Pyz STRESSES
C ** REAL PG,PH,PI = Pzx,Pzy,Pzz STRESSES
C ** ROUTINES REFERENCED:
C ** **
C ** SUBROUTINE STORE (J1)
C ROUTINE TO STORE THE DATA FOR CORRELATION **
C SUBROUTINE CORR ( J1, J2, IT )
C ROUTINE TO CORRELATE THE STORED TIME ORIGINS **
C USAGE: **
C ** **
C DATA IN FILE DFILE ON FORTRAN UNIT DUNIT. **
C RESULTS IN FILE RFILE ON FORTRAN UNIT RUNIT. **
C *******************************************************************

INTEGER N, NSTEP, IOR, NT, NDIM, DUNIT, RUNIT, NTIMOR
INTEGER FULLUP
PARAMETER ( N = 2377, NSTEP = 8, IOR = 2, NT = 8 )
PARAMETER ( DUNIT = 10, RUNIT = 11 )
PARAMETER ( NDIM = NT / IOR + 1, NTIMOR = NSTEP / IOR )
PARAMETER ( FULLUP = NDIM - 1 )

REAL PA(N), PB(N), PC(N), PD(N), PE(N), PF(N), PG(N), PH(N), PI(N)
REAL STORA(NDIM,N), STORB(NDIM,N), STORC(NDIM,N),STORD(NDIM,N),
& STORE(NDIM,N),STORF(NDIM,N),STORG(NDIM,N),STORH(NDIM,N),
& STORI(NDIM,N)
REAL PACF(NT), ANORM(NT)
INTEGER S(NTIMOR), TM(NTIMOR)
INTEGER TS, TSS, L, NINCOR, K, R, JA, IB, IN, IA, JO, I
INTEGER NLABEL
CHARACTER DUMMY * 5
CHARACTER DFILE * 30
CHARACTER RFILE * 30

C *******************************************************************

WRITE(*,'('' **** PROGRAM TCORR **** '')')
WRITE(*,'('' CALCULATION OF TIME CORRELATION FUNCTIONS '')')

C ** READ IN FILE NAMES **

WRITE(*,'('' ENTER DATA FILE NAME '')')
READ (*,'(A)') DFILE
WRITE (*,'('' ENTER RESULTS FILE NAME '')')
READ (*,'(A)') RFILE

C ** INITIALIZE COUNTERS **

NINCOR = FULLUP
JA = 1
IA = 1
IB = 1

C ** ZERO ARRAYS **

DO 5 I = 1, NT

PACF(I) = 0.0
ANORM(I) = 0.0
write(*,*) PACF(I)
5 CONTINUE


C ** OPEN DATA FILE AND RESULTS FILE **

OPEN ( UNIT = 13, FILE = DFILE, STATUS = 'OLD',
: FORM = 'FORMATTED')

OPEN ( UNIT = RUNIT, FILE = RFILE, STATUS = 'NEW' )

C ** CALCULATION BEGINS **

DO 40 L = 1, NTIMOR

JA = JA + 1
S(L) = JA - 1

READ (13, '(A5,I4)') DUMMY, NLABEL
DO 7 R = 1, N
c READ (DUNIT,'(1X,F17.14,8(13X,F17.14))')PA(R),PB(R),PC(R),PD(R),
c & PE(R),PF(R),PG(R),PH(R),PI(R)

READ(13,'(E13.6,8(2X,E13.6))')PA(R),PB(R),PC(R),PD(R),
& PE(R),PF(R),PG(R),PH(R),PI(R)
7 CONTINUE

TM(L) = NLABEL
write(*,*) TM(L)

C ** STORE STEP AS A TIME ORIGIN **
CALL STOREE ( JA )

C ** CORRELATE THE ORIGINS IN STORE **

DO 10 IN = IA, L

TSS = TM(L) - TM(IN)
TS = TSS + 1
JO = S(IN) + 1
CALL CORR ( JO, JA, TS )

10 CONTINUE

C ** READ IN DATA BETWEEN TIME ORIGINS. THIS CAN **
C ** BE CONVENIENTLY STORED IN ELEMENT 1 OF THE **
C ** ARRAYS STORX ETC. AND CAN THEN BEN CORRELATED **
C ** WITH THE TIME ORIGINS. **

DO 30 K = 1, IOR - 1

READ (13, '(A5,I4)') DUMMY, NLABEL
DO 15 R = 1, N
c READ (DUNIT,'(1X,F17.14,8(13X,F17.14))')PA(R),PB(R),PC(R),PD(R),
c & PE(R),PF(R),PG(R),PH(R),PI(R)
READ(13,'(E13.6,8(2X,E13.6))')PA(R),PB(R),PC(R),PD(R),
& PE(R),PF(R),PG(R),PH(R),PI(R)

15 CONTINUE

CALL STOREE ( 1 )

DO 20 IN = IA, L

TSS = NLABEL - TM(IN)
TS = TSS + 1
JO = S(IN) + 1
CALL CORR ( JO, 1, TS )

20 CONTINUE

30 CONTINUE

IF ( L .GE. FULLUP ) THEN

IF ( L .EQ. NINCOR ) THEN

NINCOR = NINCOR + FULLUP
JA = 1

ENDIF

IA = IA + 1

ENDIF

40 CONTINUE

CLOSE ( DUNIT )

C ** NORMALISE CORRELATION FUNCTIONS **

PACF(1) = PACF(1) / ANORM(1) / REAL ( N )

DO 50 I = 2, NT

PACF(I) = PACF(I) / ANORM(I) / REAL ( N ) / PACF(1)

50 CONTINUE

WRITE ( RUNIT, '('' VELOCITY ACF '')')
WRITE ( RUNIT, '(I6,E15.6)') ( I, PACF(I), I = 1, NT )

CLOSE ( RUNIT )

STOP
END



SUBROUTINE STOREE ( J1 )

c COMMON/ BLOCK1 / STORX, STORY, STORZ, STORA, STORB
COMMON / BLOCK1 / STORA, STORB, STORC, STORD,STORE,STORF,STORG,
& STORH,STORI
c COMMON/BLOCK2/STORB
COMMON/ BLOCK2 / PA, PB, PC, PD, PE, PF, PG, PH, PI

C *******************************************************************
C ** SUBROUTINE TO STORE TIME ORIGINS **
C *******************************************************************

INTEGER J1
INTEGER N, NT, IOR, NDIM
PARAMETER ( N = 2377, NT = 8, IOR =8 )
PARAMETER ( NDIM = NT / IOR + 1 )

REAL STORA(NDIM,N), STORB(NDIM,N), STORC(NDIM,N),STORD(NDIM,N),
& STORE(NDIM,N),STORF(NDIM,N),STORG(NDIM,N),STORH(NDIM,N),
& STORI(NDIM,N)
REAL PA(N), PB(N), PC(N), PD(N), PE(N), PF(N),PG(N), PH(N), PI(N)
INTEGER I


DO 10 I = 1, N

STORA(J1,I) = PA(I)
STORB(J1,I) = PB(I)
STORC(J1,I) = PC(I)
STORD(J1,I) = PD(I)
STORE(J1,I) = PE(I)
STORF(J1,I) = PF(I)
STORG(J1,I) = PG(I)
STORH(J1,I) = PH(I)
STORI(J1,I) = PI(I)
10 CONTINUE

RETURN
END



SUBROUTINE CORR ( J1, J2, IT )

COMMON / BLOCK1 / STORA, STORB, STORC, STORD,STORE,STORF,STORG,
& STORH,STORI
c COMMON/ BLOCK1 / STORX, STORY, STORZ,STORA
COMMON/ BLOCK3 / PACF, ANORM

C *******************************************************************
C ** SUBROUTINE TO CORRELATE TIME ORIGINS **
C *******************************************************************

INTEGER J1, J2, IT
INTEGER N, NT, IOR, NDIM
PARAMETER ( N = 2377, NT = 8, IOR = 8 )
PARAMETER ( NDIM = NT / IOR + 1 )

REAL STORA(NDIM,N), STORB(NDIM,N), STORC(NDIM,N),STORD(NDIM,N),
& STORE(NDIM,N),STORF(NDIM,N),STORG(NDIM,N),STORH(NDIM,N),
& STORI(NDIM,N)

c REAL STORX(NDIM,N), STORY(NDIM,N), STORZ(NDIM,N),STORA(NDIM,N),
c & STORB(NDIM,N)
REAL PACF(NT), ANORM(NT)
INTEGER I

C ********************************************************************

DO 10 I = 1, N

PACF(IT) = PACF(IT) + STORA(J1,I) * STORA(J2,I)
: + STORB(J1,I) * STORB(J2,I)
: + STORC(J1,I) * STORC(J2,I)
: + STORD(J1,I) * STORD(J2,I)
: + STORE(J1,I) * STORE(J2,I)
: + STORF(J1,I) * STORF(J2,I)
: + STORG(J1,I) * STORG(J2,I)
: + STORH(J1,I) * STORH(J2,I)
: + STORI(J1,I) * STORI(J2,I)
10 CONTINUE

ANORM(IT) = ANORM(IT) + 1.0

RETURN
END


c WRITE (*,*) 'Heat correlation function generated.'
c WRITE(*,*) jijj
c volume = boxx*boxy*boxz
c lambda = 1.6022D6*jijj*tstep/3.0D0/kb/volume/temp/temp ! W/m-K
c jjlambda = 1.6022D6*jjtotal*tstep/3.0D0/kb/volume/temp/temp
c WRITE(*,*) 'thermal conductivity', lambda
c OPEN (UNIT=11,FILE=flambda,STATUS='unknown')
c WRITE(11,*) 'temperature =', temp, 'K'
c WRITE(11,*) 'thermal conductivity =', lambda, 'W/m-K'
c WRITE(11,*) 'K(w) =', jjlambda, 'W/m-K'
c WRITE(11,*) 'Alpha =', alpha
c DO i=1, mavg
c WRITE (11, *) i, Stresscorr(i)
c ENDDO

]



Data to be correlated:

[-9.568336E+00 -1.615161E+00 1.042644E+00 -1.615161E+00 -1.131916E+01 -6.979813E-01 1.042644E+00 -6.979813E-01 -1.182917E+01
-4.765572E-01 9.005122E-01 -2.282920E+00 9.005122E-01 -3.827857E+00 -3.206736E+00 -2.282920E+00 -3.206736E+00 -6.252462E+00
-1.012710E+01 4.672368E-01 8.791873E-02 4.672368E-01 -4.680832E+00 -5.271814E-01 8.791873E-02 -5.271814E-01 -1.898345E-01
-7.699012E+00 -9.906154E-01 7.450304E-01 -9.906154E-01 -1.061230E+00 -3.546956E+00 7.450304E-01 -3.546956E+00 -6.843898E+00
-3.544260E+00 4.254020E+00 -1.963602E+00 4.254020E+00 3.740858E+00 -4.587760E+00 -1.963602E+00 -4.587760E+00 -6.776258E+00
1.755595E-01 -9.625855E-01 -2.395960E+00 -9.625855E-01 -1.701399E+00 -8.483695E-01 -2.395960E+00 -8.483695E-01 -4.165223E+00
-3.244186E+00 5.540608E+00 -4.951768E-01 5.540608E+00 3.068601E+00 -1.613010E-01 -4.951768E-01 -1.613010E-01 -5.641277E+00
-8.985849E+00 1.870244E+00 -2.295795E-01 1.870244E+00 -4.635924E+00 -4.787461E+00 -2.295795E-01 -4.787461E+00 -3.014272E+00
-1.651073E-01 -6.326584E-01 -3.028051E+00 -6.326584E-01 -2.621833E+00 -2.640439E+00 -3.028051E+00 -2.640439E+00 1.668877E+00
1.250349E+00 3.054784E+00 -2.898975E+00 3.054784E+00 8.419503E-01 9.620184E-01 -2.898975E+00 9.620184E-01 1.479256E+00
-7.796195E-01 1.942983E+00 -2.736569E+00 1.942983E+00 6.073043E+00 -2.520281E+00 -2.736569E+00 -2.520281E+00 -9.600832E-01
4.697066E-01 3.138124E+00 -1.092573E+00 3.138124E+00 -2.099285E+00 -1.581031E+00 -1.092573E+00 -1.581031E+00 -6.285002E-01
3.017532E-01 -9.701574E-02 1.611936E+00 -9.701574E-02 -1.762075E+00 -3.401961E+00 1.611936E+00 -3.401961E+00 -6.889746E-01
1.177410E-01 5.090611E-01 1.452691E-01 5.090611E-01 5.695570E+00 -3.573245E+00 1.452691E-01 -3.573245E+00 -1.099615E+00
-5.180126E+00 -1.876409E-01 -2.067182E+00 -1.876409E-01 1.611177E+00 5.458450E-01 -2.067182E+00 5.458450E-01 1.026071E+00
1.477567E+00 1.598949E+00 -1.577546E+00 1.598949E+00 3.933810E+00 -2.698132E+00 -1.577546E+00 -2.698132E+00 3.485029E+00
-2.533324E+00 1.753033E+00 1.425241E-01 1.753033E+00 2.406501E+00 -1.147217E+00 1.425241E-01 -1.147217E+00 3.065603E-01
-2.360274E+00 1.312721E+00 -3.711419E-01 1.312721E+00 2.556935E+00 3.152605E-01 -3.711419E-01 3.152605E-01 3.378170E+00
-1.698217E+00 1.105760E+00 3.780822E-01 1.105760E+00 2.736574E+00 7.920578E-01 3.780822E-01 7.920578E-01 -6.596856E-01
-5.099544E+00 1.647542E-01 -1.036544E+00 1.647542E-01 3.845429E+00 -1.034068E+00 -1.036544E+00 -1.034068E+00 -3.152053E+00
-2.686567E+00 1.335786E+00 -1.889911E-01 1.335786E+00 9.755267E-01 9.322043E-01 -1.889911E-01 9.322043E-01 3.229615E-01
1.542994E-01 3.104663E+00 -1.634353E-01 3.104663E+00 4.090105E+00 -1.128244E+00 -1.634353E-01 -1.128244E+00 -2.909383E-01
-4.235419E-01 1.554157E+00 3.475430E+00 1.554157E+00 4.701173E+00 -1.789414E+00 3.475430E+00 -1.789414E+00 1.517218E+00
-8.054924E-01 -1.167935E+00 -1.123460E+00 -1.167935E+00 1.169303E+00 -2.171076E+00 -1.123460E+00 -2.171076E+00 -5.636150E+00
-1.617491E+00 4.003700E+00 1.378316E+00 4.003700E+00 -1.665934E+00 1.498592E-01 1.378316E+00 1.498592E-01 -1.206797E+00
5.260921E-01 1.651686E+00 -2.646774E-01 1.651686E+00 -1.762373E-01 -9.632670E-02 -2.646774E-01 -9.632670E-02 1.977057E+00
9.813598E-01 1.625447E+00 2.023088E+00 1.625447E+00 2.490276E+00 -2.670705E-01 2.023088E+00 -2.670705E-01 -1.870441E+00
-5.655597E+00 1.939740E+00 2.297268E+00 1.939740E+00 -8.480003E-02 -3.918615E+00 2.297268E+00 -3.918615E+00 -3.121072E+00
-7.801742E-01 1.287923E+00 -4.939918E-01 1.287923E+00 -2.809879E-02 -2.932175E+00 -4.939918E-01 -2.932175E+00 -4.770079E+00
2.002557E-01 8.336137E-01 -1.590110E-01 8.336137E-01 2.130667E+00 5.596286E-01 -1.590110E-01 5.596286E-01 -1.750873E-01
-3.372541E+00 4.301007E-01 1.537803E+00 4.301007E-01 5.802335E+00 -1.827391E+00 1.537803E+00 -1.827391E+00 -1.537462E+00
-4.435659E+00 2.030894E+00 1.370509E+00 2.030894E+00 1.393425E-01 -1.055499E+00 1.370509E+00 -1.055499E+00 1.771206E+00
2.098158E+00 2.583661E+00 8.791438E-01 2.583661E+00 9.032831E-01 -2.215565E+00 8.791438E-01 -2.215565E+00 2.043297E+00
-1.698410E+00 4.167409E+00 2.647075E-01 4.167409E+00 4.222395E+00 -3.055763E+00 2.647075E-01 -3.055763E+00 -1.391421E+00
-8.409078E-01 -4.928208E-01 1.081605E+00 -4.928208E-01 3.172158E+00 -9.652794E-01 1.081605E+00 -9.652794E-01 5.858850E+00
1.772945E+00 1.884536E+00 -1.227665E-02 1.884536E+00 4.133279E+00 -1.560894E+00 -1.227665E-02 -1.560894E+00 -2.180136E+00
1.374663E+00 -2.563897E-01 -3.531044E-01 -2.563897E-01 9.444892E-01 -1.131695E+00 -3.531044E-01 -1.131695E+00 8.410043E-02
-1.628314E+00 -2.282178E+00 -7.082837E-02 -2.282178E+00 4.717011E+00 -3.167291E+00 -7.082837E-02 -3.167291E+00 1.405460E-01
3.256577E+00 8.701485E-02 -3.349064E-01 8.701485E-02 2.750965E+00 -4.284773E+00 -3.349064E-01 -4.284773E+00 3.778049E+00
-2.295949E+00 3.331942E+00 1.116254E+00 3.331942E+00 3.989839E+00 -1.459957E+00 1.116254E+00 -1.459957E+00 4.521983E-02
-1.151068E+00 -7.641443E-01 -4.241038E-01 -7.641443E-01 4.304514E+00 -1.267603E+00 -4.241038E-01 -1.267603E+00 8.671564E-01
-4.160283E+00 -1.259369E+00 1.650666E+00 -1.259369E+00 3.044282E+00 -2.418003E+00 1.650666E+00 -2.418003E+00 -2.627127E+00
-1.179937E+00 2.183129E+00 -1.119143E+00 2.183129E+00 5.206284E+00 -2.993333E+00 -1.119143E+00 -2.993333E+00 -3.183130E+00
-2.359512E+00 2.115881E+00 -1.301282E+00 2.115881E+00 3.847385E+00 -2.485009E+00 -1.301282E+00 -2.485009E+00 -9.906069E-01
-2.942584E+00 -5.313706E-01 1.851732E+00 -5.313706E-01 2.745075E+00 -1.914543E+00 1.851732E+00 -1.914543E+00 -1.403970E+00
-2.509056E+00 5.086551E+00 1.357141E+00 5.086551E+00 9.473148E-01 3.850056E-01 1.357141E+00 3.850056E-01 -1.579436E+00
1.198187E+00 3.245621E+00 -2.229760E-01 3.245621E+00 3.240415E+00 -7.487642E-01 -2.229760E-01 -7.487642E-01 -2.924478E+00
-1.763899E+00 2.164231E+00 -2.238102E-01 2.164231E+00 -1.612804E-02 -3.096042E+00 -2.238102E-01 -3.096042E+00 -1.820712E-01
-3.938288E+00 3.098645E+00 3.011002E-01 3.098645E+00 -2.056060E-01 -1.559567E+00 3.011002E-01 -1.559567E+00 -5.216910E+00
1.881795E+00 2.064431E+00 -1.351383E+00 2.064431E+00 -6.196107E-01 3.174056E-01 -1.351383E+00 3.174056E-01 -4.749969E+00
7.554922E-01 -4.930462E-01 -4.422200E-01 -4.930462E-01 3.097861E+00 -1.423850E+00 -4.422200E-01 -1.423850E+00 1.193429E+00
4.097399E+00 3.325380E+00 2.185304E+00 3.325380E+00 5.476314E+00 -3.174047E+00 2.185304E+00 -3.174047E+00 4.524541E-01
4.713058E+00 2.001507E+00 -5.754228E-02 2.001507E+00 2.435407E+00 -3.021226E+00 -5.754228E-02 -3.021226E+00 -2.799014E+00
-1.387675E+00 2.667730E+00 -2.474171E+00 2.667730E+00 2.841834E-01 -2.263969E+00 -2.474171E+00 -2.263969E+00 -1.028611E+00
-3.922209E+00 1.807460E+00 1.554053E+00 1.807460E+00 -3.018901E-01 -6.290610E-03 1.554053E+00 -6.290610E-03 -3.248800E+00
-1.275801E+00 2.586185E+00 -8.895243E-01 2.586185E+00 8.289141E-01 1.440164E-01 -8.895243E-01 1.440164E-01 -1.631305E+00
-1.328747E+00 6.960144E-01 5.915400E-01 6.960144E-01 -3.436989E-01 -1.944991E+00 5.915400E-01 -1.944991E+00 -4.877576E+00
-2.513021E-01 -3.268129E-01 -7.598127E-01 -3.268129E-01 5.070325E-01 -1.341081E+00 -7.598127E-01 -1.341081E+00 -4.646713E-01
-4.539860E+00 1.365702E+00 -1.066158E+00 1.365702E+00 5.711233E-01 -1.426151E+00 -1.066158E+00 -1.426151E+00 -3.094526E-01
1.001036E-01 3.466815E+00 -4.553990E-01 3.466815E+00 3.294242E+00 -3.387797E-01 -4.553990E-01 -3.387797E-01 -3.430741E-01
-5.072398E+00 2.994386E+00 -6.816545E-01 2.994386E+00 3.499290E+00 1.269506E+00 -6.816545E-01 1.269506E+00 -9.124336E-01
-2.976182E-01 1.856272E+00 1.385307E+00 1.856272E+00 5.002337E+00 -1.596469E+00 1.385307E+00 -1.596469E+00 -2.120078E+00
-1.491095E+00 2.060824E+00 -8.704193E-01 2.060824E+00 2.014959E+00 -1.573628E+00 -8.704193E-01 -1.573628E+00 -2.860706E+00
-1.006941E-01 1.235556E+00 -1.397474E+00 1.235556E+00 4.574112E+00 -3.278453E+00 -1.397474E+00 -3.278453E+00 -4.099461E+00
2.837601E+00 4.017920E-01 -5.071345E-01 4.017920E-01 1.560740E+00 -2.424155E+00 -5.071345E-01 -2.424155E+00 -8.960130E-01
2.178001E+00 -3.566204E-01 2.121083E-01 -3.566204E-01 1.377073E+00 -1.658649E+00 2.121083E-01 -1.658649E+00 -2.379679E+00
-2.254803E+00 2.771898E+00 9.960929E-01 2.771898E+00 4.385098E+00 -1.981887E+00 9.960929E-01 -1.981887E+00 -1.324153E+00
-2.960198E+00 3.500648E+00 5.608565E-02 3.500648E+00 2.600909E-01 -1.915020E+00 5.608565E-02 -1.915020E+00 -4.846364E+00
1.888984E+00 2.440703E+00 -2.177521E+00 2.440703E+00 7.706398E-01 -2.495895E+00 -2.177521E+00 -2.495895E+00 -1.390199E+00
-1.405720E+00 2.449017E+00 -2.135619E+00 2.449017E+00 1.505111E+00 -4.028916E+00 -2.135619E+00 -4.028916E+00 -4.929315E+00
1.406370E+00 2.195945E+00 1.203642E+00 2.195945E+00 2.367031E+00 3.143046E-01 1.203642E+00 3.143046E-01 -2.527236E+00
1.166730E+00 2.893821E+00 1.566874E-01 2.893821E+00 6.837193E-02 -2.340405E+00 1.566874E-01 -2.340405E+00 -1.988255E+00
2.963700E+00 1.524459E+00 -1.412321E+00 1.524459E+00 8.828625E-01 1.274239E+00 -1.412321E+00 1.274239E+00 -2.993620E+00
-1.932811E+00 2.036319E+00 -3.181461E-01 2.036319E+00 2.246730E+00 -6.979317E-01 -3.181461E-01 -6.979317E-01 -2.072020E+00
-3.029037E-01 1.594434E+00 -3.388304E-01 1.594434E+00 -1.205187E+00 -1.778373E+00 -3.388304E-01 -1.778373E+00 -1.277709E+00
8.648107E-01 2.573529E+00 1.592000E+00 2.573529E+00 3.944281E+00 -4.015946E+00 1.592000E+00 -4.015946E+00 2.007732E-02
3.489885E+00 4.879062E-01 2.333546E-01 4.879062E-01 1.867530E+00 5.649151E-02 2.333546E-01 5.649151E-02 -2.463344E+00
4.102162E+00 -1.542538E-01 2.934235E-01 -1.542538E-01 5.811932E+00 -1.522731E+00 2.934235E-01 -1.522731E+00 -4.911166E+00
-3.488202E+00 1.027389E+00 -3.596069E-01 1.027389E+00 1.843186E+00 -3.308049E+00 -3.596069E-01 -3.308049E+00 -4.433555E-01
-6.620179E-01 2.895258E+00 1.331952E+00 2.895258E+00 3.358975E+00 -3.732025E+00 1.331952E+00 -3.732025E+00 -3.239141E+00
4.040195E-02 1.323671E+00 1.104944E+00 1.323671E+00 4.418059E+00 -1.766238E+00 1.104944E+00 -1.766238E+00 -9.119289E-01
-1.962314E+00 1.931464E+00 5.354464E-01 1.931464E+00 2.133414E+00 -6.233776E-01 5.354464E-01 -6.233776E-01 -2.151490E+00
4.141271E+00 1.817253E+00 2.142039E+00 1.817253E+00 1.855617E+00 -1.662811E+00 2.142039E+00 -1.662811E+00 -2.177064E+00
-3.159400E-01 1.194034E+00 -5.821547E-01 1.194034E+00 7.801155E-01 -4.622732E+00 -5.821547E-01 -4.622732E+00 1.012782E+00
-7.089662E-01 1.677986E+00 7.252632E-01 1.677986E+00 7.360168E-01 -2.928399E+00 7.252632E-01 -2.928399E+00 2.836892E-01
-5.065817E-01 -4.517556E-01 -2.809112E+00 -4.517556E-01 -4.302575E-01 -5.607789E-01 -2.809112E+00 -5.607789E-01 -1.726343E+00
-1.019087E+00 7.786154E-01 3.050228E-01 7.786154E-01 2.972178E+00 -8.451928E-01 3.050228E-01 -8.451928E-01 7.881055E-01
1.483359E-01 1.583112E+00 5.418511E-01 1.583112E+00 4.242571E-01 -3.700986E+00 5.418511E-01 -3.700986E+00 -1.149516E+00
-2.219742E+00 5.688296E-01 -1.549871E+00 5.688296E-01 2.229030E+00 -3.160448E+00 -1.549871E+00 -3.160448E+00 -2.530245E+00
1.596339E+00 2.784534E+00 -1.488361E+00 2.784534E+00 1.168573E+00 -2.656824E+00 -1.488361E+00 -2.656824E+00 -1.733743E+00
-7.088247E-01 3.147297E-01 -2.432549E+00 3.147297E-01 -1.798181E+00 -9.517646E-01 -2.432549E+00 -9.517646E-01 -2.902496E+00
-9.599298E-02 1.125659E+00 2.211777E-01 1.125659E+00 -1.420174E-01 8.628375E-01 2.211777E-01 8.628375E-01 -3.872300E-01
4.101575E-01 2.821141E+00 -8.405546E-01 2.821141E+00 1.186901E+00 2.129583E+00 -8.405546E-01 2.129583E+00 -2.259003E+00
-1.511975E+00 3.391192E+00 -1.632897E-01 3.391192E+00 2.531128E+00 -2.824039E+00 -1.632897E-01 -2.824039E+00 -2.962051E+00
1.019530E+00 2.342187E+00 5.828551E-02 2.342187E+00 1.562914E-02 -8.525821E-01 5.828551E-02 -8.525821E-01 1.151055E+00
-6.796598E-01 1.420745E+00 -5.651854E-01 1.420745E+00 4.535611E-01 -4.104820E+00 -5.651854E-01 -4.104820E+00 6.568271E-01
3.055632E+00 1.375721E+00 1.137619E+00 1.375721E+00 4.451696E+00 -2.180185E+00 1.137619E+00 -2.180185E+00 -6.767332E-01
2.907455E+00 1.276951E+00 -9.998549E-01 1.276951E+00 3.472890E+00 -2.940550E+00 -9.998549E-01 -2.940550E+00 -6.173825E-01
4.103336E-01 1.550381E+00 -5.011087E-01 1.550381E+00 2.929562E+00 -6.199806E-01 -5.011087E-01 -6.199806E-01 -3.351805E-01
-4.291664E-02 -4.697321E-01 -4.329564E-01 -4.697321E-01 2.190928E+00 -1.496985E+00 -4.329564E-01 -1.496985E+00 5.895374E-01
-1.466487E+00 2.419330E+00 -8.195269E-01 2.419330E+00 2.211523E+00 -2.383492E+00 -8.195269E-01 -2.383492E+00 -2.012261E+00
-2.215207E+00 1.391260E+00 -1.507595E+00 1.391260E+00 -2.977534E+00 -1.946113E+00 -1.507595E+00 -1.946113E+00 -4.063266E+00
-1.214483E+00 2.293284E+00 -2.314956E-01 2.293284E+00 5.283497E-01 -1.245951E+00 -2.314956E-01 -1.245951E+00 -4.397326E+00
1.015937E+00 -2.233679E-03 2.784873E-02 -2.233679E-03 -1.209554E+00 -3.378900E+00 2.784873E-02 -3.378900E+00 -2.319662E+00
1.380653E+00 4.066387E+00 4.945987E-01 4.066387E+00 1.893533E+00 -1.977780E+00 4.945987E-01 -1.977780E+00 -2.033137E+00
3.208155E+00 2.440850E+00 -3.022727E-01 2.440850E+00 3.484506E+00 -2.818279E+00 -3.022727E-01 -2.818279E+00 -1.792735E-03
-1.540297E+00 5.417458E-01 -1.146250E-01 5.417458E-01 1.710107E+00 -9.647077E-01 -1.146250E-01 -9.647077E-01 -4.104316E+00
-1.039386E-01 1.728417E+00 1.399268E+00 1.728417E+00 2.256053E+00 -2.012156E+00 1.399268E+00 -2.012156E+00 -2.231170E+00
2.106045E-01 2.251295E+00 7.285494E-02 2.251295E+00 -1.631370E+00 -4.530805E+00 7.285494E-02 -4.530805E+00 -9.251094E-01
-1.196434E+00 9.955137E-01 -1.248516E+00 9.955137E-01 4.249029E+00 -3.392599E+00 -1.248516E+00 -3.392599E+00 -2.855019E+00
3.338741E+00 1.680097E+00 -2.740170E+00 1.680097E+00 2.457028E+00 -3.227134E+00 -2.740170E+00 -3.227134E+00 -3.413011E+00
5.395257E-01 4.033993E+00 -2.675027E-01 4.033993E+00 3.551381E+00 -2.342340E+00 -2.675027E-01 -2.342340E+00 1.544077E+00
8.300653E-02 4.584194E-01 -1.181142E+00 4.584194E-01 1.522125E+00 -1.832996E+00 -1.181142E+00 -1.832996E+00 -2.116021E+00
1.921509E+00 2.288882E+00 -1.242640E+00 2.288882E+00 7.841391E-01 -2.789537E+00 -1.242640E+00 -2.789537E+00 -3.723246E+00
1.603593E+00 3.441721E+00 -9.971739E-01 3.441721E+00 2.495367E+00 -3.872477E+00 -9.971739E-01 -3.872477E+00 -4.496983E+00
1.102753E-01 4.658845E+00 6.790843E-01 4.658845E+00 -4.444461E-01 3.960521E-01 6.790843E-01 3.960521E-01 -4.461756E+00
-1.517010E+00 1.570959E+00 2.753458E+00 1.570959E+00 2.015006E+00 -4.255246E+00 2.753458E+00 -4.255246E+00 -1.665186E+00
-4.326310E-01 1.148403E+00 1.841364E+00 1.148403E+00 -2.254489E+00 -4.228224E+00 1.841364E+00 -4.228224E+00 -8.954553E-01
-2.355257E+00 1.827849E+00 -2.760097E-01 1.827849E+00 1.677777E+00 -3.068610E+00 -2.760097E-01 -3.068610E+00 -3.965856E+00
-7.354937E-01 3.078369E+00 1.141330E+00 3.078369E+00 2.095368E+00 -2.934769E+00 1.141330E+00 -2.934769E+00 -3.255083E+00
7.066296E-01 -2.158177E-01 -1.389076E+00 -2.158177E-01 2.776322E+00 -5.138406E+00 -1.389076E+00 -5.138406E+00 -3.522368E+00
-9.203439E-01 2.507999E+00 5.569942E-01 2.507999E+00 3.691196E+00 -7.668898E-01 5.569942E-01 -7.668898E-01 -2.303372E+00
-7.800674E-02 8.000369E-01 -9.461124E-01 8.000369E-01 1.555052E+00 -1.910222E+00 -9.461124E-01 -1.910222E+00 -3.092931E+00
6.952636E-01 -3.765631E-01 8.783202E-01 -3.765631E-01 2.397430E+00 -1.696957E+00 8.783202E-01 -1.696957E+00 -3.183101E+00
-4.998009E-01 1.822584E+00 -8.352061E-01 1.822584E+00 1.888067E+00 -1.370253E-01 -8.352061E-01 -1.370253E-01 -2.827651E-02
2.162996E+00 1.293961E+00 5.291595E-01 1.293961E+00 2.778530E+00 -1.829823E+00 5.291595E-01 -1.829823E+00 1.763974E+00
2.730853E+00 -2.829361E-02 8.692184E-01 -2.829361E-02 2.955768E-01 -2.882102E+00 8.692184E-01 -2.882102E+00 -2.166466E+00
-9.915492E-02 5.436296E-01 -4.080881E-01 5.436296E-01 3.045736E-01 -2.296165E+00 -4.080881E-01 -2.296165E+00 1.154301E+00
-9.628720E-01 2.721159E+00 1.752163E+00 2.721159E+00 2.250187E+00 -2.606673E+00 1.752163E+00 -2.606673E+00 -5.163100E+00
-2.066990E+00 3.381216E+00 -1.539398E+00 3.381216E+00 4.274697E+00 -3.515510E+00 -1.539398E+00 -3.515510E+00 -4.218180E+00
1.267934E+00 1.020758E+00 6.292272E-02 1.020758E+00 1.208035E+00 -1.999158E+00 6.292272E-02 -1.999158E+00 -2.733417E+00
-1.579470E+00 1.857882E+00 -1.284799E+00 1.857882E+00 -2.225325E+00 -1.928517E+00 -1.284799E+00 -1.928517E+00 3.782872E-02
-3.313556E-01 -1.560612E+00 -2.926040E-01 -1.560612E+00 -1.504307E+00 -2.934608E+00 -2.926040E-01 -2.934608E+00 -2.772583E+00
7.163269E-01 1.163458E+00 9.513550E-02 1.163458E+00 1.117404E+00 -2.934366E+00 9.513550E-02 -2.934366E+00 -5.255278E+00
1.671796E+00 1.743372E+00 -5.506205E-01 1.743372E+00 3.747515E+00 -4.233261E-01 -5.506205E-01 -4.233261E-01 -2.447502E+00
1.702377E+00 1.542372E+00 -1.109051E+00 1.542372E+00 2.364870E+00 -1.846201E+00 -1.109051E+00 -1.846201E+00 -1.325951E+00
4.234722E-02 7.854012E-02 -9.886047E-01 7.854012E-02 -4.612995E-02 -4.043597E+00 -9.886047E-01 -4.043597E+00 -1.309478E+00
-2.100429E+00 1.673244E+00 -1.129817E+00 1.673244E+00 2.660361E+00 1.058681E+00 -1.129817E+00 1.058681E+00 -3.951978E+00
3.776427E-01 3.439711E+00 -3.303768E-02 3.439711E+00 -2.189212E-01 -2.141472E-01 -3.303768E-02 -2.141472E-01 -9.435223E-01
6.467180E-02 4.311159E-01 3.941197E-01 4.311159E-01 2.643380E+00 -3.795685E+00 3.941197E-01 -3.795685E+00 1.078632E+00
-2.379128E-01 4.587174E-01 1.874284E+00 4.587174E-01 2.812403E-02 -2.529094E+00 1.874284E+00 -2.529094E+00 7.397325E-01
-3.317417E+00 -3.045375E-01 -6.114178E-01 -3.045375E-01 4.143528E+00 -2.326801E+00 -6.114178E-01 -2.326801E+00 -8.509435E-01
3.439242E-01 1.365881E+00 1.306457E+00 1.365881E+00 1.656048E-01 -2.123942E-01 1.306457E+00 -2.123942E-01 -3.352671E+00
-1.070548E-02 2.317851E+00 -3.367787E+00 2.317851E+00 2.535541E+00 -5.721747E-01 -3.367787E+00 -5.721747E-01 -2.049171E+00
-3.762258E+00 -7.671405E-01 -1.746580E+00 -7.671405E-01 2.358860E+00 -4.085437E+00 -1.746580E+00 -4.085437E+00 -4.719426E+00
5.911539E-01 1.322851E+00 -2.455803E+00 1.322851E+00 -3.490362E-01 -2.787857E+00 -2.455803E+00 -2.787857E+00 -3.030783E+00
-2.482383E+00 1.291119E+00 1.589663E+00 1.291119E+00 1.090724E+00 -1.418836E+00 1.589663E+00 -1.418836E+00 -2.925171E+00
6.114340E-01 1.034324E+00 6.332608E-01 1.034324E+00 4.031589E+00 -7.422555E-01 6.332608E-01 -7.422555E-01 -3.211626E+00
-1.020280E+00 2.082069E+00 -2.630098E+00 2.082069E+00 1.427565E+00 -3.165795E+00 -2.630098E+00 -3.165795E+00 -3.955378E+00
-8.102359E-01 1.112853E+00 2.278787E+00 1.112853E+00 -2.069580E+00 -1.061608E+00 2.278787E+00 -1.061608E+00 -2.573858E+00
4.303764E+00 3.633909E-01 7.986804E-01 3.633909E-01 2.444422E+00 -2.362958E+00 7.986804E-01 -2.362958E+00 -2.309993E-01
-6.001888E-01 2.737036E+00 9.083183E-01 2.737036E+00 9.926160E-02 -1.423337E+00 9.083183E-01 -1.423337E+00 -3.755520E+00
-3.360095E+00 -3.804990E-01 2.900730E-01 -3.804990E-01 3.010169E+00 -2.413128E+00 2.900730E-01 -2.413128E+00 -2.089950E+00
1.998144E+00 3.720088E-02 -1.397377E+00 3.720088E-02 2.466773E+00 1.608924E-01 -1.397377E+00 1.608924E-01 -1.077155E+00
1.757393E+00 2.755388E+00 1.353340E+00 2.755388E+00 2.023340E+00 -2.468818E+00 1.353340E+00 -2.468818E+00 -8.727561E-01
3.432929E+00 3.004458E+00 -8.548368E-01 3.004458E+00 2.717654E+00 -2.212192E+00 -8.548368E-01 -2.212192E+00 2.117758E+00
9.237298E-01 1.719175E+00 -8.747021E-01 1.719175E+00 4.088744E+00 -4.012489E+00 -8.747021E-01 -4.012489E+00 2.632468E+00
2.684596E+00 2.336969E+00 -8.069535E-01 2.336969E+00 2.520141E+00 -2.495719E+00 -8.069535E-01 -2.495719E+00 -4.902686E+00
-1.592986E+00 -4.702117E-02 -3.756548E-01 -4.702117E-02 -1.594263E+00 -2.220542E+00 -3.756548E-01 -2.220542E+00 -4.540863E+00
-1.272861E+00 2.766686E+00 -7.351836E-01 2.766686E+00 8.869411E-01 -3.384864E+00 -7.351836E-01 -3.384864E+00 1.810040E+00
-2.174709E+00 -1.376033E-01 -5.708579E-01 -1.376033E-01 8.079169E-01 -4.204200E+00 -5.708579E-01 -4.204200E+00 -4.288603E+00
1.284914E+00 1.530203E+00 -1.349889E+00 1.530203E+00 2.532370E+00 -2.460833E+00 -1.349889E+00 -2.460833E+00 -3.208650E+00
1.158831E+00 2.977341E+00 -2.306683E+00 2.977341E+00 5.453273E-01 -1.763223E+00 -2.306683E+00 -1.763223E+00 2.300883E+00
2.599163E+00 3.017148E-01 -1.203941E+00 3.017148E-01 2.691515E+00 -1.603864E+00 -1.203941E+00 -1.603864E+00 8.315772E-01
-2.837043E-01 -5.826599E-01 -1.566154E+00 -5.826599E-01 7.299195E-02 8.737961E-01 -1.566154E+00 8.737961E-01 1.160796E-02
9.279588E-01 1.869570E+00 -3.786267E-01 1.869570E+00 2.303190E+00 -6.467389E-01 -3.786267E-01 -6.467389E-01 -2.307230E+00
-1.808378E-01 1.843921E+00 1.657296E+00 1.843921E+00 2.237185E+00 -9.237326E-02 1.657296E+00 -9.237326E-02 -3.998473E+00
1.056872E+00 2.550344E+00 -2.743877E+00 2.550344E+00 3.091263E+00 -2.416578E+00 -2.743877E+00 -2.416578E+00 -2.772064E+00
-1.244187E+00 1.040030E+00 -1.189084E+00 1.040030E+00 -3.417803E+00 -2.004107E+00 -1.189084E+00 -2.004107E+00 -5.301667E-01
-8.162770E-01 1.743137E+00 -5.575449E-02 1.743137E+00 2.744029E+00 -2.512839E+00 -5.575449E-02 -2.512839E+00 -2.930994E+00
-1.034360E+00 1.628633E+00 1.387062E+00 1.628633E+00 2.011152E+00 -9.432582E-01 1.387062E+00 -9.432582E-01 -4.900350E+00
-3.608864E-01 1.288159E+00 1.758646E+00 1.288159E+00 5.023479E+00 -1.516073E+00 1.758646E+00 -1.516073E+00 -2.684054E-01
5.359746E+00 3.110058E+00 7.349498E-01 3.110058E+00 5.544439E+00 -1.712996E+00 7.349498E-01 -1.712996E+00 2.108514E+00
4.742065E-01 4.381313E-01 1.715279E+00 4.381313E-01 -3.621629E+00 -2.146161E+00 1.715279E+00 -2.146161E+00 -6.241192E-01
-3.200706E-01 2.861473E-01 -1.309624E+00 2.861473E-01 -2.022350E+00 -2.409683E+00 -1.309624E+00 -2.409683E+00 -1.625684E+00
8.193994E-02 1.498406E+00 -1.114300E+00 1.498406E+00 3.744019E-01 -2.197363E+00 -1.114300E+00 -2.197363E+00 -2.205654E+00
-6.596432E-01 8.162353E-01 1.790853E-01 8.162353E-01 5.809295E-01 -1.086856E+00 1.790853E-01 -1.086856E+00 -1.196167E+00
-5.158234E+00 -1.382773E+00 -1.372760E+00 -1.382773E+00 6.120134E-01 -3.772550E-01 -1.372760E+00 -3.772550E-01 -3.958990E+00
5.973922E-02 7.977781E-01 7.796402E-01 7.977781E-01 3.075382E-02 -1.316613E-01 7.796402E-01 -1.316613E-01 1.361493E+00
4.895068E-01 -6.382402E-01 2.150834E+00 -6.382402E-01 3.638272E-01 -2.612311E+00 2.150834E+00 -2.612311E+00 -2.438909E+00
-2.767424E+00 2.283726E+00 -7.392509E-01 2.283726E+00 -2.392503E+00 -4.333762E+00 -7.392509E-01 -4.333762E+00 -2.881616E-01
2.223409E+00 4.554322E+00 -2.942451E-01 4.554322E+00 -3.495258E-01 -2.934327E+00 -2.942451E-01 -2.934327E+00 -2.872788E+00
3.914962E+00 1.856312E+00 -2.027250E+00 1.856312E+00 2.443516E+00 -2.746173E+00 -2.027250E+00 -2.746173E+00 -1.407010E+00
8.038342E-01 2.691211E+00 2.119652E+00 2.691211E+00 4.549918E+00 -1.176210E+00 2.119652E+00 -1.176210E+00 1.157126E+00
4.199739E-01 2.977360E+00 1.052165E+00 2.977360E+00 2.726569E+00 -3.789983E+00 1.052165E+00 -3.789983E+00 -3.557097E-01
8.342782E-01 1.461638E+00 -1.405514E+00 1.461638E+00 1.521453E+00 -2.773392E+00 -1.405514E+00 -2.773392E+00 6.452628E-01
-5.024953E-01 7.868685E-01 3.344814E-01 7.868685E-01 2.743704E+00 -1.247887E+00 3.344814E-01 -1.247887E+00 -4.061961E+00
-9.983900E-01 -5.231025E-01 -9.738036E-01 -5.231025E-01 -2.143431E+00 -1.160624E+00 -9.738036E-01 -1.160624E+00 7.048257E-01
-6.071335E-01 3.065443E-01 9.972293E-02 3.065443E-01 -2.861460E+00 -3.362867E+00 9.972293E-02 -3.362867E+00 -1.168756E+00
2.848894E+00 -1.759763E+00 3.220510E-01 -1.759763E+00 2.087366E+00 -1.563226E+00 3.220510E-01 -1.563226E+00 1.591004E+00
3.929626E-01 5.045870E-01 -1.260906E+00 5.045870E-01 1.774486E+00 -1.364960E+00 -1.260906E+00 -1.364960E+00 -9.666827E-01
-1.570370E+00 5.519847E-01 -1.476122E+00 5.519847E-01 1.612225E-01 -2.482059E+00 -1.476122E+00 -2.482059E+00 -4.665164E+00
2.045041E+00 -4.136163E-01 6.107161E-01 -4.136163E-01 -1.347020E-01 -5.786994E-02 6.107161E-01 -5.786994E-02 -4.338271E+00
-1.407148E+00 1.107276E+00 1.291725E+00 1.107276E+00 -1.313430E-01 -2.107206E+00 1.291725E+00 -2.107206E+00 -2.245972E+00
-5.389913E-01 2.522472E+00 -8.357697E-01 2.522472E+00 1.935930E+00 -2.233291E+00 -8.357697E-01 -2.233291E+00 -1.640507E+00
3.383707E-01 1.340009E+00 1.774488E+00 1.340009E+00 2.012596E+00 -3.052277E+00 1.774488E+00 -3.052277E+00 1.812018E+00
-1.661099E-01 1.448382E+00 -1.154518E+00 1.448382E+00 1.994173E+00 -3.398029E+00 -1.154518E+00 -3.398029E+00 2.868722E+00
9.946443E-01 2.049443E+00 -3.012857E-01 2.049443E+00 1.667457E+00 -2.348826E+00 -3.012857E-01 -2.348826E+00 4.998087E-01
2.303151E+00 8.565412E-01 -8.463360E-01 8.565412E-01 2.205948E+00 -2.428782E+00 -8.463360E-01 -2.428782E+00 -4.129363E+00
6.768114E-01 -1.479465E+00 1.258836E+00 -1.479465E+00 1.584717E+00 -6.412370E-01 1.258836E+00 -6.412370E-01 -3.223293E+00
4.438399E-01 4.507277E-01 2.301927E+00 4.507277E-01 -4.379826E-01 -1.103765E+00 2.301927E+00 -1.103765E+00 -1.884012E+00
2.068476E+00 -6.767314E-01 -2.921522E-01 -6.767314E-01 3.810061E+00 -2.087328E+00 -2.921522E-01 -2.087328E+00 -2.911136E-01
-3.471289E+00 1.027112E+00 -1.380225E+00 1.027112E+00 -3.644958E-02 -3.337461E+00 -1.380225E+00 -3.337461E+00 -3.124341E+00
5.376586E+00 3.357713E+00 1.062289E+00 3.357713E+00 1.789551E-01 -2.876407E+00 1.062289E+00 -2.876407E+00 -1.280976E+00
2.221922E+00 1.490005E-01 2.432683E+00 1.490005E-01 8.482378E-01 -4.724840E-01 2.432683E+00 -4.724840E-01 -2.968363E+00
1.258000E+00 1.678502E+00 7.038056E-01 1.678502E+00 5.740677E-01 -3.693246E+00 7.038056E-01 -3.693246E+00 -3.869528E+00
4.990984E-01 3.653714E+00 1.198673E+00 3.653714E+00 1.837550E+00 -1.973864E+00 1.198673E+00 -1.973864E+00 -1.292745E+00
-2.236858E+00 2.260365E+00 7.461232E-01 2.260365E+00 2.698023E+00 -1.267694E+00 7.461232E-01 -1.267694E+00 1.014944E+00
-1.455683E+00 1.163874E+00 1.715620E+00 1.163874E+00 3.142201E+00 -4.520566E+00 1.715620E+00 -4.520566E+00 -1.750988E+00
-5.516920E-01 3.921017E+00 -7.181271E-01 3.921017E+00 3.784892E+00 -2.105948E+00 -7.181271E-01 -2.105948E+00 -3.285900E-01
-8.467058E-01 -1.358085E+00 -1.725616E+00 -1.358085E+00 2.494224E+00 -1.442399E+00 -1.725616E+00 -1.442399E+00 -2.736034E+00
-4.750285E+00 8.227050E-01 -9.949036E-01 8.227050E-01 8.714788E-01 -2.909877E+00 -9.949036E-01 -2.909877E+00 -3.919579E+00
-1.084738E+00 1.876788E+00 -9.779797E-01 1.876788E+00 2.578953E+00 -1.864732E+00 -9.779797E-01 -1.864732E+00 -1.741284E+00
-3.552953E+00 -2.821986E-01 5.445365E-01 -2.821986E-01 -2.734020E+00 -1.062386E+00 5.445365E-01 -1.062386E+00 -3.184184E+00
-3.784559E-01 -4.743581E-01 5.575609E-01 -4.743581E-01 -1.955716E-01 -1.280797E+00 5.575609E-01 -1.280797E+00 3.531375E-01
9.594324E-01 -7.111338E-01 7.416637E-01 -7.111338E-01 3.154698E+00 -1.973283E+00 7.416637E-01 -1.973283E+00 -8.978154E-01
-1.250543E+00 1.033817E+00 2.092843E-03 1.033817E+00 -1.628033E+00 -3.606417E+00 2.092843E-03 -3.606417E+00 -5.712074E+00
-1.936341E+00 1.076830E+00 1.438180E+00 1.076830E+00 2.136681E+00 4.567230E-02 1.438180E+00 4.567230E-02 -1.600390E+00
2.971529E-01 4.972680E+00 2.605445E-01 4.972680E+00 2.600199E+00 -2.314684E+00 2.605445E-01 -2.314684E+00 -1.622904E-01
2.286153E+00 3.066435E+00 -1.417385E+00 3.066435E+00 1.694743E+00 -4.218462E+00 -1.417385E+00 -4.218462E+00 1.695371E+00
-1.802596E+00 1.845747E+00 5.007892E-01 1.845747E+00 3.338994E+00 1.894409E-01 5.007892E-01 1.894409E-01 7.343426E-01
-7.930846E-01 2.585450E+00 -6.080597E-01 2.585450E+00 1.175378E+00 -2.203639E+00 -6.080597E-01 -2.203639E+00 -3.404346E+00
6.395085E-02 3.309942E+00 -3.286046E+00 3.309942E+00 3.442079E+00 5.853461E-01 -3.286046E+00 5.853461E-01 -5.589103E+00
1.540844E+00 2.907768E+00 -1.873576E+00 2.907768E+00 2.240775E+00 -1.985639E-01 -1.873576E+00 -1.985639E-01 -1.323390E+00
1.639977E-01 1.162492E+00 -3.300710E-01 1.162492E+00 7.401114E-02 -2.509306E+00 -3.300710E-01 -2.509306E+00 -1.147621E+00
-3.217743E+00 7.968679E-02 -1.182464E+00 7.968679E-02 -3.334412E-01 -2.706188E+00 -1.182464E+00 -2.706188E+00 -4.408802E-01
8.784911E-01 2.057145E+00 3.692950E-01 2.057145E+00 -3.105790E-02 -4.482280E+00 3.692950E-01 -4.482280E+00 -2.051430E+00
-9.470118E-02 -4.927488E-01 3.623286E-01 -4.927488E-01 -1.127214E+00 -3.059154E+00 3.623286E-01 -3.059154E+00 -3.063914E+00
1.217968E+00 2.268065E+00 1.861992E+00 2.268065E+00 -2.614403E+00 -3.321832E+00 1.861992E+00 -3.321832E+00 -2.216604E+00
-1.240077E+00 2.865667E+00 -2.418511E-01 2.865667E+00 4.023601E+00 -2.142037E+00 -2.418511E-01 -2.142037E+00 -6.990349E-01
-3.985096E+00 1.370046E+00 1.832078E+00 1.370046E+00 2.275804E+00 -3.145142E+00 1.832078E+00 -3.145142E+00 -2.933411E+00
1.972576E+00 1.914379E+00 -4.416238E-01 1.914379E+00 7.465548E+00 -4.474617E+00 -4.416238E-01 -4.474617E+00 5.399131E-01
-2.796534E-01 8.357044E-01 -1.233983E+00 8.357044E-01 7.922253E-01 -2.905853E+00 -1.233983E+00 -2.905853E+00 -6.186076E+00
-6.983611E-01 9.570922E-01 8.350670E-01 9.570922E-01 1.257661E-01 -3.036253E+00 8.350670E-01 -3.036253E+00 -1.479657E+00
-2.425932E-01 2.440066E+00 -2.101693E-02 2.440066E+00 2.581242E+00 -4.129784E+00 -2.101693E-02 -4.129784E+00 -2.412996E+00
6.064688E-02 6.617154E-01 1.522449E+00 6.617154E-01 1.600729E+00 -1.110523E+00 1.522449E+00 -1.110523E+00 -8.043600E-02
-6.138991E-01 -5.965844E-01 1.244507E+00 -5.965844E-01 4.215078E+00 -1.267749E+00 1.244507E+00 -1.267749E+00 2.716718E+00
-2.595150E+00 1.219467E+00 6.196440E-01 1.219467E+00 2.764706E+00 -2.618122E+00 6.196440E-01 -2.618122E+00 -3.548839E+00
3.106314E-02 2.199413E+00 -4.222061E-01 2.199413E+00 1.690828E-01 -1.405899E-02 -4.222061E-01 -1.405899E-02 2.075405E-01
6.213510E-01 1.994951E+00 -1.597701E+00 1.994951E+00 6.231488E-01 -2.951714E+00 -1.597701E+00 -2.951714E+00 -8.974689E-01
1.504176E+00 1.560736E+00 5.755275E-01 1.560736E+00 3.411512E+00 -2.289776E+00 5.755275E-01 -2.289776E+00 -2.807211E+00
1.028211E+00 2.894717E+00 4.811246E-01 2.894717E+00 -2.063544E+00 3.147031E-01 4.811246E-01 3.147031E-01 -3.636761E+00
2.221552E+00 -1.703387E-01 -2.108742E+00 -1.703387E-01 7.142775E-01 -2.540370E+00 -2.108742E+00 -2.540370E+00 -3.230009E-01
9.568361E-01 3.688597E+00 -2.352720E+00 3.688597E+00 2.435038E+00 -2.424579E+00 -2.352720E+00 -2.424579E+00 -1.290835E+00
1.100533E+00 7.121020E-02 -2.190133E-01 7.121020E-02 3.604240E+00 -2.622564E+00 -2.190133E-01 -2.622564E+00 -3.647712E+00
-8.469339E-03 1.463593E+00 -9.469519E-01 1.463593E+00 -1.145402E-01 -4.828493E+00 -9.469519E-01 -4.828493E+00 -1.485069E+00
2.824857E+00 -1.982818E-01 -2.032146E+00 -1.982818E-01 3.712688E-01 3.431714E-01 -2.032146E+00 3.431714E-01 2.480765E-02
2.246763E+00 2.846081E+00 6.577894E-01 2.846081E+00 8.510186E-01 -8.365327E-01 6.577894E-01 -8.365327E-01 -4.849743E+00
-9.410488E-01 1.000354E+00 7.633951E-01 1.000354E+00 3.595179E-01 -4.029716E+00 7.633951E-01 -4.029716E+00 -3.239144E+00
-1.127675E+00 -3.328628E-01 -7.007921E-01 -3.328628E-01 8.831173E-01 -1.462222E-01 -7.007921E-01 -1.462222E-01 -7.664166E-01
2.218066E+00 2.045474E+00 3.075835E-01 2.045474E+00 1.210976E+00 -2.172109E+00 3.075835E-01 -2.172109E+00 -2.563043E+00
2.622619E+00 3.136132E+00 -2.614813E+00 3.136132E+00 3.132339E+00 -2.168921E+00 -2.614813E+00 -2.168921E+00 3.149238E-02
-9.460282E-01 2.733845E+00 1.639320E+00 2.733845E+00 1.967213E-01 -2.955039E+00 1.639320E+00 -2.955039E+00 -9.707069E-01
-1.675082E-01 1.520863E-01 1.590532E+00 1.520863E-01 -1.388229E+00 -1.248070E+00 1.590532E+00 -1.248070E+00 -8.939069E-01
-1.975751E+00 2.111142E+00 -2.791225E+00 2.111142E+00 1.192719E+00 -9.452295E-01 -2.791225E+00 -9.452295E-01 -1.944926E+00
7.115431E-01 -7.171495E-01 1.485868E+00 -7.171495E-01 -6.775918E-01 -2.486245E+00 1.485868E+00 -2.486245E+00 -2.279186E+00
4.152840E+00 8.552442E-01 -7.418966E-01 8.552442E-01 1.211015E+00 -2.707791E+00 -7.418966E-01 -2.707791E+00 9.238162E-01
-2.252766E+00 2.444397E+00 1.237137E+00 2.444397E+00 1.920417E+00 -2.364015E+00 1.237137E+00 -2.364015E+00 -5.377233E+00
-1.725039E+00 1.205262E+00 2.782751E+00 1.205262E+00 1.253670E+00 -4.236349E+00 2.782751E+00 -4.236349E+00 1.745191E+00
5.750329E+00 8.069809E-01 3.415873E-01 8.069809E-01 7.080439E+00 -8.934079E-01 3.415873E-01 -8.934079E-01 -1.517803E+00
2.103278E-01 9.873188E-01 1.367786E+00 9.873188E-01 3.616294E+00 -1.578095E+00 1.367786E+00 -1.578095E+00 1.697775E+00
-2.559839E+00 2.333306E+00 2.009505E+00 2.333306E+00 3.384136E+00 -3.632716E+00 2.009505E+00 -3.632716E+00 -2.479691E+00
-1.875311E+00 1.524955E+00 1.641615E+00 1.524955E+00 -1.343073E+00 -1.885379E+00 1.641615E+00 -1.885379E+00 -3.750099E+00
-5.044702E-01 3.520486E-01 -8.760622E-01 3.520486E-01 8.377040E-01 -2.184639E+00 -8.760622E-01 -2.184639E+00 -7.894047E-01
3.075484E-01 2.596065E+00 2.105519E-01 2.596065E+00 3.737953E+00 -2.871972E+00 2.105519E-01 -2.871972E+00 -4.544875E+00
1.917055E-01 1.636348E+00 -1.093901E+00 1.636348E+00 -2.740628E-01 -1.669239E+00 -1.093901E+00 -1.669239E+00 -4.706201E+00
-1.828760E-01 3.074134E+00 -1.053877E+00 3.074134E+00 3.986487E+00 -3.027322E-01 -1.053877E+00 -3.027322E-01 -1.307820E+00
-7.097927E-01 -9.409582E-01 1.597747E+00 -9.409582E-01 -8.373082E-01 -2.404667E+00 1.597747E+00 -2.404667E+00 -1.880554E+00
9.151141E-02 1.549851E+00 -2.618388E-01 1.549851E+00 5.485385E-01 -1.096263E+00 -2.618388E-01 -1.096263E+00 -1.731161E+00
2.590716E+00 2.623027E+00 -2.628141E+00 2.623027E+00 3.006648E+00 -2.359194E+00 -2.628141E+00 -2.359194E+00 -2.329509E+00
3.175992E+00 1.863060E+00 3.754568E-01 1.863060E+00 1.048796E+00 -1.610124E+00 3.754568E-01 -1.610124E+00 -6.275593E-01
-3.247024E-01 5.013672E-01 1.020143E-01 5.013672E-01 2.538198E+00 -2.934311E+00 1.020143E-01 -2.934311E+00 -3.260616E-01
1.143977E+00 3.461048E-01 1.239098E-01 3.461048E-01 3.618551E+00 -1.779552E+00 1.239098E-01 -1.779552E+00 -2.557559E+00
1.766494E+00 3.226734E+00 -6.470829E-01 3.226734E+00 -8.336776E-01 -3.226884E+00 -6.470829E-01 -3.226884E+00 1.185473E-01
-1.248297E+00 1.050727E+00 -1.095292E+00 1.050727E+00 1.765034E+00 -2.044666E+00 -1.095292E+00 -2.044666E+00 -2.392296E+00
-4.196761E+00 1.978824E+00 -2.867687E+00 1.978824E+00 -8.442518E-01 -2.365257E+00 -2.867687E+00 -2.365257E+00 -4.169145E+00
-6.331662E-01 2.681459E+00 1.020607E+00 2.681459E+00 2.127632E+00 -4.741876E+00 1.020607E+00 -4.741876E+00 -3.736069E+00
1.337154E+00 1.381571E+00 -1.650880E+00 1.381571E+00 3.755261E+00 -3.397520E+00 -1.650880E+00 -3.397520E+00 1.278047E+00
-1.050156E+00 1.657605E+00 -1.021646E+00 1.657605E+00 1.739035E+00 -2.725856E+00 -1.021646E+00 -2.725856E+00 -1.728790E+00
1.367205E+00 1.923792E+00 -6.129381E-01 1.923792E+00 2.200969E+00 -1.348064E+00 -6.129381E-01 -1.348064E+00 2.327977E-01
4.367235E-01 3.580620E-01 8.318362E-01 3.580620E-01 1.984870E+00 -1.822182E+00 8.318362E-01 -1.822182E+00 -4.449525E-01
-1.605317E+00 5.112523E-01 1.839924E+00 5.112523E-01 -4.815330E-01 -9.229961E-01 1.839924E+00 -9.229961E-01 -2.984314E+00
1.140838E+00 2.284042E+00 2.979780E-01 2.284042E+00 -2.831110E-01 -3.435375E+00 2.979780E-01 -3.435375E+00 -2.461599E+00
6.390682E-01 1.882070E+00 9.184276E-02 1.882070E+00 1.480825E+00 -3.026365E+00 9.184276E-02 -3.026365E+00 -1.825852E+00
1.718366E+00 1.476543E+00 -5.747991E-01 1.476543E+00 5.059234E+00 -2.393875E+00 -5.747991E-01 -2.393875E+00 1.238440E+00
-3.124448E+00 1.251348E-01 8.406351E-01 1.251348E-01 1.744426E+00 -2.634295E+00 8.406351E-01 -2.634295E+00 -1.680084E+00
-2.318086E+00 2.369322E+00 7.691391E-01 2.369322E+00 5.991430E-01 -1.829574E+00 7.691391E-01 -1.829574E+00 1.189185E+00
4.744206E-01 1.160904E+00 -5.350594E-01 1.160904E+00 -2.591510E-01 -2.672347E+00 -5.350594E-01 -2.672347E+00 -1.924160E+00
1.128434E+00 1.801132E+00 1.692272E+00 1.801132E+00 4.046627E+00 -1.272761E+00 1.692272E+00 -1.272761E+00 -1.279519E+00
1.545486E+00 1.615641E+00 -1.432531E+00 1.615641E+00 3.427141E+00 -2.487125E+00 -1.432531E+00 -2.487125E+00 -6.493050E+00
-2.270912E+00 1.992483E+00 1.694987E+00 1.992483E+00 1.490696E+00 -1.942521E+00 1.694987E+00 -1.942521E+00 -2.495351E+00
-1.072807E+00 9.321184E-01 -6.986300E-01 9.321184E-01 1.508689E+00 -3.154438E+00 -6.986300E-01 -3.154438E+00 -2.254281E+00
-1.147133E-02 2.171378E+00 -1.539792E-01 2.171378E+00 -2.472310E+00 -9.650489E-01 -1.539792E-01 -9.650489E-01 -2.677571E+00
7.359381E-02 -8.083836E-01 -3.958388E-01 -8.083836E-01 1.813723E-01 -2.397954E+00 -3.958388E-01 -2.397954E+00 -1.958124E+00
3.366185E+00 4.079789E-01 3.009057E-01 4.079789E-01 1.710175E+00 -2.793051E+00 3.009057E-01 -2.793051E+00 1.305093E+00
1.428532E+00 3.175159E+00 3.967348E-02 3.175159E+00 -6.927404E-01 -3.732865E+00 3.967348E-02 -3.732865E+00 -5.584446E-01
-6.096546E-01 4.137070E+00 -1.728137E+00 4.137070E+00 6.559673E-01 -1.742640E+00 -1.728137E+00 -1.742640E+00 -3.159226E+00
1.952057E+00 2.405177E+00 4.479912E-01 2.405177E+00 4.295706E+00 -2.989981E+00 4.479912E-01 -2.989981E+00 -2.400460E+00
3.197314E+00 1.252181E+00 -1.926002E+00 1.252181E+00 1.156654E+00 -2.131021E+00 -1.926002E+00 -2.131021E+00 -1.627296E+00
2.831269E+00 1.542429E+00 -3.795118E-01 1.542429E+00 1.004723E+00 -3.681191E+00 -3.795118E-01 -3.681191E+00 -1.789941E+00
-3.433028E+00 2.734990E+00 5.083991E-01 2.734990E+00 -1.503383E+00 -1.354814E+00 5.083991E-01 -1.354814E+00 -3.456657E+00
1.785502E+00 3.742364E+00 -2.405379E+00 3.742364E+00 8.860439E-01 -2.439460E+00 -2.405379E+00 -2.439460E+00 -1.907271E+00
1.230369E+00 1.692765E+00 5.330259E-02 1.692765E+00 3.358557E+00 -2.144015E+00 5.330259E-02 -2.144015E+00 -2.397877E+00
-2.351468E+00 2.565152E+00 -1.175447E+00 2.565152E+00 7.008988E-01 8.170961E-01 -1.175447E+00 8.170961E-01 -2.539447E+00
-2.287927E+00 1.579571E+00 6.866799E-01 1.579571E+00 1.545869E+00 -1.329173E+00 6.866799E-01 -1.329173E+00 -1.165953E+00
-2.648834E-01 1.724308E+00 -2.550906E+00 1.724308E+00 3.007562E+00 -2.810320E+00 -2.550906E+00 -2.810320E+00 -3.685633E+00
3.042235E+00 -1.202984E-02 -3.109379E-01 -1.202984E-02 2.865046E+00 -1.198483E+00 -3.109379E-01 -1.198483E+00 -1.245292E+00
-5.210949E-01 -1.534647E-01 2.366666E+00 -1.534647E-01 3.690573E+00 -2.951556E+00 2.366666E+00 -2.951556E+00 -1.453780E+00
-2.495384E+00 2.283473E+00 1.230515E+00 2.283473E+00 -9.426707E-01 -2.629287E+00 1.230515E+00 -2.629287E+00 -1.354820E+00
-1.878137E+00 1.807295E+00 7.709265E-01 1.807295E+00 -4.977797E-01 -1.779664E+00 7.709265E-01 -1.779664E+00 -2.553269E+00
1.075376E+00 1.842613E+00 -1.543479E+00 1.842613E+00 2.215280E+00 -3.298710E+00 -1.543479E+00 -3.298710E+00 -7.962539E-02
7.485736E-01 8.894105E-01 5.839009E-01 8.894105E-01 1.425672E+00 -8.551527E-01 5.839009E-01 -8.551527E-01 -1.076856E+00
1.360909E+00 2.374304E+00 4.405241E-01 2.374304E+00 3.457235E+00 -2.886976E+00 4.405241E-01 -2.886976E+00 -3.675302E+00
1.854991E+00 6.333600E-01 -1.103668E+00 6.333600E-01 2.787136E+00 -2.631240E+00 -1.103668E+00 -2.631240E+00 -8.462810E-01
2.223036E+00 2.756293E+00 -8.546666E-01 2.756293E+00 4.412539E+00 -2.036270E+00 -8.546666E-01 -2.036270E+00 7.862514E-04
3.172098E-01 3.490617E+00 -1.577533E-01 3.490617E+00 1.206875E+00 -1.761601E+00 -1.577533E-01 -1.761601E+00 -2.230688E+00
1.299804E+00 1.967941E-01 1.082615E+00 1.967941E-01 1.690216E+00 -2.428466E+00 1.082615E+00 -2.428466E+00 -3.111512E+00
-1.152285E+00 1.892966E+00 -1.280443E+00 1.892966E+00 1.903827E+00 -3.331448E+00 -1.280443E+00 -3.331448E+00 -3.238447E+00
1.804742E+00 1.518232E+00 4.275969E-01 1.518232E+00 1.461910E+00 -2.869808E+00 4.275969E-01 -2.869808E+00 -3.121084E+00
6.333694E-02 -4.060393E-02 1.641493E+00 -4.060393E-02 2.030082E+00 -1.428933E+00 1.641493E+00 -1.428933E+00 -3.994820E+00
1.883794E+00 7.097973E-01 -3.660149E-01 7.097973E-01 4.476205E+00 -7.234495E+00 -3.660149E-01 -7.234495E+00 -6.678392E-01
5.236314E-01 5.547751E-01 -1.475933E+00 5.547751E-01 -2.749382E+00 -2.463650E+00 -1.475933E+00 -2.463650E+00 -8.653904E-01
5.884390E-01 1.990579E+00 9.956258E-01 1.990579E+00 2.124192E+00 -1.158522E+00 9.956258E-01 -1.158522E+00 -3.908685E+00
2.730921E-01 1.805752E+00 7.368012E-01 1.805752E+00 9.691705E-01 -1.749435E+00 7.368012E-01 -1.749435E+00 -2.288582E+00
-6.393543E-01 3.530639E+00 -1.166260E+00 3.530639E+00 -9.253223E-01 -2.575552E+00 -1.166260E+00 -2.575552E+00 -9.367987E-01
6.490866E-01 2.380592E+00 8.822850E-01 2.380592E+00 2.885347E+00 -2.199654E+00 8.822850E-01 -2.199654E+00 -9.910573E-01
-2.078808E+00 1.850549E+00 -9.510761E-01 1.850549E+00 2.443982E+00 -1.665852E+00 -9.510761E-01 -1.665852E+00 -1.413902E-01
1.591767E-01 8.202668E-01 -3.646549E-01 8.202668E-01 2.578135E+00 -2.779585E+00 -3.646549E-01 -2.779585E+00 -2.919010E-01
-8.335926E-02 3.380337E+00 -1.114031E+00 3.380337E+00 2.476084E+00 -2.169408E+00 -1.114031E+00 -2.169408E+00 -3.871792E+00
-8.733562E-01 2.508619E+00 1.642205E+00 2.508619E+00 3.410065E+00 -1.761657E+00 1.642205E+00 -1.761657E+00 -4.405185E+00
-7.593741E-01 1.213463E+00 4.890108E-01 1.213463E+00 2.212427E+00 -2.332528E+00 4.890108E-01 -2.332528E+00 -3.087596E+00
2.149783E+00 1.315734E+00 -2.018937E-01 1.315734E+00 2.032190E+00 -9.822484E-01 -2.018937E-01 -9.822484E-01 2.355143E-01
-1.351753E+00 3.631921E+00 -1.209699E+00 3.631921E+00 2.411593E+00 -5.995829E-01 -1.209699E+00 -5.995829E-01 -2.168659E+00
2.800543E+00 1.139588E+00 7.521062E-01 1.139588E+00 1.121520E+00 3.234054E-01 7.521062E-01 3.234054E-01 -5.970670E-01
-1.892155E+00 9.579359E-02 -5.524658E-01 9.579359E-02 2.876276E+00 -2.231930E+00 -5.524658E-01 -2.231930E+00 -5.745064E+00
-1.192103E+00 2.962316E+00 -2.398603E+00 2.962316E+00 3.781262E+00 -2.852736E+00 -2.398603E+00 -2.852736E+00 -4.844297E+00
-1.877735E-02 4.036339E+00 -1.571090E-02 4.036339E+00 4.325437E+00 -1.707697E+00 -1.571090E-02 -1.707697E+00 -3.654201E+00
5.132188E-01 2.107766E+00 -1.475882E+00 2.107766E+00 2.657111E-01 3.419027E-01 -1.475882E+00 3.419027E-01 -3.515690E+00
3.147653E+00 1.775908E+00 1.942961E+00 1.775908E+00 2.290080E+00 -1.187209E+00 1.942961E+00 -1.187209E+00 -3.751002E+00
2.329096E-01 9.349568E-01 -1.917298E-01 9.349568E-01 1.973545E-01 -2.010329E+00 -1.917298E-01 -2.010329E+00 -3.308460E+00
-5.961184E-01 2.512478E+00 -1.371544E-01 2.512478E+00 2.175124E+00 -4.888832E+00 -1.371544E-01 -4.888832E+00 -8.043925E+00
-2.782791E+00 3.327822E+00 4.575080E-01 3.327822E+00 2.225704E+00 -3.177567E+00 4.575080E-01 -3.177567E+00 -1.448555E-01
-9.057909E-01 3.217293E+00 -5.419515E-01 3.217293E+00 4.156804E+00 -4.489615E-01 -5.419515E-01 -4.489615E-01 -2.620830E-01
2.459103E+00 8.874601E-01 -6.554590E-01 8.874601E-01 4.204379E+00 -9.528925E-01 -6.554590E-01 -9.528925E-01 -1.223473E+00
3.038829E-01 1.235542E+00 4.818641E-02 1.235542E+00 3.217816E+00 -2.568871E+00 4.818641E-02 -2.568871E+00 -5.527629E-01
-1.681393E-01 1.056887E+00 -3.300531E-01 1.056887E+00 3.648998E-01 -2.868036E+00 -3.300531E-01 -2.868036E+00 -1.925168E+00
1.539965E+00 2.374893E-01 3.111651E-01 2.374893E-01 2.256230E+00 -2.118790E+00 3.111651E-01 -2.118790E+00 -3.080523E+00
1.990664E+00 9.108789E-01 -2.240366E+00 9.108789E-01 1.214502E+00 -3.761115E+00 -2.240366E+00 -3.761115E+00 -2.281274E+00
-2.890669E-01 1.831788E+00 6.270413E-01 1.831788E+00 6.654215E-01 -3.340094E+00 6.270413E-01 -3.340094E+00 -9.735182E-01
1.786611E+00 -4.415227E-03 -1.501917E-01 -4.415227E-03 1.091108E+00 -1.809585E-01 -1.501917E-01 -1.809585E-01 -2.574169E+00
-1.914958E+00 1.532613E+00 -1.639214E-01 1.532613E+00 3.891478E-01 -8.360263E-01 -1.639214E-01 -8.360263E-01 -1.882975E+00
1.103250E+00 2.208555E+00 -5.422322E-01 2.208555E+00 2.037654E+00 -1.232063E+00 -5.422322E-01 -1.232063E+00 -1.343262E+00
-2.675074E+00 1.822813E+00 4.384531E-01 1.822813E+00 -1.805322E+00 -1.371916E+00 4.384531E-01 -1.371916E+00 -3.659944E+00
2.370765E+00 1.024060E+00 1.279785E+00 1.024060E+00 5.733645E+00 -2.700699E+00 1.279785E+00 -2.700699E+00 -2.638461E+00
1.751501E-02 2.595162E+00 1.877473E+00 2.595162E+00 1.388465E+00 -1.254779E+00 1.877473E+00 -1.254779E+00 -7.111900E-01
2.744805E+00 -1.548293E-01 -2.809550E-01 -1.548293E-01 -3.890479E-01 -3.028044E+00 -2.809550E-01 -3.028044E+00 9.528623E-01
-3.540527E+00 6.127995E-01 2.824924E+00 6.127995E-01 1.515616E+00 -1.543759E+00 2.824924E+00 -1.543759E+00 -1.161686E+00
7.816440E-01 1.280137E+00 1.340251E-01 1.280137E+00 6.206803E-01 -4.368411E+00 1.340251E-01 -4.368411E+00 -7.070439E-01
-1.794204E+00 2.493964E+00 -1.366393E+00 2.493964E+00 3.104046E+00 -2.495445E+00 -1.366393E+00 -2.495445E+00 -2.936417E+00
-3.630402E+00 4.422134E-01 1.346824E+00 4.422134E-01 1.486175E+00 -3.426505E+00 1.346824E+00 -3.426505E+00 -7.044455E-01
-4.877982E-01 1.062934E+00 -2.383536E+00 1.062934E+00 2.990613E+00 -1.980180E+00 -2.383536E+00 -1.980180E+00 -2.027413E+00
3.476420E+00 2.282525E+00 -9.566322E-01 2.282525E+00 3.082479E+00 -3.682318E+00 -9.566322E-01 -3.682318E+00 -2.547673E+00
7.507323E-01 1.723537E+00 -1.642012E+00 1.723537E+00 4.273628E+00 -5.611799E-01 -1.642012E+00 -5.611799E-01 -1.103856E+00
-4.275360E-01 2.824745E+00 2.714444E+00 2.824745E+00 4.025443E+00 -1.219076E+00 2.714444E+00 -1.219076E+00 -2.940182E+00
1.081856E+00 1.410295E+00 1.557792E+00 1.410295E+00 2.106302E+00 -2.589044E+00 1.557792E+00 -2.589044E+00 -1.087268E+00
1.838846E+00 1.346400E+00 1.606338E+00 1.346400E+00 7.189344E+00 -2.539782E+00 1.606338E+00 -2.539782E+00 -1.551821E+00
1.632525E-01 6.758122E-01 6.703847E-01 6.758122E-01 7.517731E+00 -2.024514E+00 6.703847E-01 -2.024514E+00 1.333877E+00
9.881726E-01 7.359061E-01 1.698643E-01 7.359061E-01 2.433425E-01 -3.179390E+00 1.698643E-01 -3.179390E+00 -3.859523E-01
4.235914E-01 1.039368E+00 6.057094E-01 1.039368E+00 1.051426E+00 -2.882629E+00 6.057094E-01 -2.882629E+00 -2.465133E+00
5.765320E-01 1.947223E+00 -2.446469E-01 1.947223E+00 3.513376E+00 -1.074153E+00 -2.446469E-01 -1.074153E+00 -1.373026E-01
3.571910E-01 7.717668E-01 -1.463004E-01 7.717668E-01 1.925743E-01 -3.563651E+00 -1.463004E-01 -3.563651E+00 -1.121207E-01
-1.835771E+00 1.952018E+00 1.676147E-01 1.952018E+00 -1.721325E+00 -1.072124E+00 1.676147E-01 -1.072124E+00 -5.181089E+00
-2.220698E+00 9.621529E-01 -7.991014E-01 9.621529E-01 4.277728E+00 -4.309839E+00 -7.991014E-01 -4.309839E+00 -1.336097E+00
-1.331159E+00 3.107174E-01 1.609608E+00 3.107174E-01 2.603984E+00 -2.194565E+00 1.609608E+00 -2.194565E+00 -4.278261E+00
3.382258E+00 3.841390E+00 5.461275E-01 3.841390E+00 2.947443E+00 -2.891766E+00 5.461275E-01 -2.891766E+00 -9.580548E-01
-7.216826E-01 6.957325E-01 2.175388E+00 6.957325E-01 1.618902E+00 -2.641698E+00 2.175388E+00 -2.641698E+00 2.641482E-03
-4.009454E-01 2.518823E+00 -1.797837E+00 2.518823E+00 -6.613840E-01 -3.404756E+00 -1.797837E+00 -3.404756E+00 -2.258771E+00
-1.078547E+00 -2.045597E-01 -9.249163E-02 -2.045597E-01 2.281110E-01 -2.988643E+00 -9.249163E-02 -2.988643E+00 -1.831545E+00
2.841497E+00 4.640975E-01 -1.263314E+00 4.640975E-01 2.727821E+00 -7.524355E-01 -1.263314E+00 -7.524355E-01 1.042963E+00
1.287848E+00 3.346155E+00 -2.853682E+00 3.346155E+00 -9.675049E-01 -4.913814E+00 -2.853682E+00 -4.913814E+00 -8.599796E-01
1.546504E+00 1.256570E+00 -1.260978E+00 1.256570E+00 -2.529444E+00 -2.349990E+00 -1.260978E+00 -2.349990E+00 -9.395676E-01
6.609320E-01 3.272284E+00 -6.821123E-01 3.272284E+00 3.757135E+00 -4.474573E+00 -6.821123E-01 -4.474573E+00 -3.464727E+00
-4.219434E-01 1.685964E+00 -1.848215E+00 1.685964E+00 2.635702E+00 -1.314165E+00 -1.848215E+00 -1.314165E+00 2.257555E+00
1.338534E-01 1.683113E+00 1.231229E+00 1.683113E+00 -4.728032E-01 -2.320232E+00 1.231229E+00 -2.320232E+00 -1.622430E+00
1.054395E+00 1.005759E+00 2.106485E+00 1.005759E+00 -4.454307E-01 -3.318783E+00 2.106485E+00 -3.318783E+00 -4.551546E+00
1.670814E-01 2.284533E+00 1.249868E-01 2.284533E+00 2.598877E+00 -3.613422E+00 1.249868E-01 -3.613422E+00 -2.468502E+00
-1.256188E+00 -5.642807E-01 -2.222274E+00 -5.642807E-01 6.255710E+00 -2.101424E+00 -2.222274E+00 -2.101424E+00 5.372429E-01
1.209935E+00 1.072575E+00 9.002524E-01 1.072575E+00 2.406888E+00 -2.791831E+00 9.002524E-01 -2.791831E+00 7.264842E-01
-1.855874E+00 1.126757E+00 -5.143119E-01 1.126757E+00 -1.609894E+00 -1.940330E+00 -5.143119E-01 -1.940330E+00 -3.436159E+00
9.566649E-01 1.711672E+00 -1.474319E+00 1.711672E+00 6.287543E+00 -3.847498E+00 -1.474319E+00 -3.847498E+00 -4.112173E-01
1.549008E-01 1.304522E+00 7.677907E-01 1.304522E+00 1.918674E+00 -9.108966E-01 7.677907E-01 -9.108966E-01 -3.175593E+00
1.801309E+00 1.761842E+00 -3.771920E-02 1.761842E+00 3.504825E-01 -3.837687E+00 -3.771920E-02 -3.837687E+00 -5.806374E+00
2.778793E+00 2.518559E+00 -6.250241E-01 2.518559E+00 -9.508876E-01 -1.124925E+00 -6.250241E-01 -1.124925E+00 -3.926380E+00
-3.454541E+00 9.707931E-01 1.335631E+00 9.707931E-01 1.410506E+00 -1.768679E-02 1.335631E+00 -1.768679E-02 -1.867779E+00
1.119715E+00 2.764381E+00 7.201556E-02 2.764381E+00 -1.693056E+00 -2.684843E+00 7.201556E-02 -2.684843E+00 1.181342E+00
-1.341961E+00 7.063839E-01 2.159511E-01 7.063839E-01 -2.158153E+00 -2.685445E+00 2.159511E-01 -2.685445E+00 -1.717375E+00
4.069371E+00 1.061816E+00 6.634557E-01 1.061816E+00 3.557556E+00 -1.180471E+00 6.634557E-01 -1.180471E+00 -6.000307E-01
-5.043244E-02 1.772288E+00 -6.908112E-01 1.772288E+00 2.118772E+00 -2.034454E+00 -6.908112E-01 -2.034454E+00 -2.094266E+00
1.184192E+00 2.043544E+00 -6.010647E-01 2.043544E+00 1.050570E+00 -1.355741E+00 -6.010647E-01 -1.355741E+00 -4.464482E-01
2.601805E+00 2.714491E-01 -1.360103E+00 2.714491E-01 -3.595431E-01 -2.556816E+00 -1.360103E+00 -2.556816E+00 -1.342036E+00
9.222060E-01 1.966413E+00 6.735294E-02 1.966413E+00 -9.103395E-01 -1.181256E+00 6.735294E-02 -1.181256E+00 -1.776113E+00
4.114406E-01 1.042499E+00 -8.315609E-01 1.042499E+00 -3.409681E-01 -1.331096E+00 -8.315609E-01 -1.331096E+00 -3.413981E+00
-1.398991E-01 9.183926E-01 -1.649588E+00 9.183926E-01 6.141605E-01 -2.679621E+00 -1.649588E+00 -2.679621E+00 -3.900107E+00
1.817845E+00 2.029449E+00 -1.146984E+00 2.029449E+00 -1.186259E+00 -2.014224E+00 -1.146984E+00 -2.014224E+00 -1.569761E+00
2.461432E+00 3.212072E+00 -5.034213E-02 3.212072E+00 1.834980E+00 -2.831953E+00 -5.034213E-02 -2.831953E+00 -3.527295E+00
2.053603E+00 4.367943E-01 3.336003E-01 4.367943E-01 -2.582722E+00 -1.882504E+00 3.336003E-01 -1.882504E+00 -1.795687E+00
-1.184753E-01 3.974847E-01 5.909799E-01 3.974847E-01 2.687308E-03 -2.366056E+00 5.909799E-01 -2.366056E+00 -5.105329E+00
7.903868E-01 1.515766E+00 -6.076250E-01 1.515766E+00 3.624674E+00 -2.042255E+00 -6.076250E-01 -2.042255E+00 5.015244E-02
3.273783E-01 -1.031050E+00 -6.577529E-01 -1.031050E+00 1.250994E+00 -2.225098E+00 -6.577529E-01 -2.225098E+00 -1.623541E+00
3.889490E+00 3.842790E+00 -2.463826E-01 3.842790E+00 1.440739E+00 -2.074602E+00 -2.463826E-01 -2.074602E+00 -2.410873E-01
2.808441E-01 2.574419E+00 1.008860E+00 2.574419E+00 -3.182868E-01 -3.791086E+00 1.008860E+00 -3.791086E+00 -4.086247E+00
-7.671154E-01 1.459560E+00 6.540136E-01 1.459560E+00 -9.934811E-02 -4.476447E+00 6.540136E-01 -4.476447E+00 -5.288517E+00
3.723928E-01 3.440146E+00 -8.298431E-01 3.440146E+00 3.002222E+00 -8.740106E-01 -8.298431E-01 -8.740106E-01 -2.817541E+00
3.215400E+00 1.161456E+00 -8.671352E-01 1.161456E+00 6.132069E+00 -4.714680E+00 -8.671352E-01 -4.714680E+00 -9.811195E-01
1.054982E+00 1.731868E+00 -7.580314E-01 1.731868E+00 2.752077E+00 -1.663945E+00 -7.580314E-01 -1.663945E+00 1.764859E+00
3.705978E-01 2.360818E+00 -6.478098E-01 2.360818E+00 4.043413E+00 -2.862907E+00 -6.478098E-01 -2.862907E+00 -1.620442E+00
1.672694E+00 7.475064E-01 2.024248E+00 7.475064E-01 3.695308E+00 -3.056240E+00 2.024248E+00 -3.056240E+00 -1.093122E+00
-3.024647E+00 9.518559E-01 -9.356444E-01 9.518559E-01 -2.736693E-01 -2.442576E+00 -9.356444E-01 -2.442576E+00 -3.364609E+00
-5.930455E-01 2.279970E+00 -2.553868E+00 2.279970E+00 3.339648E+00 -2.798404E+00 -2.553868E+00 -2.798404E+00 6.710047E-01
1.952470E+00 2.580490E+00 -4.824095E-01 2.580490E+00 2.140900E+00 -3.405960E+00 -4.824095E-01 -3.405960E+00 -4.536899E-01
2.203285E+00 6.731412E-01 7.766563E-01 6.731412E-01 7.003836E-01 -4.425442E+00 7.766563E-01 -4.
 
lehloks said:
...and I have modified to read a 9 component stress tensor data. I can compile it successfully but when I try to run it and compute a stress correlation function I get an error...
It's possible that your modifications were not correct.
Try to debug your program to find where is the error.

You code is long and you posted it again unformatted. I doubt, that somebody will edit it to compile it.
 
Hi

Sorry for adding an unedited code,I didnt know how tags work. I think the issue with the code might be with data format.


OUTPUT ERROR
**** PROGRAM TCORR ****
CALCULATION OF TIME CORRELATION FUNCTIONS
ENTER DATA FILE NAME
DFILE.txt
ENTER RESULTS FILE NAME
TRIAL_1
0.000000
0.000000
0.000000
0.000000
0.000000
0.000000
0.000000
0.000000
8336
Segmentation fault




Code:
C     PROGRAM TCORR

      COMMON / BLOCK1 / STORA, STORB, STORC, STORD,STORE,STORF,STORG,
     & STORH, STORI
      COMMON / BLOCK2 / PA, PB, PC, PD, PE, PF, PG, PH , PI
      COMMON / BLOCK3 / PACF, ANORM

C *******************************************************************

      INTEGER N, NSTEP, IOR, NT, NDIM, DUNIT, RUNIT, NTIMOR
      INTEGER FULLUP
      PARAMETER ( N = 2377, NSTEP = 8, IOR = 2, NT = 8 )
      PARAMETER ( DUNIT = 10, RUNIT = 11 )
      PARAMETER ( NDIM = NT / IOR + 1, NTIMOR = NSTEP / IOR )
      PARAMETER ( FULLUP = NDIM - 1 )

      REAL PA(N), PB(N), PC(N), PD(N), PE(N), PF(N), PG(N), PH(N), PI(N)
      REAL STORA(NDIM,N), STORB(NDIM,N), STORC(NDIM,N),STORD(NDIM,N),
     &  STORE(NDIM,N),STORF(NDIM,N),STORG(NDIM,N),STORH(NDIM,N),
     &  STORI(NDIM,N)
      REAL PACF(NT), ANORM(NT)
      INTEGER S(NTIMOR), TM(NTIMOR)
      INTEGER TS, TSS, L, NINCOR, K, R, JA, IB, IN, IA, JO, I
      INTEGER NLABEL
      CHARACTER DUMMY * 5
      CHARACTER DFILE * 30
      CHARACTER RFILE * 30

C *******************************************************************

      WRITE(*,'('' **** PROGRAM TCORR **** '')')
      WRITE(*,'('' CALCULATION OF TIME CORRELATION FUNCTIONS '')')

C ** READ IN FILE NAMES **

      WRITE(*,'('' ENTER DATA FILE NAME '')')
      READ (*,'(A)') DFILE
      WRITE (*,'('' ENTER RESULTS FILE NAME '')')
      READ (*,'(A)') RFILE

C ** INITIALIZE COUNTERS **

      NINCOR = FULLUP
      JA = 1
      IA = 1
      IB = 1

C ** ZERO ARRAYS **

      DO 5 I = 1, NT

      PACF(I) = 0.0
      ANORM(I) = 0.0
      write(*,*) PACF(I)
    5 CONTINUE


C ** OPEN DATA FILE AND RESULTS FILE **

      OPEN ( UNIT = 13, FILE = DFILE, STATUS = 'OLD',
     : FORM = 'FORMATTED')

      OPEN ( UNIT = RUNIT, FILE = RFILE, STATUS = 'NEW' )

C ** CALCULATION BEGINS **

      DO 40 L = 1, NTIMOR

      JA = JA + 1
      S(L) = JA - 1

      READ (13, '(A5,I4)') DUMMY, NLABEL
      DO 7 R = 1, N

      READ(13,'(E13.6,8(2X,E13.6))')PA(R),PB(R),PC(R),PD(R),
     & PE(R),PF(R),PG(R),PH(R),PI(R)
    7 CONTINUE

      TM(L) = NLABEL
      write(*,*) TM(L)

C ** STORE STEP AS A TIME ORIGIN **
      CALL STOREE ( JA )

C ** CORRELATE THE ORIGINS IN STORE **

      DO 10 IN = IA, L

      TSS = TM(L) - TM(IN)
      TS = TSS + 1
      JO = S(IN) + 1
      CALL CORR ( JO, JA, TS )

   10 CONTINUE

C ** READ IN DATA BETWEEN TIME ORIGINS. THIS CAN **
C ** BE CONVENIENTLY STORED IN ELEMENT 1 OF THE **
C ** ARRAYS STORX ETC. AND CAN THEN BEN CORRELATED **
C ** WITH THE TIME ORIGINS. **

      DO 30 K = 1, IOR - 1

      READ (13, '(A5,I4)') DUMMY, NLABEL
      DO 15 R = 1, N
      READ(13,'(E13.6,8(2X,E13.6))')PA(R),PB(R),PC(R),PD(R),
     & PE(R),PF(R),PG(R),PH(R),PI(R)

   15 CONTINUE

      CALL STOREE ( 1 )

      DO 20 IN = IA, L

      TSS = NLABEL - TM(IN)
      TS = TSS + 1
      JO = S(IN) + 1
      CALL CORR ( JO, 1, TS )

   20 CONTINUE

   30 CONTINUE

      IF ( L .GE. FULLUP ) THEN

      IF ( L .EQ. NINCOR ) THEN

      NINCOR = NINCOR + FULLUP
      JA = 1

      ENDIF

      IA = IA + 1

      ENDIF

   40 CONTINUE

      CLOSE ( DUNIT )

C ** NORMALISE CORRELATION FUNCTIONS **

      PACF(1) = PACF(1) / ANORM(1) / REAL ( N )

      DO 50 I = 2, NT

      PACF(I) = PACF(I) / ANORM(I) / REAL ( N ) / PACF(1)

   50 CONTINUE

      WRITE ( RUNIT, '('' VELOCITY ACF '')')
      WRITE ( RUNIT, '(I6,E15.6)') ( I, PACF(I), I = 1, NT )

      CLOSE ( RUNIT )

      STOP
      END



      SUBROUTINE STOREE ( J1 )

      COMMON / BLOCK1 / STORA, STORB, STORC, STORD,STORE,STORF,STORG,
     & STORH,STORI
      COMMON/ BLOCK2 / PA, PB, PC, PD, PE, PF, PG, PH, PI

C ** SUBROUTINE TO STORE TIME ORIGINS **

      INTEGER J1
      INTEGER N, NT, IOR, NDIM
      PARAMETER ( N = 2377, NT = 8, IOR =8 )
      PARAMETER ( NDIM = NT / IOR + 1 )

      REAL STORA(NDIM,N), STORB(NDIM,N), STORC(NDIM,N),STORD(NDIM,N),
     & STORE(NDIM,N),STORF(NDIM,N),STORG(NDIM,N),STORH(NDIM,N),
     & STORI(NDIM,N)
      REAL PA(N), PB(N), PC(N), PD(N), PE(N), PF(N),PG(N), PH(N), PI(N)
      INTEGER I


      DO 10 I = 1, N

      STORA(J1,I) = PA(I)
      STORB(J1,I) = PB(I)
      STORC(J1,I) = PC(I)
      STORD(J1,I) = PD(I)
      STORE(J1,I) = PE(I)
      STORF(J1,I) = PF(I)
      STORG(J1,I) = PG(I)
      STORH(J1,I) = PH(I)
      STORI(J1,I) = PI(I)
   10 CONTINUE

      RETURN
      END



      SUBROUTINE CORR ( J1, J2, IT )

      COMMON / BLOCK1 / STORA, STORB, STORC, STORD,STORE,STORF,STORG,
     & STORH,STORI
      COMMON/ BLOCK3 / PACF, ANORM

C ** SUBROUTINE TO CORRELATE TIME ORIGINS **

      INTEGER J1, J2, IT
      INTEGER N, NT, IOR, NDIM
      PARAMETER ( N = 2377, NT = 8, IOR = 8 )
      PARAMETER ( NDIM = NT / IOR + 1 )

      REAL STORA(NDIM,N), STORB(NDIM,N), STORC(NDIM,N),STORD(NDIM,N),
     & STORE(NDIM,N),STORF(NDIM,N),STORG(NDIM,N),STORH(NDIM,N),
     & STORI(NDIM,N)

c     & STORB(NDIM,N)   
      REAL PACF(NT), ANORM(NT)
      INTEGER I

C ********************************************************************

      DO 10 I = 1, N

      PACF(IT) = PACF(IT) + STORA(J1,I) * STORA(J2,I)
     : + STORB(J1,I) * STORB(J2,I)
     : + STORC(J1,I) * STORC(J2,I)
     : + STORD(J1,I) * STORD(J2,I)
     : + STORE(J1,I) * STORE(J2,I)
     : + STORF(J1,I) * STORF(J2,I)
     : + STORG(J1,I) * STORG(J2,I)
     : + STORH(J1,I) * STORH(J2,I)
     : + STORI(J1,I) * STORI(J2,I)
   10 CONTINUE

      ANORM(IT) = ANORM(IT) + 1.0
      
      RETURN
      END


 
1. The data file you use isn't properly formatted. It must be something like original file, i.e:
Code:
STEP 1
data
...
STEP 2
data
...
It seems that you try to modify the original example from 3-columns data to 9-columns, but you have changed the structure of the datafile too. The program wants read the 5-character string and 4-digit integer, but you don't have this in your data file...
Code:
...
 READ (13, '(A5,I4)') DUMMY, NLABEL
...
The program expects data file structure as above. If your data file doesn't have these lines you must change the logic of reading.

2. There is problem with reading the data from the file in this format
Code:
READ(13,'(E13.6,8(2X,E13.6))')PA(R),PB(R),PC(R),PD(R),
     & PE(R),PF(R),PG(R),PH(R),PI(R)
Change tthe formatted read into
Code:
READ(13,*)PA(R),PB(R),PC(R),PD(R),
     & PE(R),PF(R),PG(R),PH(R),PI(R)

I cannot help you more because I don't know how the original program works and what should it do.

But IMHO: before you start to modify existing program for your purposes, you must understand how the original program works. Use a debugger to step thru the program and inspect the varaible values. If you don't have a debugger, you have to print variable values on the program lines you want to inspect.
Without understanding how the original code works, you have no chance tu reuse existing code.
 
Your IOR in the main program is 2 but in storee it is 8 so your common blocks are of different sizes.

To avoid the problem, put the common blocks in include files. It will take slightly longer to compile, but at least you won't spend ages hunting down the bug.

Code:
      PARAMETER ( N = 2377, NSTEP = 8, IOR = 2, NT = 8 )
      PARAMETER ( NDIM = NT / IOR + 1 )
Code:
      COMMON / BLOCK1 / STORA, STORB, STORC, STORD,STORE,STORF,STORG,
     & STORH, STORI

      REAL STORA(NDIM,N), STORB(NDIM,N), STORC(NDIM,N),STORD(NDIM,N),
     & STORE(NDIM,N),STORF(NDIM,N),STORG(NDIM,N),STORH(NDIM,N),
     & STORI(NDIM,N)
Code:
      COMMON/ BLOCK2 / PA, PB, PC, PD, PE, PF, PG, PH, PI
      REAL PA(N), PB(N), PC(N), PD(N), PE(N), PF(N),PG(N), PH(N), PI(N)
Code:
      COMMON/ BLOCK3 / PACF, ANORM
      REAL PACF(NT), ANORM(NT)
Code:
      INCLUDE 'const.inc'
      INCLUDE 'block1.inc'
      INCLUDE 'block2.inc'
      INCLUDE 'block3.inc'

...
      SUBROUTINE STOREEE ...
      INCLUDE 'const.inc'
      INCLUDE 'block1.inc'
      INCLUDE 'block2.inc'
...
 
Sorry, didn't check - the formatting has gone weird. You'll have to adjust the formatting.
 
What I forgot to say...
Look at these parameters
Code:
      PARAMETER ( N = 2377, NSTEP = 8, IOR = 2, NT = 8 )
      PARAMETER ( DUNIT = 10, RUNIT = 11 )
      PARAMETER ( NDIM = NT / IOR + 1, NTIMOR = NSTEP / IOR )
      PARAMETER ( FULLUP = NDIM - 1 )
You have to adjust these parameters for your data file. For example this loop
Code:
      DO 7 R = 1, N

      READ(13,'(E13.6,8(2X,E13.6))')PA(R),PB(R),PC(R),PD(R),
     & PE(R),PF(R),PG(R),PH(R),PI(R)
    7 CONTINUE
tries to read N = 2377 lines from your data file.
 
On F77, you don't need to use labels for the do loops.
Code:
      DO 10 II=1,20
         ...
10    CONTINUE
can be replaced by
Code:
      DO II=1,20
         ...
      ENDDO
The labels are just a hang over from F66 or FIV.
 
The original code read a certain number of time origins


NTIMOR = NSTEP / IOR = 1000 / 4 = 250

and after every time origin you have to read a certain number of time steps
Code:

IOR - 1 = 4 - 1 = 3

In practice the code reads 4 steps at each iteration (the first step being a time origin) and computes the time correlation. Then reads in the next 4 steps and compute the time correlation and so on to the end of the file.






 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top