home *** CD-ROM | disk | FTP | other *** search
/ Antennas / Antennas_CD-ROM_Walnut_Creek_September_1996.iso / mathaids / spectrum / spectrum.fn < prev    next >
Text File  |  1996-06-30  |  2KB  |  69 lines
  1. *    SPECTRUM.FN
  2.  
  3. *    Data definition and COMMON areas for SPECTRUM V 2.0.
  4.  
  5. *    David E. Hess
  6. *    Fluid Flow Group - Process Measurements Division
  7. *    Chemical Science and Technology Laboratory
  8. *    National Institute of Standards and Technology
  9. *    April 15, 1992
  10.  
  11.     PARAMETER     (IFMAX=100,JFMAX=5,NMAX=16384,NSMAX=20,NUMCON=5)
  12.     PARAMETER    (NUMI=2,NUMO=3,NUMO2=4,NUMT=5,NUMT2=6,NUMP=7)
  13.     PARAMETER     (NUME=8,EPS=1.0E-20)
  14.     PARAMETER     (NPTS=7,NSD=7,SDLIM=70.0)
  15.     PARAMETER    (HEADER_SIZE=28)
  16.  
  17.     LOGICAL*1    ROOT1,ROOT2,SUFX
  18.     LOGICAL*1     CONSEC,ARB,COH,NOCOH,EXISTS,ONECHAN,TWOCHAN
  19.     LOGICAL*1     ASCII,BINRY,VOLT,OTHER,REALDAT,RMEAN,DTREND,NOOP
  20.     LOGICAL*1     ASCII2,BINRY2,VOLT2,OTHER2,RMEAN2,DTREND2,NOOP2
  21.     LOGICAL*1     LPASS,HPASS,BPASS,BSTOP,NOFIL
  22.     LOGICAL*1     LPASS2,HPASS2,BPASS2,BSTOP2,NOFIL2
  23.     LOGICAL*1    AMP,POWER,CROSS,TAPER,NOTAPER,OVRLP,NOOVRLP
  24.     LOGICAL*1    HANN,PARZ,WELCH,TUKEY,MINSL,MXDEC
  25.     LOGICAL*1    EVENUM,ODDNUM,MSG
  26.     LOGICAL*1    ALTVOLT,USEGAIN,ALTVOLT2,USEGAIN2
  27.  
  28.     COMMON /LOGIC/    ROOT1,ROOT2,SUFX,
  29.      +            CONSEC,ARB,COH,NOCOH,EXISTS,ONECHAN,TWOCHAN,
  30.      +            ASCII,BINRY,VOLT,OTHER,REALDAT,RMEAN,DTREND,NOOP,
  31.      +            ASCII2,BINRY2,VOLT2,OTHER2,RMEAN2,DTREND2,NOOP2,
  32.      +            LPASS,HPASS,BPASS,BSTOP,NOFIL,
  33.      +            LPASS2,HPASS2,BPASS2,BSTOP2,NOFIL2,
  34.      +            AMP,POWER,CROSS,TAPER,NOTAPER,OVRLP,NOOVRLP,
  35.      +            HANN,PARZ,WELCH,TUKEY,MINSL,MXDEC,
  36.      +            EVENUM,ODDNUM,MSG,
  37.      +            ALTVOLT,USEGAIN,ALTVOLT2,USEGAIN2
  38.  
  39.     INTEGER*2    TRANS_ONE_CHAN,TRANS_TWO_CHAN,WIN_SCALE
  40.     INTEGER*2    TAPER_DATA,SPEC_ONE_CHAN,SPEC_TWO_CHAN
  41.  
  42.     COMMON /INTGR2/    NUMREC,NREC,NREC2,NRECD2,INUM,INUM2,
  43.      +            IF,NS,NS2,ICHANS
  44.  
  45.     INTEGER*4    IRSIZE,IRSIZ2,IDELTMS,N,N2,I,IOD,K,NP1,NUMARGS
  46.     INTEGER*4    NBYTE,TRFFIL,TAPFIL,TEMP_SPACE,IREC
  47.  
  48.     COMMON /INTGR4/    IRSIZE,IRSIZ2,IDELTMS,N,N2,I,IOD,K,NP1,NUMARGS
  49.  
  50.     REAL*4        X(NPTS),Y(NPTS)
  51.  
  52.     COMMON /REAL4/    PI,PI2,VOFST1,VOFST2,FC,F1,F2,FC2,F12,F22,
  53.      +            DELT,FN,S,XMEAN,YMEAN,X,Y
  54.  
  55.     CHARACTER    TNAM *5, WNAM *5, PNAM *6, HNAM *7
  56.     CHARACTER    SNAM *13, DNAM *9
  57.     CHARACTER*1     FIRST,INP,FTYPE,FTYP2
  58.     CHARACTER*4    BUFFER,SUFFIX
  59.     CHARACTER*72    XNAM,YNAM,XNAM2,YNAM2
  60.     CHARACTER*72    PTH,TPTH,FIN,TDOUT,TDOUT2,TOUT,TOUT2,POUT,EOUT
  61.     CHARACTER*72    FLNM(JFMAX)
  62.  
  63.     COMMON /WINNMS/ TNAM,WNAM,PNAM,HNAM,SNAM,DNAM
  64.  
  65.     COMMON /CHAR/    FIRST,INP,FTYPE,FTYP2,BUFFER,SUFFIX,
  66.      +            XNAM,YNAM,XNAM2,YNAM2,
  67.      +            PTH,TPTH,FIN,TDOUT,TDOUT2,TOUT,TOUT2,POUT,EOUT,
  68.      +            FLNM
  69.