← Back to branch summary

~maddevelopers/mg5amcnlo/2.8.2.py3

« back to all changes in this revision

Viewing changes to models/template_files/fortran/lha_read_mp.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:
models/template_files/fortran/lha_read_mp.f
290
290
 
291
291
 
292
292
 
293
 
      subroutine LHA_get_real(npara,param,value,name,var,def_value_num)
 
293
      subroutine LHA_get_real_silent(npara,param,value,name,var,def_value_num)
294
294
c----------------------------------------------------------------------------------
295
295
c     finds the parameter named "name" in param and associate to "value" in value
296
296
c----------------------------------------------------------------------------------
313
313
c
314
314
c     local
315
315
c
316
 
      logical found
 
316
      logical found, log
317
317
      integer i
318
318
c
319
319
c     start
320
320
c
321
 
      i=1
 
321
      log = .false.
 
322
      goto 10
 
323
      
 
324
      entry  LHA_get_real(npara,param,value,name,var,def_value_num)
 
325
      log = .true.
 
326
      
 
327
 10   i=1
322
328
      found=.false.
323
329
      do while(.not.found.and.i.le.npara)
324
330
         ctemp=param(i)
334
340
         i=i+1
335
341
      enddo
336
342
      if (.not.found) then
337
 
         write (*,*) "Warning: parameter ",name," not found"
338
 
         write (*,*) "         setting it to default value ",
339
 
     &def_value_num
 
343
         if (log) then
 
344
            write (*,*) "Warning: parameter ",name," not found"
 
345
            write (*,*) "         setting it to default value ",
 
346
     &           def_value_num
 
347
         endif
340
348
         var=def_value_num
341
349
      endif
342
350
      return
345
353
c
346
354
 
347
355
 
348
 
      subroutine MP_LHA_get_real(npara,param,value,name,var,
 
356
      subroutine MP_LHA_get_real_silent(npara,param,value,name,var,
349
357
     &def_value_num)
350
358
c----------------------------------------------------------------------------------
351
359
c     finds the parameter named "name" in param and associate to "value" in value
370
378
c
371
379
c     local
372
380
c
373
 
      logical found
 
381
      logical found, log
374
382
      integer i
375
383
c
376
384
c     start
377
385
c
378
 
      i=1
 
386
      log = .false.
 
387
      goto 10
 
388
      entry  MP_LHA_get_real(npara,param,value,name,var,
 
389
     &     def_value_num)
 
390
      log = .true.
 
391
      
 
392
 10   i=1
379
393
      found=.false.
380
394
      do while(.not.found.and.i.le.npara)
381
395
         ctemp=param(i)
392
406
         i=i+1
393
407
      enddo
394
408
      if (.not.found) then
395
 
         buff = def_value_num
396
 
         write (*,*) "Warning: parameter ",name," not found"
397
 
         write (*,*) "         setting it to default value ",
398
 
     &buff
 
409
         if (log) then
 
410
            buff = def_value_num
 
411
            write (*,*) "Warning: parameter ",name," not found"
 
412
            write (*,*) "         setting it to default value ",
 
413
     &           buff
 
414
         endif
399
415
         var=def_value_num
400
416
      endif
401
417
      return