source: trunk/src/seismic_processing/hyp2000_mgr/hyp2000_ew.for @ 3170

Revision 2465, 1.2 KB checked in by paulf, 14 years ago (diff)

intel 9.1 fixes

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
Line 
1
2      subroutine hypo_ew( strn, iresr )
3c
4c  Subroutine hypo_ew calls Fred Klein's subroutine hypoinv.
5c  hypoinv() is the function version of hypoinverse.
6c  Subroutine hypo_ew is not a standard part of hypoinverse.
7c  It is compiled using Digital Visual FORTRAN, and called
8c  by a C function compiled with Microsoft Visual C++.
9c
10   !DEC$ ATTRIBUTES STDCALL :: hypo_ew
11   !DEC$ ATTRIBUTES REFERENCE :: iresr
12      integer   strlen
13      parameter (strlen=80)
14c
15c   Arguments to this subroutine
16c
17      structure /string/
18         character*1 c(strlen)
19      end structure
20
21      record /string/ strn
22      integer*4 iresr
23c
24c   Local variables
25c
26      integer i
27      character*80 forstr
28c
29c   Copy the incoming C string to a FORTRAN string
30c
31      forstr = ' '
32c
33c      write(6,1000)
34c      write(6,1001) iresr
35c      write(6,1002) strn
361000  FORMAT ('made it into hypo2000_ew fortran code')
371001  FORMAT ('iresr=', I)
381002  FORMAT ('str=', A)
39      do i = 1, strlen
40         if ( ichar(strn.c(i)) .eq. 0 ) goto 10
41         forstr(i:i) = strn.c(i)
42      end do
43c
44c   Call the subroutine version of hypoinverse.
45c   iresr contains the result code.
46c
4710    call hypoinv( forstr, iresr )
48c
49      return
50      end
51
Note: See TracBrowser for help on using the repository browser.