DPMJET/flukapro/(COMPUT)

   1 *$ CREATE COMPUT.ADD
   2 *COPY COMPUT
   3 *
   4 *=== comput ===========================================================*
   5 *
   6 *----------------------------------------------------------------------*
   7 *                                                                      *
   8 *     include file: comput copy                created 23/08/94 by afa *
   9 *                                                                      *
  10 *     Last change  on  09-nov-98   by   Alfredo Ferrari, CERN          *
  11 *     included in the following subroutines or functions:              *
  12 *                                                                      *
  13 *                               berttp                                 *
  14 *                               blkdt1                                 *
  15 *                               cmsppr                                 *
  16 *                               dtimst                                 *
  17 *                               elsgrd                                 *
  18 *                               epilog                                 *
  19 *                               feeder                                 *
  20 *                               flukam                                 *
  21 *                               fluoin                                 *
  22 *                               geogeo                                 *
  23 *                               mgdraw                                 *
  24 *                               nuscti                                 *
  25 *                               pisgrd                                 *
  26 *                               plotgm                                 *
  27 *                               rsncli                                 *
  28 *                               source                                 *
  29 *                               usrbdx                                 *
  30 *                               usrbin                                 *
  31 *                               usrtrk                                 *
  32 *                               usryld                                 *
  33 *                               which                                  *
  34 *                               xnbnls                                 *
  35 *                               xnloan                                 *
  36 *                               xsread                                 *
  37 *                                                                      *
  38 *     description of the common block(s) and variable(s)               *
  39 *                                                                      *
  40 *                                                                      *
  41 *     /comput/ contains information about the computer used            *
  42 *              and about the input file                                *
  43 *         komput       = system (1=OpenVms,  2=ibm-vm,   3=ibm-mvs,    *
  44 *                                4=cray,     5=unix-aix, 6=unix-hp,    *
  45 *                                7=unix-sun, 8=DEC-unix, 9=Linux...)   *
  46 *         Cpuspe       = computer speed with respect to IBM 370/168-3  *
  47 *                        or to VAX 780/11 or to IBM RISC/6000 7012/370 *
  48 *         Cpujob       = cpu limit (s) for the current job             *
  49 *         Kpwdir       = last non blank character of Pwddir            *
  50 *         Kfldir       = last non blank character of Hfldir            *
  51 *         Khmdir       = last non blank character of Homdir            *
  52 *         Mxftnu       = maximum fortran unit number allowed           *
  53 *         Comptr       = model                                         *
  54 *         Inpfil       = input file                                    *
  55 *         Pwddir       = current work directory                        *
  56 *         Hfldir       = home FLUKA directory                          *
  57 *         Homdir       = user home  directory                          *
  58 *         Hostnm       = host name                                     *
  59 *         Usrflk       = user name                                     *
  60 *                                                                      *
  61 *----------------------------------------------------------------------*
  62 *
  63       CHARACTER COMPTR*50, INPFIL*80, PWDDIR*80, HFLDIR*80, HOMDIR*80,
  64      &          HOSTNM*80, USRFLK*80
  65       COMMON / COMPUT / CPUSPE, CPUJOB, KOMPUT, KPWDIR, KFLDIR, KHMDIR,
  66      &                  MXFTNU
  67       COMMON / CHCMPT / COMPTR, INPFIL, PWDDIR, HFLDIR, HOMDIR, HOSTNM,
  68      &                  USRFLK
  69