← Back to branch summary

~maddevelopers/mg5amcnlo/2.9.4

« back to all changes in this revision

Viewing changes to models/template_files/fortran/lha_read.f

pass to v2.0.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
models/template_files/fortran/lha_read.f
71
71
      
72
72
      if(len_trim(string).le.0) return
73
73
      
74
 
      do while(string(1:1) .eq. ' ') 
 
74
      do while(string(1:1) .eq. ' ' .or. string(1:1) .eq. CHAR(9)) 
75
75
        string=string(2:len(string))
76
76
      end do
77
77
      if (index(string,' ').gt.1) then
305
305
      enddo
306
306
      if (.not.found) then
307
307
         write (*,*) "Warning: parameter ",name," not found"
308
 
         write (*,*) "         setting it to default value ",def_value_num
 
308
         write (*,*) "         setting it to default value ",
 
309
     &def_value_num
309
310
         var=def_value_num
310
311
      endif
311
312
      return
313
314
      end
314
315
c
315
316
 
316
 
 
317
 
 
318
 
 
319
317
      subroutine LHA_open_file(lun,filename,fopened)
320
318
c***********************************************************************
321
319
c ����opens file input-card.dat in current directory or above