home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / oilfield / spe-31.lzh / COPES.FOR < prev    next >
Text File  |  1987-08-12  |  2KB  |  50 lines
  1.         PROGRAM COPES
  2.  
  3. c***********************************************************************
  4. c       This program, Crude Oil Property Evaluation Software, calculates
  5. c          the properties of stock tank oil and separator gas resulting
  6. c          from a crude oil flashed thru multiple separators.  For
  7. c          information on variables and calulations see the subroutine
  8. c          oilsep and its associated subroutines.
  9.  
  10. c       Author: Scott K. Laudeman
  11. c       Date: June 20, 1987
  12.  
  13. c***********************************************************************
  14.  
  15. c***********************************************************************
  16. c       Declarations
  17. c***********************************************************************
  18.  
  19.         REAL M7Plus,PSep(10),TSep(10),x(12),ysepgas(12),z(12)
  20.         INTEGER FileUnit,TermUnit
  21.         COMMON FileUnit,TermUnit
  22.  
  23. c***********************************************************************
  24. c       Main Program
  25. c***********************************************************************
  26.  
  27.         FileUnit=1
  28.         TermUnit=0
  29.  
  30. c=======================================================================
  31. c       TermUnit is the unit number which specifies terminal input and
  32. c          output.  It depends on the compiler used.  The Microsoft
  33. c          FORTRAN compiler for the Macintosh uses 9 and the Microsoft
  34. c          FORTRAN compiler for IBM compatible computers uses 0.
  35. c=======================================================================
  36.  
  37.  
  38.         CALL  input(z,M7Plus,SG7Plus,NumSep,Pres,Tres,PSep,TSep,Psc,
  39.      1     Tsc)
  40.  
  41.         CALL oilsep(z,M7Plus,SG7Plus,NumSep,Pres,Tres,PSep,TSep,Psc,
  42.      1     Tsc,x,ysepgas,FVF,API,GOR,GG,GHV)
  43.  
  44.         CALL output(z,M7Plus,SG7Plus,NumSep,Pres,Tres,PSep,TSep,Psc,
  45.      1     Tsc,x,ysepgas,FVF,API,GOR,GG,GHV)
  46.  
  47.         STOP
  48.  
  49.         END
  50.