diff options
Diffstat (limited to 'Dragon/src/COMPO.f')
| -rw-r--r-- | Dragon/src/COMPO.f | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Dragon/src/COMPO.f b/Dragon/src/COMPO.f index b8f8fcc..0645e8f 100644 --- a/Dragon/src/COMPO.f +++ b/Dragon/src/COMPO.f @@ -662,7 +662,7 @@ * IF(IMPX.GT.0) THEN CALL LCMGET(IPCPO,'STATE-VECTOR',ISTATE) - WRITE(IOUT,400) NAMDIR,IMPX,(ISTATE(I),I=1,15) + WRITE(IOUT,400) NAMDIR,IMPX,(ISTATE(I),I=1,16) ENDIF IF(IMPX.GT.4) CALL LCMLIB(IPCPO) GO TO 390 |