wrfv2_fire/external/RSL/RSL/rsl_init_f.F

   1 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
   2 C
   3 C                              COPYRIGHT
   4 C
   5 C     The following is a notice of limited availability of the code and
   6 C     Government license and disclaimer which must be included in the
   7 C     prologue of the code and in all source listings of the code.
   8 C
   9 C     Copyright notice
  10 C       (c) 1977  University of Chicago
  11 C
  12 C     Permission is hereby granted to use, reproduce, prepare
  13 C     derivative works, and to redistribute to others at no charge.  If
  14 C     you distribute a copy or copies of the Software, or you modify a
  15 C     copy or copies of the Software or any portion of it, thus forming
  16 C     a work based on the Software and make and/or distribute copies of
  17 C     such work, you must meet the following conditions:
  18 C
  19 C          a) If you make a copy of the Software (modified or verbatim)
  20 C             it must include the copyright notice and Government
  21 C             license and disclaimer.
  22 C
  23 C          b) You must cause the modified Software to carry prominent
  24 C             notices stating that you changed specified portions of
  25 C             the Software.
  26 C
  27 C     This software was authored by:
  28 C
  29 C     Argonne National Laboratory
  30 C     J. Michalakes: (630) 252-6646; email: michalak@mcs.anl.gov
  31 C     Mathematics and Computer Science Division
  32 C     Argonne National Laboratory, Argonne, IL  60439
  33 C
  34 C     ARGONNE NATIONAL LABORATORY (ANL), WITH FACILITIES IN THE STATES
  35 C     OF ILLINOIS AND IDAHO, IS OWNED BY THE UNITED STATES GOVERNMENT,
  36 C     AND OPERATED BY THE UNIVERSITY OF CHICAGO UNDER PROVISION OF A
  37 C     CONTRACT WITH THE DEPARTMENT OF ENERGY.
  38 C
  39 C                      GOVERNMENT LICENSE AND DISCLAIMER
  40 C
  41 C     This computer code material was prepared, in part, as an account
  42 C     of work sponsored by an agency of the United States Government.
  43 C     The Government is granted for itself and others acting on its
  44 C     behalf a paid-up, nonexclusive, irrevocable worldwide license in
  45 C     this data to reproduce, prepare derivative works, distribute
  46 C     copies to the public, perform publicly and display publicly, and
  47 C     to permit others to do so.  NEITHER THE UNITED STATES GOVERNMENT
  48 C     NOR ANY AGENCY THEREOF, NOR THE UNIVERSITY OF CHICAGO, NOR ANY OF
  49 C     THEIR EMPLOYEES, MAKES ANY WARRANTY, EXPRESS OR IMPLIED, OR
  50 C     ASSUMES ANY LEGAL LIABILITY OR RESPONSIBILITY FOR THE ACCURACY,
  51 C     COMPLETENESS, OR USEFULNESS OF ANY INFORMATION, APPARATUS,
  52 C     PRODUCT, OR PROCESS DISCLOSED, OR REPRESENTS THAT ITS USE WOULD
  53 C     NOT INFRINGE PRIVATELY OWNED RIGHTS.
  54 C
  55 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  56 C
  57
  58       subroutine rsl_init_fortran ( nproc_all, nproc, myproc,
  59      $              nproc_min, nproc_maj, ndom )
  60       include 'rsl.inc'
  61
  62       rsl_nproc_all = nproc_all
  63       rsl_nproc     = nproc
  64       rsl_myproc    = myproc
  65       rsl_nproc_min = nproc_min
  66       rsl_nproc_maj = nproc_maj
  67       rsl_ndomains  = ndom
  68
  69       return
  70       end