home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / oilfield / spe-31.lzh / INPUT.FOR < prev    next >
Text File  |  1987-08-11  |  3KB  |  77 lines
  1.        SUBROUTINE input(z,M7Plus,SG7Plus,NumSep,Pres,Tres,PSep,TSep,
  2.      1    Psc,Tsc)
  3.  
  4. c***********************************************************************
  5. c      This subroutine acquires the input data for the subroutine oilsep
  6. c         in 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),z(12)
  19.        INTEGER FileUnit,TermUnit
  20.        COMMON FileUnit,TermUnit
  21.  
  22. c***********************************************************************
  23. c      Main Program
  24. c***********************************************************************
  25.  
  26.        WRITE (TermUnit,*) 'Input mole fraction carbon dioxide:'
  27.        READ  (TermUnit,*) z(1)
  28.        WRITE (TermUnit,*) 'Input mole fraction hydrogen sulfide:'
  29.        READ  (TermUnit,*) z(2)
  30.        WRITE (TermUnit,*) 'Input mole fraction nitrogen:'
  31.        READ  (TermUnit,*) z(3)
  32.        WRITE (TermUnit,*) 'Input mole fraction methane:'
  33.        READ  (TermUnit,*) z(4)
  34.        WRITE (TermUnit,*) 'Input mole fraction ethane:'
  35.        READ  (TermUnit,*) z(5)
  36.        WRITE (TermUnit,*) 'Input mole fraction propane:'
  37.        READ  (TermUnit,*) z(6)
  38.        WRITE (TermUnit,*) 'Input mole fraction isobutane:'
  39.        READ  (TermUnit,*) z(7)
  40.        WRITE (TermUnit,*) 'Input mole fraction n-butane:'
  41.        READ  (TermUnit,*) z(8)
  42.        WRITE (TermUnit,*) 'Input mole fraction isopentane:'
  43.        READ  (TermUnit,*) z(9)
  44.        WRITE (TermUnit,*) 'Input mole fraction n-pentane:'
  45.        READ  (TermUnit,*) z(10)
  46.        WRITE (TermUnit,*) 'Input mole fraction hexanes:'
  47.        READ  (TermUnit,*) z(11)
  48.        WRITE (TermUnit,*) 'Input mole fraction heptanes plus:'
  49.        READ  (TermUnit,*) z(12)
  50.        WRITE (TermUnit,*) 'Input specific gravity heptanes plus:'
  51.        READ  (TermUnit,*) SG7Plus
  52.        WRITE (TermUnit,*) 'Input molecular weight heptanes plus (lbs
  53.      1/(lb*mole)):'
  54.        READ  (TermUnit,*) M7Plus
  55.        WRITE (TermUnit,*) 'Input number of separators (limit 10):'
  56.        READ  (TermUnit,*) NumSep
  57.        DO 10 i=1,NumSep
  58.           WRITE (TermUnit,*) 'Input stage',i,' separator pressure
  59.      1 (psia):'
  60.           READ  (TermUnit,*) PSep(i)
  61.           WRITE (TermUnit,*)  'Input stage',i,' separator temperature
  62.      1 (deg. F.):'
  63.           READ  (TermUnit,*) TSep(i)
  64. 10     CONTINUE
  65.        WRITE (TermUnit,*) 'Input reservoir pressure (psia):'
  66.        READ  (TermUnit,*) Pres
  67.        WRITE (TermUnit,*) 'Input reservoir temperature (deg. F.):'
  68.        READ  (TermUnit,*) Tres
  69.        WRITE (TermUnit,*) 'Input standard pressure: (psia)'
  70.        READ  (TermUnit,*) Psc
  71.        WRITE (TermUnit,*) 'Input standard temperature (deg. F.):'
  72.        READ  (TermUnit,*) Tsc
  73.  
  74.        RETURN
  75.  
  76.        END
  77.