	PROGRAM LCA METHOD
	INTEGER L,F
	REAL QPL,QPR,QMA,QRE,QWA,LCCO2
        REAL GST,GIN1,GIN2,GIN3,C,CA,CB,AM,UR,X,Y
	REAL VCO,MRB,MIF,A,T,E,CT,CE,ER
	WRITE(6,*) 'AREA,LIFE,C,CONC,Fc,SBAR,SFRAME,TIME,EQU'
	READ(5,*) A,L,C,VCO,F,MRB,MIF,T,E
C
C      **PLAN**
	QPL=0*QPR
C
C      **PRODUCT**
	IF(F.EQ.18)THEN
          UR=299.9
          ELSE IF(F.EQ.21)THEN
	  UR=299.9
          ELSE IF(F.EQ.24)THEN
          UR=309.7
          ELSE IF(F.EQ.27)THEN
          UR=328.4
          ELSE IF(F.EQ.30)THEN
          UR=350.5
          ELSE IF(F.LT.30)THEN
          WRITE(6,*) '**ERROR**'
          STOP
          END IF
	GIN1=VCO/A*UR
	GIN2=MRB/A*942.0
	GIN3=MIF/A*1136.0
	GST=GIN1+GIN2+GIN3
	QPR=GST*(100.0/C)/L
C
C      **MANAGEMENT**
        CT=T/12
	CA=2.0*L/35.0*CT*E
	QMA=CA*QPR
C
C      **RENOVATION**
	CB=INT(L/15)
	QRE=CB*(70-C)/100*QPR
C      **WASTE**
C
	QWA=0.2*QPR
C
C      **LCCO2**
	LCCO2=QPL+QPR+QMA+QRE+QWA
C	
	WRITE(6,*) 'PLAN=',QPL
	WRITE(6,*) 'PRODUCT=',QPR
	WRITE(6,*) 'MANAGEMENT=',QMA
	WRITE(6,*) 'RENOVATION=',QRE
	WRITE(6,*) 'WASTE=',QWA
	WRITE(6,*) 'LCCO2=',LCCO2
	STOP
	END