subroutine WriteIntegerArray (IArray , Length)
      implicit none
      dll_export WriteIntegerArray
      INTEGER Length
      INTEGER IArray (Length)
      INTEGER i
      do i=1,Length
        IArray (i) = IArray (i) + 1
      end do
      end subroutine

      subroutine WriteRealArray (RArray, Length)
      implicit none
      dll_export WriteRealArray
      INTEGER Length
      REAL RArray (Length)
      INTEGER i
      do i=1,Length
        RArray (i) = RArray (i) + 1
      end do
      end subroutine