C NCLFORTSTART
      SUBROUTINE EX (II,XX)
      INTEGER II
      REAL XX
C NCLEND
      II = II + 5
      XX = XX - 12.345
      RETURN
      END