home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / FORTRAN / SUPERT87.ZIP / TCOMMON.FOR < prev    next >
Encoding:
Text File  |  1986-12-15  |  2.9 KB  |  60 lines
  1.  
  2.     character*8  NAMD(10),RANKS(2,14),MNAME,MPASS
  3.     character LETR(13),ICLKON,IYES
  4.     character*4 NHELP,NHELPS,IFROM,ITO,IPQ(10,10)
  5.  
  6.       COMMON/ARRAYS/BASE(2),EFP(3),EFT(25,2),ETR(3),GHOST(13),
  7.      1  IBL(10,10),IDMG(10),IGAL(10,10),JGAL(10,10),
  8.      1  IPROB1(10),RAD(9),STARS(9,2),TORPS(30,4),XKL(9,9),XROM(9,4)     
  9.       
  10.     common/cdata/ NAMD,ranks,mname,mpass,letr,NHELP,NHELPS,IYES
  11.      1,ICLKON,IFROM,ITO,ipq
  12.  
  13.     COMMON/SCALAR/ACCE,DCHG,DDEG,DECR,DEFL,DELTA,DELV,DGIMP,DGKL,DGWP,
  14.      1  DISTGT,DISTKR,DISTPE,DISTPK,DIV1,DIV2,DMXSPD,DSP,DSPKL,DVEL,    
  15.      1  DVIMP,DVWP,EEVMSP,EIMP,ENERGY,ERPRRT,ESDIST,ETVEL,EVENU,EVMSP,  
  16.      1  EWRP,FDATE,GHEMX,GHTMX,IBASE,ICE,IDOCK,IETOFT,IGH,IHERE,IHWARP, 
  17.      1  ISTART,ITFCTR,ITFIRE,ITORP,ITRUCE,IZZ,JCE,KLNGNS,XKTIME,        
  18.      1  LEFTK,LEFTR,MAXBQ,MAXK,MAXKQ,MAXR,MAXRQ,MAXSQ,MEN,MINK,MINR,    
  19.      1  MROM,MULTK1,MULTK2,NBASES,NKL,NMEN,NROM,NSTARS,NSTEPS,NTORPS,   
  20.      1  NTSTPS,NTRP,PCTCOL,PDEG,PNRGY,PRGH,PRKLN,PRREEN,PSP,PTRGH,      
  21.      1  RADEGC,REEN,RPRKL,RPRRM,RTIME,RTV,SDATE,SENRGY,                 
  22.      1  SIM,TFACTR,THITR,TNRGY,TPMIN,TPOWR,VMXKL,VRKL,XDDEG,XDSP,XGHIT, 
  23.      1  XKFPE,XKFPST,XKLHIT,XRFTS,XRMHIT,XQE,XTIME,XTRTM,YQE,ZMIN,   
  24.      1  PRORAS,RADEK,RADEG,RADER,RADEB,RADET,RADKR,RADKG,RADKB,RADKT,   
  25.      1  RADKK,RADGB,RADGT,RAGGR,RADBT,RADTT,RADTR,RADES,RADSS           
  26.  
  27.     COMMON/LOCAL/ITBEAM,ISCAN,ITDK,JSCAN,JMSG,TRNRGY,IISTAT,JJSTAT,   
  28.      1  JJUP,JJFROM,JJTO,JJDOWN                                         
  29.  
  30.     COMMON/TRNSFR/ICM,IDIR,MTORPS,DTORP(30),IBTYP,IEVDR,ADDFL,ITRSTP, 
  31.      1  KFROM,MTO,LUP,LDOWN,JSCHM,ISHSTR(10),JDAM,            
  32.      1  IPROB2(10),NGHTFP                                               
  33.  
  34.     COMMON/ZEROS/DVWP0,EWRP0,DISTP0,IETOF0,DISTG0,CODDS0,             
  35.      1  EODDS0,IDAMR0,PJAM0,ETVEL0,SHLDF0,TRNRG0                        
  36.  
  37.     COMMON/EXTRAS/SNOVAP,ZMAX,ICLOAK,PRCLDN,PHOLE,IHOLE,JHOLE,HOLRAD, 
  38.      1  SHLDF,NQUAD,PSTORM,ISTORM,JSTORM,STMRAD,LEVEL,ION
  39.  
  40.     COMMON/RANK/POINTS,RANKPT(14),NRANKS,IRANK,NRW, 
  41.      1  MMKEY,NTIME,IOK,NHOLD,NSW                                
  42.  
  43.     COMMON/TBEAMS/IFGHTM,ITRMEN(20),JUP,JFROM,IBMEN,JDOWN,JTO,IBMENR, 
  44.      1  SBMNR,CREWR(9),SCREWR,CREWK,CODDS,DODDS,EODDS,FODDS             
  45.  
  46.     COMMON/SUBCTL/ICNTL(20),RTBRG(5),KTO,LTO,KBRG,XWRP,               
  47.      1  ISTAT,IDAMRP,SDEF,IMSG,SKDLAY,SRDLY,GHVMX,MXCRGH,GHPHEN,        
  48.      1  DSPGH,DGGH,RPRGH,XHELP                             
  49.  
  50.     COMMON/FORGOT/GHACCE,PJAM,PJMINC,ACTPJM,PPHASD,PTORPD,PDRVD,      
  51.      1  PDEFD,IGHPH,IGHTR,IGHDR,IGHDE                                   
  52.  
  53.     COMMON/SHUTL/SHX,SHY,SHDEG,SHVX,ISTSH,ISHD,IFNDS(9),IDSES,VDSES,  
  54.      1  VSTRDS,VSTRM,PRXSH,VDSESM,ISHNUM                                
  55.  
  56.     COMMON/ATTACK/ITKL(18),JTKL(18)                                   
  57.  
  58.     COMMON/SHUTL2/ALEDR,IALIC,IALJC,IALSS,NDRA,NTROPS,DRL,DRD         
  59.  
  60.       COMMON/FILVAR/IV