SUBROUTINE SET2(I1,I2)
      WRITE(6,100)
  100 FORMAT(' ENTERING FORTRAN SET2')
      I1=2
      I2=2
      RETURN
      END