File indexing completed on 2018-03-02 18:41:48 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
a9544d2f65 Sama*0001 #ifdef ALLOW_MATRIX
0002
5d0c92356b Jean*0003 INTEGER expMatrixCounter(nSx,nSy), impMatrixCounter(nSx,nSy)
0004 INTEGER expMatrixWriteCount, impMatrixWriteCount
a9544d2f65 Sama*0005 _RL expMatrixWriteTime, impMatrixWriteTime
5d0c92356b Jean*0006 COMMON /MATRIX_PARAMS_I/
0007 & expMatrixCounter, impMatrixCounter,
0008 & expMatrixWriteCount, impMatrixWriteCount
0009 COMMON /MATRIX_PARAMS_R/
a9544d2f65 Sama*0010 & expMatrixWriteTime, impMatrixWriteTime
bee329ac67 Jean*0011
a9544d2f65 Sama*0012 _RL MATRIX(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,
bee329ac67 Jean*0013 & PTRACERS_num,2)
a9544d2f65 Sama*0014 _RL PTRACERS_initial(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,
0015 & PTRACERS_num)
0016 COMMON /MATRIX_FIELDS/ MATRIX, PTRACERS_initial
bee329ac67 Jean*0017
a9544d2f65 Sama*0018 #endif /* ALLOW_MATRIX */