Changeset 3174


Ignore:
Timestamp:
12/15/07 14:11:22 (11 years ago)
Author:
paulf
Message:

fixed linux makefile and fortran code

Location:
trunk/src/seismic_processing/hyp2000_mgr
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/src/seismic_processing/hyp2000_mgr/hyp2000_ew_gnu.f

    r3170 r3174  
    27271001  FORMAT ('iresr=', I5) 
    28281002  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 
     29c      do i = 1, strlen 
     30c         if ( ichar(strn(i)) .eq. 0 ) goto 10 
     31c         forstr(i:i) = strn(i) 
     32c      end do 
    3333c 
    3434c   Call the subroutine version of hypoinverse. 
    3535c   iresr contains the result code. 
    3636c 
    37 10    call hypoinv( forstr, iresr ) 
     37c10    call hypoinv( forstr, iresr ) 
     3810    call hypoinv( strn, iresr ) 
    3839c 
    3940      return 
  • trunk/src/seismic_processing/hyp2000_mgr/makefile.ux

    r3170 r3174  
    88#    Revision history: 
    99#     $Log$ 
     10#     Revision 1.3  2007/12/15 19:11:22  paulf 
     11#     fixed linux makefile and fortran code 
     12# 
    1013#     Revision 1.2  2007/12/14 21:48:08  paulf 
    1114#     changes for Linux and g77 compiling 
     
    3437 
    3538 
    36 F77=g77 -m32 
     39F77=g77 -m32 -g 
    3740 
    3841F_OBJ = hyp2000_ew_gnu.o hyate.o hybda.o hybeg.o hycal.o \ 
     
    4447        hysum.o hysvd.o hytime.o hytra.o hytrh.o \ 
    4548        hytrl.o hytrt.o hyxmc.o init_event.o medwt.o \ 
    46         utmcal.o spawn.o openr.o askr.o \ 
    47         openw.o errset.o leng.o dayjl.o lask.o \ 
    48         readq.o jask.o jdate.o klas.o upstr.o \ 
    49         askc.o box2.o box3.o klass.o ksic.o 
     49        utmcal.o allsubs.o 
    5050 
    5151C_OBJ = hyp2000_mgr.o $L/kom.o $L/logit.o $L/time_ew.o \ 
     
    6262hyp2000_ew_gnu.o: hyp2000_ew_gnu.f 
    6363        $(F77) -c  hyp2000_ew_gnu.f 
     64 
     65allsubs.o:      $H/allsubs.f 
     66        $(F77) -c  $H/allsubs.f 
    6467 
    6568hyate.o:      $H/hyate.for 
Note: See TracChangeset for help on using the changeset viewer.