[FORTRAN] Unexpected jump in variable ISECOND in subroutine CALC

[fireballpoint1]

The following code in subroutine CALC of degrad-3.3.f s

2 print *," before return ",ICON,IONSUM(NVAC),ISECOND

      IF(ICON.EQ.2.AND.IONSUM(NVAC).EQ.1) THEN

      print *,"returning"

      RETURN

      ENDIF

C GO INTO SECOND BETA LOOP

	  print *,"ICON,IONSUM[int(NVAC)],ISECOND= ",ICON,IONSUM(NVAC),ISECOND

produces the following output

 before return                     3                    2                    2

 ICON,IONSUM[int(NVAC)],ISECOND=                     3                    2      140732947269312

Observe the sudden jump in ISECOND without any operation on it.

The screenshot has some personal code added to it, so don't use the exact line number but it should be somewhere around the same labels.

The issue is seen in the following input :

2,100,5,1,0,1.0,1.5,2.0
2,12,0,0,0,0
80.0,20.0,0.0,0.0,0.0,0.0,20.0,760.0
2.0,3.0,30.0,0,0
50.0,0.55,2,1,1,1,1,1,1