Changeset 2465


Ignore:
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:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/src/seismic_processing/hyp2000_mgr/hyp2000_ew.for

    r2324 r2465  
    99c 
    1010   !DEC$ ATTRIBUTES STDCALL :: hypo_ew 
     11   !DEC$ ATTRIBUTES REFERENCE :: iresr 
    1112      integer   strlen 
    1213      parameter (strlen=80) 
     
    3031      forstr = ' ' 
    3132c 
     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) 
    3239      do i = 1, strlen 
    3340         if ( ichar(strn.c(i)) .eq. 0 ) goto 10 
  • trunk/src/seismic_processing/hyp2000_mgr/hyp2000_mgr.c

    r2309 r2465  
    88 *    Revision history: 
    99 *     $Log$ 
     10 *     Revision 1.5  2006/10/16 17:13:51  paulf 
     11 *     intel 9.1 fixes 
     12 * 
    1013 *     Revision 1.4  2006/06/06 21:19:33  paulf 
    1114 *     upgraded for intel9 
     
    819822   if ( hypret != 1 ) 
    820823   { 
    821       logit( "e", "\nhyp2000_mgr: Error occurred while executing <%s>.\n", 
    822              cmd ); 
     824      logit( "e", "\nhyp2000_mgr: Error occurred while executing <%s>. Return i s %d\n", 
     825             cmd , hypret); 
    823826      LogHypoError( hypret ); 
    824827      return( -1 ); 
     
    846849   **********************/ 
    847850#if defined(_WINNT_INTEL9) 
    848    extern void __stdcall hypo_ew( STRING , int * ); 
     851   extern void __stdcall hypo_ew( STRING, int * ); 
    849852   strcpy( outMsg.a, inMsg ); 
     853   *iresr=0; 
    850854   hypo_ew( outMsg, iresr ); 
     855/*    fprintf(stderr, "DEBUG: after fortran call iresr=%d\n", *iresr); */ 
    851856#elif defined(_WINNT) 
    852857   extern void __stdcall hypo_ew( STRING *, int * ); 
Note: See TracChangeset for help on using the changeset viewer.