施工组织设计下载简介
内容预览随机截取了部分，仅供参考，下载文档齐全完整
施工组织设计阶段的公路造价优化PARAMETER(INNQ=30,INNP=10,IP=30)
PARAMETER(INNQ3=INNQ*3)
COMMON/GA0/III,NNQ,NNP,NPS,NNQ3,NNH,IIQ
COMMON/GA1/A0(INNQ,INNP),A2(INNQ3,INNP),BX(INNP,2)
GBT50537-2017 油气田工程测量标准COMMON/RAD/RAD(2000),KKP
DIMENSIONX(INNP)
DO20I=1,NNP
20X(I)=A2(KK,I)
CALLSUBJECT(JMC,NNP,X,SUJ)
SUBROUTINEOBJE1(JMC,A3,SUJ)
PARAMETER(INNQ=30,INNP=10)
PARAMETER(INNQ3=INNQ*3)
COMMON/GA0/III,NNQ,NNP,NPS,NNQ3,NNH,IIQ
COMMON/GA1/A0(INNQ,INNP),A2(INNQ3,INNP),BX(INNP,2)
DIMENSIONX(INNP),A3(INNP)
DO22I=1,NNP
22X(I)=A3(I)
CALLSUBJECT(JMC,NNP,X,SUJ)
SUBROUTINESUBJECT(JMC,NNP,X,SUJ)
PARAMETER(IP=30)
CCOMMON/DIST/SAND1(IP,2),STONE1(IP,2),SAND2(IP,2),STONE2(IP,2)
COMMON/BASIC/MS(2),NS(2),CB(2),SMOUNT(3,2),DIS(3)
DIMENSIONX(NNP),CP(3)
DIMENSIONXS(NNP,2),SEG(NNP+1)
CALLSEGMENNT(NNP,X,SEG)
CALLSEARCH(JMC,NNP,X,MS,NS,XS)
CALLDISTA(NNP,SEG,XS,DIS)
CALLPRICE(DIS,CP)
WRITE(*,*)(CP(I),I=1,3)
S0=S0+SMOUNT(JJ,JMC)*CP(JJ)/10000
C WRITE(*,*)NNP
SUJ=S0+NNP*CB(JMC)/10000
C 材料运输单价计算子程序
C功能：材料运输单价的分段取值计算
C说明：按照[0，7],(7,25),[25,50]三个取费段计算
C 分段运输单价(以砂石路面为例),单位：元/每方
SUBROUTINEPRICE(DI,CP)
DIMENSIONDI(3),CP(3)
IF(SL<=7)THEN
ELSEIF(SL<25)THEN
CP(K)=0.46*SL*1.6*SL
C 筑路材料经济供应范围计算子程序
C功能：确定筑路材料的经济供应范围
SUBROUTINESRANGE(MS,NS)
PARAMETER(IP=30)
COMMON/DIST/SAND1(IP,2),STONE1(IP,2),SAND2(IP,2),STONE2(IP,2)
DIMENSIONMS(2),NS(2)
C计算基层砂料经济供应范围分界点桩号
DSA(I1,1)=SAND1(I1,1)+0.5*(S1+S2)
502 CONTINUE
C计算基层石料经济供应范围分界点桩号
DST(J1,1)=STONE1(J1,1)+0.5*(T1+T2)
503 CONTINUE
C计算面层砂料经济供应范围分界点桩号
DSA(I2,2)=SAND2(I2,1)+0.5*(SS1+SS2)
504 CONTINUE
C计算面层石料经济供应范围分界点桩号
DST(J2,2)=STONE2(J2,1)+0.5*(TT1+TT2)
505 CONTINUE
WRITE(12,*)"基层砂料经济供应范围"
WRITE(12,*)"基层石料经济供应范围"
WRITE(12,*)"面层砂料经济供应范围"
WRITE(12,*)"面层石料经济供应范围"
C 筑路材料运距计算子程序
C功能：搜索最近料场并计算相应运距
SUBROUTINESEARCH(JMC,NNP,X,MS,NS,XS)
PARAMETER(IP=30)
COMMON/DIST/SAND1(IP,2),STONE1(IP,2),SAND2(IP,2),STONE2(IP,2)
DIMENSIONX(NNP),XS(NNP,2),MS(2),NS(2)
write(*,*)JMC,M,N
C第K个伴和厂基层砂料的运距
IF(JMC.EQ.1)THEN
DO602K=1,NNP
IF(X(K) ELSEIF(X(K)>DSA(I1,1).AND.X(K)<=DSA(I1+1,1))THEN 600 CONTINUE C第K个伴和厂基层石料的运距 IF(X(K) ELSEIF(X(K)>DST(J1,1).AND.X(K)<=DST(J1+1,1))THEN 601 CONTINUE 602 CONTINUE DO605K=1,NNP C第K个伴和厂面层砂料的运距 IF(X(K) ELSEIF(X(K)>DSA(I2,2).AND.X(K)<=DSA(I2+1,2))THEN 603 CONTINUE C第K个伴和厂面层石料的运距 IF(X(K) ELSEIF(X(K)>DST(J2,2).AND.X(K)<=DST(J2+1,2))THEN 604 CONTINUE 605 CONTINUE C WRITE(*,*)"JJJJJ" C WRITE(*,*)(XS1(I,1),I=1,NNP) C WRITE(*,*)(XS1(I,2),I=1,NNP) C WRITE(*,*)(XS2(I,1),I=1,NNP) C WRITE(*,*)(XS2(I,2),I=1,NNP) C功能：计算拌合厂对应的分段点桩号 SUBROUTINESEGMENNT(NNP,X,SEG) DIMENSIONX(NNP),SEG(NNP+1) COMMON/MILE/WK1,WK2 SEG(1)=WK1 SEG(NNP+1)=WK2 C 平均运距计算子程序 C功能：计算混合料，基层砂、石料和面层砂、石料的平均运距 SUBROUTINEDISTA(NNP,SEG,XS,DIS) DIMENSIONSEG(NNP+1),DIS(3) DIMENSIONXS(NNP,2),SL(NNP) COMMON/MILE/WK1,WK2 DOKK=1,NNP C 混合料平均运距(KM) C SUM=SUM+(SL(J)/4+0.5)*SL(J) C DIS(1)=SUM/ZL GBT5224-2014标准下载 DIS(1)=ZL/NNP/4+0.5 C 基层或面层砂料的平均运距(KM) SUM1=SUM1+XS(J1,1)*SL(J1) DIS(2)=SUM1/ZL C 基层或面层石料的平均运距(KM) SUM2=SUM2+XS(J2,2)*SL(J2) DIS(3)=SUM2/ZL C WRITE(*,*)"PPPPPP" JZ-C保温浆料施工方案C WRITE(*,*)(DIS(I),I=1,5)