Correction
authormorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Wed, 13 Feb 2013 09:04:07 +0000 (09:04 +0000)
committermorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Wed, 13 Feb 2013 09:04:07 +0000 (09:04 +0000)
DPMJET/dpmjet3.0-5F.f

index 2c4897c..0386485 100644 (file)
@@ -5589,11 +5589,11 @@ C           ENDIF
          ITOLD  = IT
          JJPOLD = JJPROJ
          EPROLD = EPROJ
-     DO 8 I=1, IP
+      DO 8 I=1, IP
         NCP = NCP+JSSH(I)
 *        WRITE(6,*)' PROJ.NUCL. ',I,' NCOLL = ',NCP
     8 CONTINUE
-     DO 9 I=1, IT
+      DO 9 I=1, IT
         NCT = NCT+JTSH(I)
 *        WRITE(6,*)' TAR.NUCL. ',I,' NCOLL = ',NCT
     9 CONTINUE