← Back to branch summary

~maddevelopers/mg5amcnlo/WWW5_caching

« back to all changes in this revision

Viewing changes to users/mardelcourt/PROC_970226/PROC_970226/Source/MODEL/model_functions.f

  • Committer: John Doe
  • Date: 2013-03-25 20:27:02 UTC
  • Revision ID: john.doe@gmail.com-20130325202702-5sk3t1r8h33ca4p4
first clean version

Show diffs side-by-side

added added

removed removed

Lines of Context:
users/mardelcourt/PROC_970226/PROC_970226/Source/MODEL/model_functions.f
 
1
ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
 
2
c      written by the UFO converter
 
3
ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
 
4
 
 
5
      DOUBLE COMPLEX FUNCTION COND(CONDITION,TRUECASE,FALSECASE)
 
6
      IMPLICIT NONE
 
7
      DOUBLE COMPLEX CONDITION,TRUECASE,FALSECASE
 
8
      IF(CONDITION.EQ.(0.0D0,0.0D0)) THEN
 
9
        COND=TRUECASE
 
10
      ELSE
 
11
        COND=FALSECASE
 
12
      ENDIF
 
13
      END
 
14
 
 
15
      DOUBLE COMPLEX FUNCTION REGLOG(ARG)
 
16
      IMPLICIT NONE
 
17
      DOUBLE COMPLEX ARG
 
18
      IF(ARG.EQ.(0.0D0,0.0D0)) THEN
 
19
        REGLOG=(0.0D0,0.0D0)
 
20
      ELSE
 
21
        REGLOG=LOG(ARG)
 
22
      ENDIF
 
23
      END