diff options
| author | HEBERT Alain <alain.hebert@polymtl.ca> | 2025-12-28 15:55:41 -0500 |
|---|---|---|
| committer | HEBERT Alain <alain.hebert@polymtl.ca> | 2025-12-28 15:55:41 -0500 |
| commit | 754ef58dfd2880f95dd9765d035389f391917492 (patch) | |
| tree | d7056a5fcb559893c91df8d7533fa5fdb03d8480 /Dragon/src/EPCRMU.f | |
| parent | ec64ba52445d2d06deba1216471ccf3d289c78a3 (diff) | |
| parent | 744b40856a035580b786378cae13d453edd26689 (diff) | |
Merge branch '19-depreciate-use-of-version-4-and-5-0-draglibs' into 'main'
Resolve "Depreciate use of Version 4 and 5.0 Draglibs"
See merge request dragon/5.1!40
Diffstat (limited to 'Dragon/src/EPCRMU.f')
| -rw-r--r-- | Dragon/src/EPCRMU.f | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Dragon/src/EPCRMU.f b/Dragon/src/EPCRMU.f index 7021bee..910eab9 100644 --- a/Dragon/src/EPCRMU.f +++ b/Dragon/src/EPCRMU.f @@ -48,7 +48,7 @@ TYPE(C_PTR) IPEPC,IPMIC INTEGER IPRINT,NGR,NIS,NXS,NCV, > NBISO,NMIXT,NIFISS,ITOTL,ISCAT - CHARACTER*6 NAMDXS(NXS) + CHARACTER*8 NAMDXS(NXS) INTEGER NAMISO(3,NIS),NISOU(3,NBISO),ISOMIX(NBISO), > IDVF(2,NIS),IDMF(2,NBISO) *---- @@ -126,11 +126,11 @@ *---- * Get covariance matrices *---- - RECNAM='INDX'//NAMDXS(IXS)//' ' + RECNAM='INDX'//NAMDXS(IXS) CALL LCMLEN(IPEPC,RECNAM,ILCMLN,ILCMTY) IF(ILCMLN .EQ. NGR) THEN CALL LCMGET(IPEPC,RECNAM,ICOV(1,IXS)) - RECNAM=NAMDXS(IXS)//' ' + RECNAM=NAMDXS(IXS)//' ' CALL LCMGET(IPEPC,RECNAM,COV(1,IXS)) *---- * Generate random numbers from normal distribution |