Abort statement commented out. (A. Gheata)
authormorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Thu, 27 May 2004 15:34:50 +0000 (15:34 +0000)
committermorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Thu, 27 May 2004 15:34:50 +0000 (15:34 +0000)
TFluka/crnkvp.f

index 987769f..55d7884 100644 (file)
@@ -56,8 +56,8 @@
 *      IF ( LEMAGN )
 *     &   CALL FLABRT ( 'CRNKVP', ' STOP:LEMAGN-NOT-YET-IMPLEMENTED' )
 *  No change of lattice check implemented for the moment:
-      IF ( LT1TRK .NE. LT2TRK ) CALL FLABRT ( 'CRNKVP',
-     &    ' STOP:LT1TRK.NE.LT2TRK-NOT-YET-IMPLEMENTED' )
+*      IF ( LT1TRK .NE. LT2TRK ) CALL FLABRT ( 'CRNKVP',
+*     &    ' STOP:LT1TRK.NE.LT2TRK-NOT-YET-IMPLEMENTED' )
       DEDXCK = ZERZER
       MMAT   = MEDIUM (MREG)
       IF ( JTRACK .GE. -6 ) THEN