home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / oilfield / spe-31.lzh / OUTPUT.FOR < prev    next >
Text File  |  1987-08-11  |  4KB  |  97 lines
  1.        SUBROUTINE output(z,M7Plus,SG7Plus,NumSep,Pres,Tres,
  2.      1    PSep,TSep,Psc,Tsc,x,ysepgas,FVF,API,GOR,GG,GHV)
  3.  
  4. c***********************************************************************
  5. c      This subroutine outputs the results of the subroutine oilsep in
  6. c         the program COPES.  For information on variables see the
  7. c         subroutine oilsep.
  8.  
  9. c      Author: Scott K. Laudeman
  10. c      Date: June 20, 1987
  11.  
  12. c***********************************************************************
  13.  
  14. c***********************************************************************
  15. c      Declarations
  16. c***********************************************************************
  17.  
  18.        REAL M7Plus,PSep(10),TSep(10),x(12),ysepgas(12),z(12)
  19.        INTEGER FileUnit,TermUnit
  20.        COMMON FileUnit,TermUnit
  21.  
  22. c***********************************************************************
  23. c      Main Program
  24. c***********************************************************************
  25.  
  26.        OPEN (UNIT=FileUnit,FILE='Results',STATUS='NEW')
  27.  
  28.        WRITE (FileUnit,1100)
  29.        WRITE (FileUnit,*)
  30.        WRITE (FileUnit,*)
  31.        WRITE (FileUnit,1200)
  32.        WRITE (FileUnit,1300) Pres,Tres
  33.        DO 10 i=1,NumSep
  34.           WRITE (FileUnit,1400) i,PSep(i),TSep(i)
  35. 10     CONTINUE
  36.        WRITE (FileUnit,1500) Psc,Tsc
  37.        WRITE (FileUnit,*)
  38.        WRITE (FileUnit,1550)
  39.        WRITE (FileUnit,1600)
  40.        WRITE (FileUnit,1700) z(1),ysepgas(1),x(1)
  41.        WRITE (FileUnit,1800) z(2),ysepgas(2),x(2)
  42.        WRITE (FileUnit,1900) z(3),ysepgas(3),x(3)
  43.        WRITE (FileUnit,2000) z(4),ysepgas(4),x(4)
  44.        WRITE (FileUnit,2100) z(5),ysepgas(5),x(5)
  45.        WRITE (FileUnit,2200) z(6),ysepgas(6),x(6)
  46.        WRITE (FileUnit,2300) z(7),ysepgas(7),x(7)
  47.        WRITE (FileUnit,2400) z(8),ysepgas(8),x(8)
  48.        WRITE (FileUnit,2500) z(9),ysepgas(9),x(9)
  49.        WRITE (FileUnit,2600) z(10),ysepgas(10),x(10)
  50.        WRITE (FileUnit,2700) z(11),ysepgas(11),x(11)
  51.        WRITE (FileUnit,2800) z(12),ysepgas(12),x(12)
  52.        WRITE (FileUnit,*)
  53.        WRITE (FileUnit,2900) SG7Plus
  54.        WRITE (FileUnit,3000) M7Plus
  55.        WRITE (FileUnit,*)
  56.        WRITE (FileUnit,3100) FVF
  57.        WRITE (FileUnit,3200) API
  58.        WRITE (FileUnit,3300) GOR
  59.        WRITE (FileUnit,3400) GG
  60.        WRITE (FileUnit,3500) GHV
  61.  
  62.        CLOSE (UNIT=FileUnit)
  63.  
  64. 1100   FORMAT(22X,'GAS-OIL SEPARATOR FLASH CALCULATIONS')
  65. 1200   FORMAT(30X,'Pressure, Psia',4X,'Temperature, deg F')
  66. 1300   FORMAT('Reservoir Conditions',13X,F8.2,13x,F6.2)
  67. 1400   FORMAT('Stage',I2,26X,F8.2,13x,F6.2)
  68. 1500   FORMAT('Standard Conditions',14X,F8.2,13x,F6.2)
  69. 1550   FORMAT(20X,'*******************Compositions*******************')
  70. 1600   FORMAT(20X,'Reservoir Fluid',4X,'Separator Gas',4X,'Stock Tank
  71.      1 Oil')
  72. 1700   FORMAT('Carbon Dioxide',9X,F8.5,10X,F8.5,10X,F8.5)
  73. 1800   FORMAT('Hydrogen Sulfide',7X,F8.5,10X,F8.5,10X,F8.5)
  74. 1900   FORMAT('Nitrogen',15X,F8.5,10X,F8.5,10X,F8.5)
  75. 2000   FORMAT('Methane',16X,F8.5,10X,F8.5,10X,F8.5)
  76. 2100   FORMAT('Ethane',17X,F8.5,10X,F8.5,10X,F8.5)
  77. 2200   FORMAT('Propane',16X,F8.5,10X,F8.5,10X,F8.5)
  78. 2300   FORMAT('Isobutane',14X,F8.5,10X,F8.5,10X,F8.5)
  79. 2400   FORMAT('n-Butane',15X,F8.5,10X,F8.5,10X,F8.5)
  80. 2500   FORMAT('Isopentane',13X,F8.5,10X,F8.5,10X,F8.5)
  81. 2600   FORMAT('n-Pentane',14X,F8.5,10X,F8.5,10X,F8.5)
  82. 2700   FORMAT('Hexane',17X,F8.5,10X,F8.5,10X,F8.5)
  83. 2800   FORMAT('Heptanes Plus',10X,F8.5,10X,F8.5,10X,F8.5)
  84. 2900   FORMAT('Specific Gravity Heptanes Plus',5X,F8.4)
  85. 3000   FORMAT('Molecular Weight Heptanes Plus',6X,F8.2,2X,
  86.      1 'Lbs/(Lb*Mole)')
  87. 3100   FORMAT('Oil Formation Volume Factor',9X,F8.4,2X,'bbl/STB')
  88. 3200   FORMAT('Stock Tank Oil Gravity',16X,F5.2,3X,'Deg. API')
  89. 3300   FORMAT('Gas-Oil Ratio',22X,F8.1,3X,'SCF/STB')
  90. 3400   FORMAT('Separator Gas Gravity',14X,F8.4)
  91. 3500   FORMAT('Separator Gas Gross Heating Value',3X,F8.1,2X,
  92.      1 'BTU/SCF')
  93.  
  94.        RETURN
  95.  
  96.        END
  97.