Added run card loading (EERAD style) and arbitrary output destination.
This commit is contained in:
Yggdrasil
parent
caa644ebc6
commit
873a720c02
4
Makefile
4
Makefile
|
|
@ -6,9 +6,9 @@ BUILD ?= release
|
||||||
|
|
||||||
# Flags depending on build type
|
# Flags depending on build type
|
||||||
ifeq ($(BUILD),debug)
|
ifeq ($(BUILD),debug)
|
||||||
FFLAGS = -g -O0
|
FFLAGS = -g -O0 -std=legacy
|
||||||
else
|
else
|
||||||
FFLAGS = -O2
|
FFLAGS = -O2 -std=legacy
|
||||||
endif
|
endif
|
||||||
|
|
||||||
# Output folder
|
# Output folder
|
||||||
|
|
|
||||||
|
|
@ -0,0 +1,11 @@
|
||||||
|
! Example run card
|
||||||
|
|
||||||
|
! General run parameters
|
||||||
|
NEV = 5M
|
||||||
|
NF = 5
|
||||||
|
|
||||||
|
! Binning parameters:
|
||||||
|
! B: Bin, L: low, H: high
|
||||||
|
TB = 200
|
||||||
|
TL = 0.0
|
||||||
|
TH = 0.5
|
||||||
367
event2_03.f
367
event2_03.f
|
|
@ -1,15 +1,12 @@
|
||||||
PROGRAM MAIN
|
PROGRAM MAIN
|
||||||
IMPLICIT NONE
|
IMPLICIT NONE
|
||||||
INTEGER NF,NEV
|
INTEGER NFL,NEV
|
||||||
DOUBLE PRECISION EM
|
DOUBLE PRECISION EM
|
||||||
|
COMMON /PARAMS/ NFL,NEV,EM
|
||||||
EXTERNAL DEMO
|
EXTERNAL DEMO
|
||||||
NF=5
|
CALL READCARD
|
||||||
EM=91.1876
|
|
||||||
C NEV=1 000 000 000
|
|
||||||
C NEV=5 000 000
|
|
||||||
NEV= 500 000
|
|
||||||
CALL DEMOIN
|
CALL DEMOIN
|
||||||
CALL EVENT2(NEV,EM,NF,DEMO)
|
CALL EVENT2(NEV,EM,NFL,DEMO)
|
||||||
CALL DEMOUT(NEV)
|
CALL DEMOUT(NEV)
|
||||||
END PROGRAM
|
END PROGRAM
|
||||||
C-----------------------------------------------------------------------
|
C-----------------------------------------------------------------------
|
||||||
|
|
@ -91,8 +88,6 @@ C---INITIALIZE CONSTANTS
|
||||||
CQ=ND*QD**2+NU*QU**2
|
CQ=ND*QD**2+NU*QU**2
|
||||||
AEM=ONE/128
|
AEM=ONE/128
|
||||||
FPAL2=(4*PI*AEM)**2
|
FPAL2=(4*PI*AEM)**2
|
||||||
CUTOFF=1D-8
|
|
||||||
CUTUP=1
|
|
||||||
C---METYPE IS 0 FOR ERT, 1 FOR LEIDEN AND 2 FOR GIELE-GLOVER
|
C---METYPE IS 0 FOR ERT, 1 FOR LEIDEN AND 2 FOR GIELE-GLOVER
|
||||||
C (CROSS-SECTION NORMALIZATION IS DIFFERENT IN THE DIFFERENT CASES.
|
C (CROSS-SECTION NORMALIZATION IS DIFFERENT IN THE DIFFERENT CASES.
|
||||||
C FOR ERT, 2-PARTON CROSS-SECTION IS 1, FOR THE OTHERS IT IS THE
|
C FOR ERT, 2-PARTON CROSS-SECTION IS 1, FOR THE OTHERS IT IS THE
|
||||||
|
|
@ -194,14 +189,308 @@ C---TELL THE USER THAT THE EVENT IS COMPLETE
|
||||||
END
|
END
|
||||||
C-----------------------------------------------------------------------
|
C-----------------------------------------------------------------------
|
||||||
SUBROUTINE READCARD
|
SUBROUTINE READCARD
|
||||||
|
implicit none
|
||||||
|
integer :: stat,n,nl,i,iline,ichar
|
||||||
|
character(2) :: flag(1:2)
|
||||||
|
character(40) :: val(1:2)
|
||||||
|
character(20) :: fname
|
||||||
|
character(72) :: line
|
||||||
|
character(12) :: keys(20),settings(20)
|
||||||
|
logical fexists
|
||||||
|
|
||||||
|
INTEGER NFL,NEV
|
||||||
|
DOUBLE PRECISION EM
|
||||||
|
|
||||||
|
INTEGER METYPE,NF
|
||||||
|
DOUBLE PRECISION CF,CA,TR,PI,PISQ,HF,CUTOFF,CUTUP,
|
||||||
|
$ CQ,FPAL2,ONF
|
||||||
|
|
||||||
|
INTEGER CB1,CB2,DB,TB,YB,EB
|
||||||
|
DOUBLE PRECISION CL1,CL2,DL,TL,YL,EL,CH1,CH2,DH,TH,YH,EH
|
||||||
|
|
||||||
|
CHARACTER*40 PATH
|
||||||
|
|
||||||
|
COMMON /PARAMS/ NFL,NEV,EM
|
||||||
|
COMMON /CONCOM/ CF,CA,TR,PI,PISQ,HF,CUTOFF,CUTUP,
|
||||||
|
$ CQ,FPAL2,ONF,NF,METYPE
|
||||||
|
COMMON /GBINS/ CB1,CB2,DB,TB,YB,EB
|
||||||
|
COMMON /GBINS/CL1,CL2,DL,TL,YL,EL,CH1,CH2,DH,TH,YH,EH
|
||||||
|
common /runcard/keys,settings
|
||||||
|
|
||||||
|
PATH = './results/'
|
||||||
|
|
||||||
|
n = iargc()
|
||||||
|
nl = -1
|
||||||
|
if (n.ge.2) then
|
||||||
|
call getarg(1,flag(1))
|
||||||
|
call getarg(2,val(1))
|
||||||
|
nl = 1
|
||||||
|
endif
|
||||||
|
if (n.ge.4)then
|
||||||
|
call getarg(3,flag(2))
|
||||||
|
call getarg(4,val(2))
|
||||||
|
nl = 2
|
||||||
|
endif
|
||||||
|
|
||||||
|
do i=1,nl
|
||||||
|
if (flag(i).eq.'-i')then
|
||||||
|
fname = val(i)
|
||||||
|
elseif (flag(i).eq.'-o')then
|
||||||
|
PATH = val(i)
|
||||||
|
else
|
||||||
|
print *, 'Option ', flag(i),
|
||||||
|
$ ' not recognized.'
|
||||||
|
endif
|
||||||
|
enddo
|
||||||
|
|
||||||
|
call CREATEOUT(PATH)
|
||||||
|
|
||||||
|
inquire(file=fname, exist=fexists)
|
||||||
|
if (.not.fexists)then
|
||||||
|
stop 'run card ' // trim(fname) // ' not found'
|
||||||
|
endif
|
||||||
|
|
||||||
|
open(9,file=fname)
|
||||||
|
|
||||||
|
iline = 1
|
||||||
|
do
|
||||||
|
call getline(9, line, stat)
|
||||||
|
if (line.ne.'')then
|
||||||
|
ichar = index(line, "=")
|
||||||
|
if (ichar.gt.0)then
|
||||||
|
keys(iline) = line(:ichar-1)
|
||||||
|
settings(iline) = line(ichar+1:)
|
||||||
|
endif
|
||||||
|
iline = iline+1
|
||||||
|
endif
|
||||||
|
if (stat.lt.0) exit
|
||||||
|
end do
|
||||||
|
|
||||||
|
call readparm('EM ', EM, real(91.187, 8))
|
||||||
|
|
||||||
|
call readparm('CUTOFF ', CUTOFF, 1D-8)
|
||||||
|
call readparm('CUTUP ', CUTUP , 1D0)
|
||||||
|
|
||||||
|
call readmode('NF ', NFL, 5)
|
||||||
|
call readmode('NEV ', NEV, 5 000 000)
|
||||||
|
|
||||||
|
call readmode('CB1 ', CB1, 50)
|
||||||
|
call readmode('CB2 ', CB2, 37)
|
||||||
|
call readmode('DB ', DB, 50)
|
||||||
|
call readmode('TB ', TB, 50)
|
||||||
|
call readmode('YB ', YB, 40)
|
||||||
|
call readmode('EB ', EB, 50)
|
||||||
|
|
||||||
|
call readparm('CL1 ', CL1 , 0.00D0)
|
||||||
|
call readparm('CH1 ', CH1 , 1.00D0)
|
||||||
|
call readparm('CL2 ', CL2 , 0.00D0)
|
||||||
|
call readparm('CH2 ', CH2 , 0.74D0)
|
||||||
|
call readparm('DL ', DL , 0.00D0)
|
||||||
|
call readparm('DH ', DH , 1.00D0)
|
||||||
|
call readparm('TL ', TL , 0.00D0)
|
||||||
|
call readparm('TH ', TH , 0.50D0)
|
||||||
|
call readparm('YL ', YL , 0.00D0)
|
||||||
|
call readparm('YH ', YH , 0.40D0)
|
||||||
|
call readparm('EL ', EL , -1.0D0)
|
||||||
|
call readparm('EH ', EH , 1.00D0)
|
||||||
|
|
||||||
|
C Close file.
|
||||||
|
close(9)
|
||||||
|
|
||||||
END
|
END
|
||||||
|
|
||||||
|
c-----------------------------------------------------------------------
|
||||||
|
c Auxilliary subroutines.
|
||||||
|
c-----------------------------------------------------------------------
|
||||||
|
|
||||||
|
subroutine getline(unit, line, stat)
|
||||||
|
implicit none
|
||||||
|
integer, intent(in) :: unit
|
||||||
|
integer, intent(out) :: stat
|
||||||
|
character(72), intent(out) :: line
|
||||||
|
integer :: size
|
||||||
|
integer :: i,j
|
||||||
|
integer :: stat2
|
||||||
|
character(72) :: buffer
|
||||||
|
character(2) :: pattern
|
||||||
|
c List of characers where blanks after/before will be eliminated.
|
||||||
|
character(*), parameter :: killtrail = "=,>[*+"
|
||||||
|
character(*), parameter :: killlead = "=,>]*+"
|
||||||
|
|
||||||
|
c Read the full line.
|
||||||
|
line = ''
|
||||||
|
do
|
||||||
|
read(unit, "(A)", iostat=stat) line
|
||||||
|
if (stat > 0) return
|
||||||
|
exit
|
||||||
|
end do
|
||||||
|
|
||||||
|
c Replace all `tab` characters by a blank.
|
||||||
|
do
|
||||||
|
i = index(line, char(9))
|
||||||
|
if (i.eq.0) exit
|
||||||
|
line(i:i) = " "
|
||||||
|
end do
|
||||||
|
|
||||||
|
c Kill leading blanks.
|
||||||
|
line = trim(adjustl( line ))
|
||||||
|
c Kill possible comments.
|
||||||
|
i = index(line, "!")
|
||||||
|
c Kill trailing blanks.
|
||||||
|
if (i.gt.0) line = trim(adjustl(line(:i-1)))
|
||||||
|
|
||||||
|
c Kill blanks before special characters.
|
||||||
|
do j=1,len(killlead)
|
||||||
|
pattern = ' ' // killlead(j:j)
|
||||||
|
do
|
||||||
|
i = index(line,pattern)
|
||||||
|
if (i.eq.0) exit
|
||||||
|
line = line(:i-1) // killtrail(j:j) // line(i+2:)
|
||||||
|
end do
|
||||||
|
end do
|
||||||
|
|
||||||
|
c Kill blanks after special characters.
|
||||||
|
do j=1,len(killlead)
|
||||||
|
pattern = killlead(j:j) // ' '
|
||||||
|
do
|
||||||
|
i = index(line,pattern)
|
||||||
|
if (i.eq.0) exit
|
||||||
|
line = line(:i-1) // killlead(j:j) // line(i+2:)
|
||||||
|
end do
|
||||||
|
end do
|
||||||
|
|
||||||
|
return
|
||||||
|
end
|
||||||
|
|
||||||
|
************************************************************************
|
||||||
|
|
||||||
|
subroutine readmode(cmode, var, def)
|
||||||
|
implicit none
|
||||||
|
character(12), intent(in) :: cmode
|
||||||
|
integer, intent(in) :: def
|
||||||
|
integer, intent(out) :: var
|
||||||
|
integer :: i, imode
|
||||||
|
character(12) :: keys(20),settings(20)
|
||||||
|
c Common blocks.
|
||||||
|
common/runcard/keys,settings
|
||||||
|
|
||||||
|
c Try to find mode with name 'cmode' in settings.
|
||||||
|
imode = -1
|
||||||
|
do i=1,20
|
||||||
|
if (keys(i).eq.cmode)then
|
||||||
|
imode = i
|
||||||
|
exit
|
||||||
|
endif
|
||||||
|
end do
|
||||||
|
c If not found, set to default.
|
||||||
|
if (imode.lt.0) var = def
|
||||||
|
c Otherwise set to value present in settings.
|
||||||
|
if (imode.ge.0) call readInt(settings(imode), var)
|
||||||
|
|
||||||
|
return
|
||||||
|
end
|
||||||
|
|
||||||
|
************************************************************************
|
||||||
|
|
||||||
|
subroutine readparm(cparm, var, def)
|
||||||
|
implicit none
|
||||||
|
character(12), intent(in) :: cparm
|
||||||
|
real(8), intent(in) :: def
|
||||||
|
real(8), intent(out) :: var
|
||||||
|
integer :: i,iparm
|
||||||
|
character(12) :: keys(20),settings(20)
|
||||||
|
c Common blocks.
|
||||||
|
common/runcard/keys,settings
|
||||||
|
|
||||||
|
c Try to find mode with name 'cparm' in settings.
|
||||||
|
iparm = -1
|
||||||
|
do i=1,20
|
||||||
|
if (keys(i).eq.cparm) iparm = i
|
||||||
|
end do
|
||||||
|
c If not found, set to default.
|
||||||
|
if (iparm.lt.0) var = def
|
||||||
|
c Otherwise set to value present in settings.
|
||||||
|
if (iparm.ge.0) read(settings(iparm),*) var
|
||||||
|
|
||||||
|
return
|
||||||
|
end
|
||||||
|
|
||||||
|
************************************************************************
|
||||||
|
|
||||||
|
c Auxiliary helper subroutine to read integers in different formats.
|
||||||
|
|
||||||
|
subroutine readint(string,var)
|
||||||
|
implicit none
|
||||||
|
integer, intent(out) :: var
|
||||||
|
character(8), intent(in) :: string
|
||||||
|
integer :: iposk,iposm,ipose,iposd
|
||||||
|
real(8) :: helper
|
||||||
|
|
||||||
|
iposk = index(string,'k')
|
||||||
|
if (iposk.eq.0) iposk = index(string,'K')
|
||||||
|
iposm = index(string,'m')
|
||||||
|
if (iposm.eq.0) iposm = index(string,'M')
|
||||||
|
ipose = index(string,'e')
|
||||||
|
if (ipose.eq.0) ipose = index(string,'E')
|
||||||
|
iposd = index(string,'d')
|
||||||
|
if (iposd.eq.0) iposd = index(string,'D')
|
||||||
|
|
||||||
|
if (iposk.ne.0)then
|
||||||
|
read(string(1:iposk-1),'(I16)') var
|
||||||
|
var = 1000*var
|
||||||
|
elseif (iposm.ne.0)then
|
||||||
|
read(string(1:iposm-1),'(I16)') var
|
||||||
|
var = 1000000*var
|
||||||
|
elseif (ipose.ne.0 .or. iposd.ne.0)then
|
||||||
|
read(string,'(F16.0)') helper
|
||||||
|
var = helper
|
||||||
|
else
|
||||||
|
read(string, '(I16)') var
|
||||||
|
endif
|
||||||
|
|
||||||
|
return
|
||||||
|
end
|
||||||
|
|
||||||
|
************************************************************************
|
||||||
|
|
||||||
|
c Auxiliary helper subroutine to create output folder
|
||||||
|
|
||||||
|
SUBROUTINE CREATEOUT(PATH)
|
||||||
|
IMPLICIT NONE
|
||||||
|
CHARACTER*40 PATH
|
||||||
|
|
||||||
|
INTEGER L,EXITSTAT
|
||||||
|
CHARACTER*40 OPATH
|
||||||
|
COMMON /FPATH/ OPATH
|
||||||
|
|
||||||
|
OPATH = PATH
|
||||||
|
L = LEN_TRIM(OPATH)
|
||||||
|
|
||||||
|
IF (L == 0) THEN
|
||||||
|
OPATH = './'
|
||||||
|
ELSE IF (OPATH(L:L) /= '/') THEN
|
||||||
|
OPATH(L+1:L+1) = '/'
|
||||||
|
END IF
|
||||||
|
|
||||||
|
CALL EXECUTE_COMMAND_LINE("mkdir -p " // TRIM(OPATH),
|
||||||
|
$ exitstat=EXITSTAT)
|
||||||
|
IF (EXITSTAT /= 0) THEN
|
||||||
|
PRINT *, "Error creating directory:", TRIM(OPATH)
|
||||||
|
STOP
|
||||||
|
END IF
|
||||||
|
|
||||||
|
END
|
||||||
|
|
||||||
C-----------------------------------------------------------------------
|
C-----------------------------------------------------------------------
|
||||||
SUBROUTINE DEMOIN
|
SUBROUTINE DEMOIN
|
||||||
IMPLICIT NONE
|
IMPLICIT NONE
|
||||||
INTEGER I
|
INTEGER I
|
||||||
|
INTEGER CB1,CB2,DB,TB,YB,EB
|
||||||
|
DOUBLE PRECISION CL1,CL2,DL,TL,YL,EL,CH1,CH2,DH,TH,YH,EH
|
||||||
DOUBLE PRECISION CSUM,CSQR,BSUM,BSQR
|
DOUBLE PRECISION CSUM,CSQR,BSUM,BSQR
|
||||||
COMMON /DEMCOM/CSUM(8),CSQR(8),BSUM(2,6),BSQR(2,6)
|
COMMON /DEMCOM/CSUM(8),CSQR(8),BSUM(2,6),BSQR(2,6)
|
||||||
|
COMMON /GBINS/CB1,CB2,DB,TB,YB,EB
|
||||||
|
COMMON /GBINS/CL1,CL2,DL,TL,YL,EL,CH1,CH2,DH,TH,YH,EH
|
||||||
DO I=1,8
|
DO I=1,8
|
||||||
CSUM(I)=0
|
CSUM(I)=0
|
||||||
CSQR(I)=0
|
CSQR(I)=0
|
||||||
|
|
@ -212,36 +501,36 @@ C-----------------------------------------------------------------------
|
||||||
BSQR(2,I)=0
|
BSQR(2,I)=0
|
||||||
ENDIF
|
ENDIF
|
||||||
ENDDO
|
ENDDO
|
||||||
CALL GBOOK1( 1,'C-PARAMETER',50,0D0,1D0)
|
CALL GBOOK1( 1,'C-PARAMETER',CB1,CL1,CH1)
|
||||||
CALL GBOOK1(101,'C-PARAMETER',50,0D0,1D0)
|
CALL GBOOK1(101,'C-PARAMETER',CB1,CL1,CH1)
|
||||||
CALL GBOOK1(201,'C-PARAMETER',50,0D0,1D0)
|
CALL GBOOK1(201,'C-PARAMETER',CB1,CL1,CH1)
|
||||||
CALL GBOOK1( 11,'C-PARAMETER',37,0D0,0.74D0)
|
CALL GBOOK1( 11,'C-PARAMETER',CB2,CL2,CH2)
|
||||||
CALL GBOOK1(111,'C-PARAMETER',37,0D0,0.74D0)
|
CALL GBOOK1(111,'C-PARAMETER',CB2,CL2,CH2)
|
||||||
CALL GBOOK1(211,'C-PARAMETER',37,0D0,0.74D0)
|
CALL GBOOK1(211,'C-PARAMETER',CB2,CL2,CH2)
|
||||||
CALL GBOOK1( 2,'D-PARAMETER',50,0D0,1D0)
|
CALL GBOOK1( 2,'D-PARAMETER',DB,DL,DH)
|
||||||
CALL GBOOK1(102,'D-PARAMETER',50,0D0,1D0)
|
CALL GBOOK1(102,'D-PARAMETER',DB,DL,DH)
|
||||||
CALL GBOOK1(202,'D-PARAMETER',50,0D0,1D0)
|
CALL GBOOK1(202,'D-PARAMETER',DB,DL,DH)
|
||||||
CALL GBOOK1( 12,'D-PARAMETER',50,0D0,1D0)
|
CALL GBOOK1( 12,'D-PARAMETER',DB,DL,DH)
|
||||||
CALL GBOOK1(112,'D-PARAMETER',50,0D0,1D0)
|
CALL GBOOK1(112,'D-PARAMETER',DB,DL,DH)
|
||||||
CALL GBOOK1(212,'D-PARAMETER',50,0D0,1D0)
|
CALL GBOOK1(212,'D-PARAMETER',DB,DL,DH)
|
||||||
CALL GBOOK1( 3,'THRUST',50,0D0,0.5D0)
|
CALL GBOOK1( 3,'THRUST',TB,TL,TH)
|
||||||
CALL GBOOK1(103,'THRUST',50,0D0,0.5D0)
|
CALL GBOOK1(103,'THRUST',TB,TL,TH)
|
||||||
CALL GBOOK1(203,'THRUST',50,0D0,0.5D0)
|
CALL GBOOK1(203,'THRUST',TB,TL,TH)
|
||||||
CALL GBOOK1( 13,'THRUST',50,0D0,0.5D0)
|
CALL GBOOK1( 13,'THRUST',TB,TL,TH)
|
||||||
CALL GBOOK1(113,'THRUST',50,0D0,0.5D0)
|
CALL GBOOK1(113,'THRUST',TB,TL,TH)
|
||||||
CALL GBOOK1(213,'THRUST',50,0D0,0.5D0)
|
CALL GBOOK1(213,'THRUST',TB,TL,TH)
|
||||||
CALL GBOOK1( 4,'y3(JADE,P)',40,0D0,0.4D0)
|
CALL GBOOK1( 4,'y3(JADE,P)',YB,YL,YH)
|
||||||
CALL GBOOK1(104,'y3(JADE,P)',40,0D0,0.4D0)
|
CALL GBOOK1(104,'y3(JADE,P)',YB,YL,YH)
|
||||||
CALL GBOOK1(204,'y3(JADE,P)',40,0D0,0.4D0)
|
CALL GBOOK1(204,'y3(JADE,P)',YB,YL,YH)
|
||||||
CALL GBOOK1( 14,'y3(JADE,P)',40,0D0,0.4D0)
|
CALL GBOOK1( 14,'y3(JADE,P)',YB,YL,YH)
|
||||||
CALL GBOOK1(114,'y3(JADE,P)',40,0D0,0.4D0)
|
CALL GBOOK1(114,'y3(JADE,P)',YB,YL,YH)
|
||||||
CALL GBOOK1(214,'y3(JADE,P)',40,0D0,0.4D0)
|
CALL GBOOK1(214,'y3(JADE,P)',YB,YL,YH)
|
||||||
CALL GBOOK1( 5,'EEC',50,-1D0,1D0)
|
CALL GBOOK1( 5,'EEC',EB,EL,EH)
|
||||||
CALL GBOOK1(105,'EEC',50,-1D0,1D0)
|
CALL GBOOK1(105,'EEC',EB,EL,EH)
|
||||||
CALL GBOOK1(205,'EEC',50,-1D0,1D0)
|
CALL GBOOK1(205,'EEC',EB,EL,EH)
|
||||||
CALL GBOOK1( 15,'EEC',50,-1D0,1D0)
|
CALL GBOOK1( 15,'EEC',EB,EL,EH)
|
||||||
CALL GBOOK1(115,'EEC',50,-1D0,1D0)
|
CALL GBOOK1(115,'EEC',EB,EL,EH)
|
||||||
CALL GBOOK1(215,'EEC',50,-1D0,1D0)
|
CALL GBOOK1(215,'EEC',EB,EL,EH)
|
||||||
END
|
END
|
||||||
C-----------------------------------------------------------------------
|
C-----------------------------------------------------------------------
|
||||||
SUBROUTINE DEMOUT(NEV)
|
SUBROUTINE DEMOUT(NEV)
|
||||||
|
|
|
||||||
7
gbook.f
7
gbook.f
|
|
@ -931,19 +931,22 @@ C---OPEN TopDrawer FILE
|
||||||
LOGICAL OPEN
|
LOGICAL OPEN
|
||||||
CHARACTER TITLE * 60
|
CHARACTER TITLE * 60
|
||||||
CHARACTER FNAME * 74
|
CHARACTER FNAME * 74
|
||||||
|
CHARACTER*40 OPATH
|
||||||
COMMON /GFILE/ OPEN, TITLE
|
COMMON /GFILE/ OPEN, TITLE
|
||||||
|
COMMON /FPATH/ OPATH
|
||||||
DATA OPEN/.FALSE./
|
DATA OPEN/.FALSE./
|
||||||
IF (OPEN) RETURN
|
IF (OPEN) RETURN
|
||||||
OPEN=.TRUE.
|
OPEN=.TRUE.
|
||||||
N=0
|
N=0
|
||||||
FNAME='gtopdraw_'//TRIM(TITLE)//'.top'
|
FNAME=TRIM(OPATH)//'gtopdraw_'//TRIM(TITLE)//'.top'
|
||||||
OPEN (21,FILE=TRIM(FNAME),STATUS='NEW',ERR=10)
|
OPEN (21,FILE=TRIM(FNAME),STATUS='NEW',ERR=10)
|
||||||
WRITE (6,*) 'Using file "'//TRIM(FNAME)//'"'
|
WRITE (6,*) 'Using file "'//TRIM(FNAME)//'"'
|
||||||
RETURN
|
RETURN
|
||||||
10 N=N+1
|
10 N=N+1
|
||||||
IF (N.GE.100) STOP
|
IF (N.GE.100) STOP
|
||||||
WRITE (6,*) 'Could not open file "',TRIM(FNAME),'"'
|
WRITE (6,*) 'Could not open file "',TRIM(FNAME),'"'
|
||||||
WRITE (FNAME,'(A,I2.2,A4)') 'gtopdraw_'//TRIM(TITLE)//'_',N,'.top'
|
WRITE (FNAME,'(A,I2.2,A4)') TRIM(OPATH)//'gtopdraw_'
|
||||||
|
$ //TRIM(TITLE)//'_',N,'.top'
|
||||||
OPEN (21,FILE=TRIM(FNAME),STATUS='NEW',ERR=10)
|
OPEN (21,FILE=TRIM(FNAME),STATUS='NEW',ERR=10)
|
||||||
WRITE (6,*) 'Using file "',TRIM(FNAME),'" instead'
|
WRITE (6,*) 'Using file "',TRIM(FNAME),'" instead'
|
||||||
END
|
END
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue