SUBROUTINE ADDINT(I,NO)
      WRITE(6,100)
  100 FORMAT(' ENTERING FORTRAN ADDINT')
      NO=20+I
      RETURN
      END