fortran example "fortsub" in the manual

[Stefan Pofahl]

Hello,

I have problems to compile the fortran example "fortsub" in the manual.
--
      subroutine fortsub (n, a, s)
      implicit none
      character*(*) s
      real*8 a(*)
      integer*4 i, n, ioerr
      do i = 1, n
        if (a(i) .eq. 0d0) then
          call xstopx ('fortsub: divide by zero')
        else
          a(i) = 1d0 / a(i)
        endif
      enddo
      write(unit = s, fmt = '(A,I3,A,A)', iostat = ioerr)
     $ ’'There are '’, n,
     $ ’' values in the input vector'’, char(0)
      if (ioerr .ne. 0) then
        call xstopx ('fortsub: error writing string')
      endif
      return
      END
--
If I give the command:
> mkoctfile -v --mex "e:\\oct\\fortsub.f"
on the octave prompt.

The error message is:
--
      write(unit = s, fmt = '(A,I3,A,A)', iostat = ioerr)
                                                        1
Error: Expected expression in WRITE statement at (1)
--

Ans suggestions? Where can I find more information
regarding the topic: Fortran Routines in Octave?

Regards,

Stefan


-- 
Tel.: 0731-3805149
Ochsensteige 48
89075 Ulm