← Back to branch summary

~madteam/mg5amcnlo/series2.0

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/MadLoop_output_from_the_interface/TIR_output/%ggttx_IOTest%SubProcesses%MadLoopCommons.f

mwrge with 2.7.3

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/IOTestsComparison/MadLoop_output_from_the_interface/TIR_output/%ggttx_IOTest%SubProcesses%MadLoopCommons.f
139
139
 
140
140
      CHARACTER(512) PATH
141
141
      CHARACTER(512) DUMMY
142
 
 
 
142
      CHARACTER(512) EPATH  ! path of the executable
 
143
      INTEGER POS
143
144
      CHARACTER(512) PREFIX,FPATH
144
145
      CHARACTER(17) NAMETOCHECK
145
146
      PARAMETER (NAMETOCHECK='MadLoopParams.dat')
186
187
          CLOSE(1)
187
188
          PREFIX='../MadLoop5_resources/'
188
189
          CALL JOINPATH(PREFIX,NAMETOCHECK,FPATH)
189
 
          OPEN(1, FILE=FPATH, ERR=66, STATUS='OLD',ACTION='READ')
190
 
          MLPATH=PREFIX
191
 
          GOTO 10
192
 
 66       CONTINUE
193
 
          CLOSE(1)
 
190
          OPEN(1, FILE=FPATH, ERR=3, STATUS='OLD',ACTION='READ')
 
191
          MLPATH=PREFIX
 
192
          GOTO 10
 
193
 3        CONTINUE
 
194
          CLOSE(1)
 
195
C         
 
196
C         Try to automatically find the path from the executable
 
197
C          location
 
198
C         particularly usefull in gridpack readonly mode
 
199
C         
 
200
          CALL GETARG(0,PATH)  !path is the PATH to the madevent executable (either global or from launching directory)
 
201
          POS = INDEX(PATH,'/',.TRUE.)
 
202
          PREFIX = PATH(:POS)
 
203
          CALL JOINPATH(PREFIX,NAMETOCHECK,FPATH)
 
204
          WRITE(*,*) 'test', FPATH
 
205
          OPEN(1, FILE=FPATH, ERR=4, STATUS='OLD',ACTION='READ')
 
206
          MLPATH=PREFIX
 
207
          GOTO 10
 
208
 4        CONTINUE
 
209
          CLOSE(1)
 
210
          PREFIX= PREFIX // '/MadLoop5_resources/'
 
211
          CALL JOINPATH(PREFIX,NAMETOCHECK,FPATH)
 
212
          WRITE(*,*) 'test', FPATH
 
213
          OPEN(1, FILE=FPATH, ERR=5, STATUS='OLD',ACTION='READ')
 
214
          MLPATH=PREFIX
 
215
          GOTO 10
 
216
 5        CONTINUE
 
217
          CLOSE(1)
 
218
          PREFIX= PATH(:POS) // '/../MadLoop5_resources/'
 
219
          CALL JOINPATH(PREFIX,NAMETOCHECK,FPATH)
 
220
          WRITE(*,*) 'test', FPATH
 
221
          OPEN(1, FILE=FPATH, ERR=6, STATUS='OLD',ACTION='READ')
 
222
          MLPATH=PREFIX
 
223
          GOTO 10
 
224
 6        CONTINUE
 
225
          CLOSE(1)
 
226
 
194
227
C         We could not automatically find the auxiliary files
195
228
          WRITE(*,*) '==='
196
229
          WRITE(*,*) 'ERROR: MadLoop5 could not automatically find the'
221
254
 
222
255
C     Check that the FilePath set is correct
223
256
      CALL JOINPATH(MLPATH,NAMETOCHECK,FPATH)
224
 
      OPEN(1, FILE=FPATH, ERR=3, STATUS='OLD',ACTION='READ')
 
257
      OPEN(1, FILE=FPATH, ERR=33, STATUS='OLD',ACTION='READ')
225
258
      GOTO 11
226
 
 3    CONTINUE
 
259
 33   CONTINUE
227
260
      CLOSE(1)
228
261
      WRITE(*,*) '==='
229
262
      WRITE(*,*) 'ERROR: The MadLoop5 auxiliary files could not be'
614
647
      IMPLICIT  NONE
615
648
      INTEGER MAXNREF_EVALS
616
649
      PARAMETER (MAXNREF_EVALS=100)
617
 
      INTEGER, DIMENSION(MAXNREF_EVALS), INTENT(IN) :: X
 
650
      DOUBLE PRECISION, DIMENSION(MAXNREF_EVALS), INTENT(IN) :: X
618
651
      INTEGER, INTENT(IN)                                                         :: MSTART, MEND
619
652
      INTEGER                                                                             :: MINIMUM
620
653
      INTEGER                                                                             :: LOCATION