← Back to branch summary

~maddevelopers/mg5amcnlo/2.8.2.py3

« back to all changes in this revision

Viewing changes to Template/LO/Source/rw_routines.f

  • Committer: olivier-mattelaer
  • Date: 2020-10-30 12:03:51 UTC
  • mfrom: (288.2.27 2.8.2.py2)
  • Revision ID: olivier-mattelaer-20201030120351-5xssmaa4qpahxwuy
merge with 2.8.2.py2

Show diffs side-by-side

added added

removed removed

Lines of Context:
Template/LO/Source/rw_routines.f
311
311
          call firststring(c_name,name)
312
312
         found = (c_param .eq. c_name)
313
313
         if (found) read(value(i),*) var
314
 
c         if (found) write (*,*) name,var
 
314
         write (*,*) name,var
315
315
         i=i+1
316
316
      enddo
317
317
      if (.not.found) then
318
 
         write (*,*) "Warning: parameter ",name," not found"
 
318
         i=1
 
319
         do while(.not.found.and.i.le.npara)
 
320
         write(*,*) npara,param(i),value(i),name,var,def_value            
 
321
            i=i+1
 
322
         enddo
 
323
 
 
324
         write (*,*) "Warning: parameter ",name," not found(real)"
319
325
         write (*,*) "         setting it to default value ",def_value
320
326
         var=def_value
321
327
      endif
356
362
         i=i+1
357
363
      enddo
358
364
      if (.not.found) then
359
 
         write (*,*) "Warning: parameter ",name," not found"
 
365
         write (*,*) "Warning: parameter ",name," not found(int)"
360
366
         write (*,*) "         setting it to default value ",def_value
361
367
         var=def_value
362
368
      endif