home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / FORTRAN / SUPERT87.ZIP / IBLOCK.FOR < prev    next >
Encoding:
Text File  |  1986-12-15  |  2.6 KB  |  59 lines
  1.       BLOCK DATA                                                        
  2.  
  3. c    include 'tcommon.for'
  4.     %include tcommon.for
  5.  
  6.     DATA RANKPT/0.,1.,10.,20.,30.,40.,50.,60.,70.,80.,95.,110.,125.,  
  7.      1140./                                                           
  8.     DATA RANKS/'        ','Inductee','        ',                      
  9.      1' Recruit','        ','   Cadet','      Mi','dshipman',
  10.      1'        ','  Ensign',' Lieuten','ant J.G.','      Li',
  11.      1'eutenant','   Lt. C','ommander','       C','ommander',
  12.      1'        ',' Captain','    Rear',' Admiral','    Vice',
  13.      1' Admiral','        ',' Admiral','   fleet',' Admiral'/
  14.     DATA NRW,NRANKS,IRANK/0,14,1/
  15.     DATA PRORAS/.015/,RADEK/.7/,RADEG/.7/,RADER/.7/,RADEB/.7/
  16.      1,RADET/.5/,RADKR/.7/,RADKG/.7/,RADKB/.7/,RADKT/.5/,
  17.      1RADKK/.7/,RADGB/.7/,RADGT/.5/,RAGGR/.7/,RADBT/.7/,RADTT/.5/,
  18.      1RADTR/.5/,RADES/.7/,RADSS/.5/
  19.  
  20.     data NDRA,NTROPS,DRL,DRD/0,50,.15,1./
  21.     DATA SHVX,VSTRM,VDSESM,PRXSH,IDSES,ISHNUM/.25,.08,1.,.19,0,2/
  22.     data ITKL/18*0/,JTKL/18*0/
  23.     DATA VSTRDS/.12/
  24.       DATA SNOVAP,ZMAX,ICLOAK,PRCLDN,PHOLE,IHOLE,HOLRAD,SHLDF/.00007,
  25.      13000.,0,.22,.06,0,.5,1./
  26.     DATA NQUAD,PSTORM,STMRAD/10,0.,.999/
  27.     DATA XKTIME,RTIME,DECR,EIMP,EWRP,DGWP,DGIMP/.8,.7,1.,2000.,400.,
  28.      145.,15./
  29.     DATA DVWP,TPOWR,TPMIN,ETVEL,RADEGC,DISTPE,DISTGT,PTRGH/.25,175.,
  30.      175.,.4,57.2957,5.,4.,100./
  31.     DATA GHEMX,GHTMX,DISTKR,PRKLN,VRKL,RTV,VMXKL/3000.,10.,4.,150.,
  32.      18.,.55,.5/
  33.     DATA DGKL,DSPKL,XKLHIT,XRMHIT,XKFPST,DISTPK,ESDIST/30.,.2,300.,
  34.      1400.,5.,4.,2.5/
  35.     DATA XRFTS,TFACTR,RPRKL,RPRRM,PRGH,REEN,SIM/1.5,3.,5.,10.,.1,25.,
  36.      1.55/
  37.     DATA IETOFT,XTRTM,EVENU,EVMSP,EEVMSP,THITR/2,10.,200.,.55,1.1,.8/
  38.     DATA XGHIT,XKFPE,DMXSPD,MAXK,MINK,MAXR/100.,117.,.2,99,9,99/
  39.     data MINR/9/
  40.     DATA MAXSQ,MAXKQ,MAXRQ,MAXBQ,ITFCTR,NMEN,SENRGY/10,9,9,1,12,400,
  41.      15000./
  42.     DATA NTRP,DIV1,DIV2,ZMIN,DVIMP/15,200.,25.,750.,.1/
  43.     DATA TNRGY,MULTK1,MULTK2,PCTCOL,ERPRRT,PRREEN/4.,30,20,.3,2.,.6/
  44.     DATA LETR/'*','E','K','R','G','B','T','.',' ','F','P','S','C'/
  45.     DATA ICLKON,IYES/'N','Y'/
  46.     data nsw/0/
  47.     DATA NAMD/'W Drive','Im Drive','Phasers','Torpedos','Pulsars',
  48.      1'Sr Scan','Lr Scan','Trnsport','Communic','Computer'/
  49.     DATA NHELP,NHELPS/'7777','7'/
  50.     data xhelp/7777.0/
  51.     DATA IFGHTM,SBMNR,SCREWR,CREWK,CODDS,DODDS,EODDS,FODDS/400,100.
  52.      1,175.,100.,.04,.16,.1,.085/
  53.     DATA SKDLAY,SRDLY,GHVMX,MXCRGH,GHPHEN,DSPGH,DGGH,RPRGH/1.,1.5,
  54.      1.35,100,100.,.1,10.,5./
  55.     DATA GHACCE/3000./,IDAMRP/40/,IETOFT/1/
  56.     DATA PJAM/.25/,PJMINC/.1/,PPHASD/.4/,PTORPD/.4/,PDRVD/.3/
  57.     data PDEFD/.2/,TRNRGY/.1/,NHOLD/0/
  58.     END                                                               
  59.