source: trunk/src/seismic_processing/hyp2000_mgr/hyp2000_ew_gnu.f @ 3170

      subroutine hypo_ew( strn, iresr )
c
c  Subroutine hypo_ew calls Fred Klein's subroutine hypoinv.
c  hypoinv() is the function version of hypoinverse.
c  Subroutine hypo_ew is not a standard part of hypoinverse.
c  It is compiled using Digital Visual FORTRAN, and called
c  by a C function compiled with Microsoft Visual C++.
      character*80 strn
      integer*4 iresr

      integer   strlen
      parameter (strlen=80)
c
c   Local variables
c
      integer i
      character*80 forstr
c
c   Copy the incoming C string to a FORTRAN string
c
      forstr = ' '
c
c      write(6,1000)
c      write(6,1001) iresr
c      write(6,1002) strn
1000  FORMAT ('made it into hypo2000_ew fortran code')
1001  FORMAT ('iresr=', I5)
1002  FORMAT ('str=', A)
      do i = 1, strlen
         if ( ichar(strn(i)) .eq. 0 ) goto 10
         forstr(i:i) = strn(i)
      end do
c
c   Call the subroutine version of hypoinverse.
c   iresr contains the result code.
c
10    call hypoinv( forstr, iresr )
c
      return
      end