diff options
| author | Alain Hebert <alainhebert@Alains-MacBook-Pro.local> | 2025-12-12 19:40:28 +0100 |
|---|---|---|
| committer | Alain Hebert <alainhebert@Alains-MacBook-Pro.local> | 2025-12-12 19:40:28 +0100 |
| commit | 8a1d65be3e08a88bb11602d2988e30d08d836b6b (patch) | |
| tree | d0eda76009851aed84e76c43bfe459a207178213 /Dragon/src/EDI.f | |
| parent | 7c453e211b55bbe4a7f6f33f71037522cd2359fd (diff) | |
#7: Correct a few format statements
Diffstat (limited to 'Dragon/src/EDI.f')
| -rw-r--r-- | Dragon/src/EDI.f | 18 |
1 files changed, 11 insertions, 7 deletions
diff --git a/Dragon/src/EDI.f b/Dragon/src/EDI.f index 9d8872d..ebb2df0 100644 --- a/Dragon/src/EDI.f +++ b/Dragon/src/EDI.f @@ -510,10 +510,6 @@ LGEO=0 IF((ILONG.NE.0).OR.(MACGEO.NE.' ')) LGEO=1 IF(IPRINT.GT.0) THEN - WRITE(IOUT,200) NMERGE,NGCOND,IFFAC,ILUPS,NACTI,NSTATS,IADF, - > IEUR,NBMICR,IPRINT - WRITE(IOUT,210) NSAVES,NW,MAXPTS,IHF,NDEL,LGEO,IADJ,ICURR, - > NOUT,IEDCUR,IGOVE WRITE(IOUT,'(//15H MERGING INDEX:/(1X,14I5))') > (IMERGE(I),I=1,NREG) IF(CURNAM.NE.' ') WRITE(IOUT,'(/27H EDI: SAVE MICROLIB INFO ON, @@ -596,6 +592,14 @@ 3 IMERGE,CURNAM,OLDNAM,NBMICR,CARISO,NACTI,IACTI,IPRINT,LISO,LDEPL, 4 LMACR,IADJ,NOUT,HVOUT,BB2,IEDCUR,IGOVE) *---- +* PRINT THE STATE-VECTOR +*---- + IF(IPRINT.GT.0) THEN + CALL LCMGET(IPEDIT,'STATE-VECTOR',ISTATE) + WRITE(IOUT,200) ISTATE(1:10) + WRITE(IOUT,210) ISTATE(11:12),ISTATE(17:25) + ENDIF +*---- * DESTROY THE TEMPORARY MACRO-GEOMETRY *---- IF(LNEWGE) THEN @@ -637,9 +641,9 @@ 4 7H ILUPS ,I8,43H (=1: REMOVE UP-SCATTERING CONTRIBUTIONS)/ 5 7H NACTI ,I8,45H (NUMBER OF MIXTURES WITH ACTIVATION EDITS)/ 6 7H NSTATS,I8,35H (TYPE OF STATISTIC CALCULATIONS)/ - 7 7H IADF ,I8,47H (=0: DO NOT COMPUTE ADF; =1: USE ALBS INFO; , - 8 60H=-2/2: USE BOUNDARY FLUX INFO; =3: USE EURYDICE INFO; =4: US, - 9 16HE MACROLIB INFO)/ + 7 7H IADF ,I8,46H (=0: NO ADF; =1: ALBS INFO; =2: BOUNDARY FL, + 8 59HUX INFO; =3: DISCONTINUITY FACTORS; =4: MATRIX DISCONTINUIT, + 9 10HY FACTORS)/ 1 7H IEUR ,I8,47H (=1/2/3: SYBIL OR EXCELL MACRO-TRACKING/NXT , 2 20HMACRO-TRACKING/ELSE)/ 3 7H NBMICR,I8,47H (=-1: PROCESS ALL ISOTOPES; >1: NUMBER OF IS, |