Project CMSSW displayed by LXR |
|
|
|
|||
File indexing completed on 2024-04-06 12:13:38
0001 0002 c******************************************************* 0003 c... open files for recording grid generated by vegas and 0004 c... for recording the intermediate running information 0005 c... e.g. (.grid)---> for grid; (.cs)---> for cross-section. 0006 c******************************************************* 0007 0008 subroutine upopenfile(imix,imixtype,ibcstate,ioctet) 0009 implicit none 0010 integer imix,imixtype,ibcstate,ioctet 0011 0012 c************************************************** 0013 c...output files to store the running information for the integrated 0014 c...cross-section. note here the p-wave states are only for gluon- 0015 c...gluon fusion subprocess. 0016 0017 if(imix.eq.1) then 0018 c open(unit=3,file='data/mix.cs',status='unknown') 0019 open(unit=3,file='mix.cs',status='unknown') 0020 end if 0021 0022 c-------------------------------------------- 0023 c...file about the generated grade by vegas. 0024 if(imix.eq.1) then 0025 if(imixtype.eq.1) then 0026 c open(unit=36,file='data/grade1s0.grid',status='unknown') 0027 c open(unit=37,file='data/grade3s1.grid',status='unknown') 0028 c open(unit=38,file='data/grade1p1.grid',status='unknown') 0029 c open(unit=39,file='data/grade3p0.grid',status='unknown') 0030 c open(unit=46,file='data/grade3p1.grid',status='unknown') 0031 c open(unit=47,file='data/grade3p2.grid',status='unknown') 0032 c open(unit=48,file='data/grade81s.grid',status='unknown') 0033 c open(unit=49,file='data/grade83s.grid',status='unknown') 0034 open(unit=36,file='grade1s0.grid',status='unknown') 0035 open(unit=37,file='grade3s1.grid',status='unknown') 0036 open(unit=38,file='grade1p1.grid',status='unknown') 0037 open(unit=39,file='grade3p0.grid',status='unknown') 0038 open(unit=46,file='grade3p1.grid',status='unknown') 0039 open(unit=47,file='grade3p2.grid',status='unknown') 0040 open(unit=48,file='grade81s.grid',status='unknown') 0041 open(unit=49,file='grade83s.grid',status='unknown') 0042 end if 0043 if(imixtype.eq.2) then 0044 c open(unit=36,file='data/grade1s0.grid',status='unknown') 0045 c open(unit=37,file='data/grade3s1.grid',status='unknown') 0046 open(unit=36,file='grade1s0.grid',status='unknown') 0047 open(unit=37,file='grade3s1.grid',status='unknown') 0048 end if 0049 if(imixtype.eq.3) then 0050 c open(unit=38,file='data/grade1p1.grid',status='unknown') 0051 c open(unit=39,file='data/grade3p0.grid',status='unknown') 0052 c open(unit=46,file='data/grade3p1.grid',status='unknown') 0053 c open(unit=47,file='data/grade3p2.grid',status='unknown') 0054 c open(unit=48,file='data/grade81s.grid',status='unknown') 0055 c open(unit=49,file='data/grade83s.grid',status='unknown') 0056 open(unit=38,file='grade1p1.grid',status='unknown') 0057 open(unit=39,file='grade3p0.grid',status='unknown') 0058 open(unit=46,file='grade3p1.grid',status='unknown') 0059 open(unit=47,file='grade3p2.grid',status='unknown') 0060 open(unit=48,file='grade81s.grid',status='unknown') 0061 open(unit=49,file='grade83s.grid',status='unknown') 0062 end if 0063 end if 0064 0065 c****************************************************** 0066 c...output files to store the running information for the integrated 0067 c...cross-section. note here the p-wave states are only for gluon- 0068 c...gluon fusion subprocess. 0069 0070 if(imix.eq.0) then 0071 if(ibcstate.eq.1.and.ioctet.eq.0) then 0072 c open(unit=3,file='data/1s0.cs',status='unknown') 0073 c open(unit=11,file='data/grade1s0.grid',status='unknown') 0074 open(unit=3,file='1s0.cs',status='unknown') 0075 open(unit=11,file='grade1s0.grid',status='unknown') 0076 end if 0077 if(ibcstate.eq.2.and.ioctet.eq.0) then 0078 c open(unit=3,file='data/3s1.cs',status='unknown') 0079 c open(unit=11,file='data/grade3s1.grid',status='unknown') 0080 open(unit=3,file='3s1.cs',status='unknown') 0081 open(unit=11,file='grade3s1.grid',status='unknown') 0082 end if 0083 if(ibcstate.eq.1.and.ioctet.eq.1) then 0084 c open(unit=3,file='data/oct1s0.cs',status='unknown') 0085 c open(unit=11,file='data/grade81s.grid',status='unknown') 0086 open(unit=3,file='oct1s0.cs',status='unknown') 0087 open(unit=11,file='grade81s.grid',status='unknown') 0088 end if 0089 if(ibcstate.eq.2.and.ioctet.eq.1) then 0090 c open(unit=3,file='data/oct3s1.cs',status='unknown') 0091 c open(unit=11,file='data/grade83s.grid',status='unknown') 0092 open(unit=3,file='oct3s1.cs',status='unknown') 0093 open(unit=11,file='grade83s.grid',status='unknown') 0094 end if 0095 if(ibcstate.eq.3) then 0096 c open(unit=3,file='data/1p1.cs',status='unknown') 0097 c open(unit=11,file='data/grade1p1.grid',status='unknown') 0098 open(unit=3,file='1p1.cs',status='unknown') 0099 open(unit=11,file='grade1p1.grid',status='unknown') 0100 end if 0101 if(ibcstate.eq.4) then 0102 c open(unit=3,file='data/3p0.cs',status='unknown') 0103 c open(unit=11,file='data/grade3p0.grid',status='unknown') 0104 open(unit=3,file='3p0.cs',status='unknown') 0105 open(unit=11,file='grade3p0.grid',status='unknown') 0106 end if 0107 if(ibcstate.eq.5) then 0108 c open(unit=3,file='data/3p1.cs',status='unknown') 0109 c open(unit=11,file='data/grade3p1.grid',status='unknown') 0110 open(unit=3,file='3p1.cs',status='unknown') 0111 open(unit=11,file='grade3p1.grid',status='unknown') 0112 end if 0113 if(ibcstate.eq.6) then 0114 c open(unit=3,file='data/3p2.cs',status='unknown') 0115 c open(unit=11,file='data/grade3p2.grid',status='unknown') 0116 open(unit=3,file='3p2.cs',status='unknown') 0117 open(unit=11,file='grade3p2.grid',status='unknown') 0118 end if 0119 end if 0120 0121 end
| [ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
|
This page was automatically generated by the 2.2.1 LXR engine. The LXR team |
|