Changeset 2465

Timestamp:

10/16/06 10:13:51 (14 years ago)

Author:

paulf

Message:

intel 9.1 fixes

Location:

trunk/src/seismic_processing/hyp2000_mgr

Files:

• hyp2000_ew.for (modified) (2 diffs)
• hyp2000_mgr.c (modified) (3 diffs)

trunk/src/seismic_processing/hyp2000_mgr/hyp2000_ew.for

@@ -9 +9 @@
 c
    !DEC$ ATTRIBUTES STDCALL :: hypo_ew
+   !DEC$ ATTRIBUTES REFERENCE :: iresr
       integer   strlen
       parameter (strlen=80)
@@ -30 +31 @@
       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=', I)
+1002  FORMAT ('str=', A)
       do i = 1, strlen
          if ( ichar(strn.c(i)) .eq. 0 ) goto 10

trunk/src/seismic_processing/hyp2000_mgr/hyp2000_mgr.c

@@ -8 +8 @@
  *    Revision history:
  *     $Log$
+ *     Revision 1.5  2006/10/16 17:13:51  paulf
+ *     intel 9.1 fixes
+ *
  *     Revision 1.4  2006/06/06 21:19:33  paulf
  *     upgraded for intel9
@@ -819 +822 @@
    if ( hypret != 1 )
    {
-      logit( "e", "\nhyp2000_mgr: Error occurred while executing <%s>.\n",
-             cmd );
+      logit( "e", "\nhyp2000_mgr: Error occurred while executing <%s>. Return i s %d\n",
+             cmd , hypret);
       LogHypoError( hypret );
       return( -1 );
@@ -846 +849 @@
    **********************/
 #if defined(_WINNT_INTEL9)
-   extern void __stdcall hypo_ew( STRING , int * );
+   extern void __stdcall hypo_ew( STRING, int * );
    strcpy( outMsg.a, inMsg );
+   *iresr=0;
    hypo_ew( outMsg, iresr );
+/*    fprintf(stderr, "DEBUG: after fortran call iresr=%d\n", *iresr); */
 #elif defined(_WINNT)
    extern void __stdcall hypo_ew( STRING *, int * );