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

Revision 3170, 1015 bytes checked in by paulf, 13 years ago (diff)

changes for Linux and g77 compiling

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
Line 
1      subroutine hypo_ew( strn, iresr )
2c
3c  Subroutine hypo_ew calls Fred Klein's subroutine hypoinv.
4c  hypoinv() is the function version of hypoinverse.
5c  Subroutine hypo_ew is not a standard part of hypoinverse.
6c  It is compiled using Digital Visual FORTRAN, and called
7c  by a C function compiled with Microsoft Visual C++.
8      character*80 strn
9      integer*4 iresr
10
11      integer   strlen
12      parameter (strlen=80)
13c
14c   Local variables
15c
16      integer i
17      character*80 forstr
18c
19c   Copy the incoming C string to a FORTRAN string
20c
21      forstr = ' '
22c
23c      write(6,1000)
24c      write(6,1001) iresr
25c      write(6,1002) strn
261000  FORMAT ('made it into hypo2000_ew fortran code')
271001  FORMAT ('iresr=', I5)
281002  FORMAT ('str=', A)
29      do i = 1, strlen
30         if ( ichar(strn(i)) .eq. 0 ) goto 10
31         forstr(i:i) = strn(i)
32      end do
33c
34c   Call the subroutine version of hypoinverse.
35c   iresr contains the result code.
36c
3710    call hypoinv( forstr, iresr )
38c
39      return
40      end
Note: See TracBrowser for help on using the repository browser.