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/XDRLGS.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/XDRLGS.f')
| -rw-r--r-- | Dragon/src/XDRLGS.f | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/Dragon/src/XDRLGS.f b/Dragon/src/XDRLGS.f index e91b8f6..cb21321 100644 --- a/Dragon/src/XDRLGS.f +++ b/Dragon/src/XDRLGS.f @@ -66,7 +66,7 @@ INTEGER NPROC,IGAR(MAXGAR),IODIV,LONG,ITYP,LONG2,ILEG, > IXSR,IXSTN,IG,JG,NXSCMP,IGTO,IGMIN,IGMAX,IGFROM CHARACTER*12 NAMXS - CHARACTER NAMLEG*2,NORD*6,HCM(0:10)*2 + CHARACTER NAMLEG*2,NORD*4,HCM(0:10)*2 INTEGER, ALLOCATABLE, DIMENSION(:) :: NJJ,IJJ REAL, ALLOCATABLE, DIMENSION(:) :: XSSCMP DATA HCM /'00','01','02','03','04','05','06','07','08', @@ -78,13 +78,13 @@ * IODIV=0 IF(IORD.EQ.1) THEN - NORD=' ' + NORD=' ' IODIV=1 ELSE IF(IORD.EQ.2) THEN - NORD=' LIN' + NORD=' LIN' IODIV=2 ELSE IF(IORD.EQ.3) THEN - NORD=' QUA' + NORD=' QUA' IODIV=4 ENDIF NPROC=MAXLEG-MINLEG+1 @@ -265,14 +265,14 @@ IXSR=IXSR+1 IXSTN=MOD(ITYPRO(ILEG)/IODIV,2) IF(IXSTN.NE.0) THEN - WRITE(NAMXS,'(A4,I2.2,A6)') 'SIGS',ILEG-1,NORD + WRITE(NAMXS,'(A4,I2.2,2X,A4)') 'SIGS',ILEG-1,NORD WRITE(IOUT,6000) NAMXS WRITE(IOUT,6010) (XSREC(IG,IXSR),IG=1,NGROUP) *---- * SCAT(IGTO,IGFROM) REPRESENT SCATTERING CROSS SECTION * FROM GROUP "IGFROM" TO GROUP "IGTO" *---- - WRITE(NAMXS,'(A4,I2.2,A6)') 'SCAT',ILEG-1,NORD + WRITE(NAMXS,'(A4,I2.2,2X,A4)') 'SCAT',ILEG-1,NORD WRITE(IOUT,6000) NAMXS DO IGFROM=1,NGROUP WRITE(IOUT,6001) IGFROM |