source: LMDZ6/branches/cirrus/libf/misc/fdump.F @ 5444

Last change on this file since 5444 was 1907, checked in by lguez, 11 years ago

Added a copyright property to every file of the distribution, except
for the fcm files (which have their own copyright). Use svn propget on
a file to see the copyright. For instance:

$ svn propget copyright libf/phylmd/physiq.F90
Name of program: LMDZ
Creation date: 1984
Version: LMDZ5
License: CeCILL version 2
Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
See the license file in the root directory

Also added the files defining the CeCILL version 2 license, in French
and English, at the top of the LMDZ tree.

  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
File size: 1.0 KB
Line 
1*DECK FDUMP
2      SUBROUTINE FDUMP
3C***BEGIN PROLOGUE  FDUMP
4C***PURPOSE  Symbolic dump (should be locally written).
5C***LIBRARY   SLATEC (XERROR)
6C***CATEGORY  R3
7C***TYPE      ALL (FDUMP-A)
8C***KEYWORDS  ERROR, XERMSG
9C***AUTHOR  Jones, R. E., (SNLA)
10C***DESCRIPTION
11C
12C        ***Note*** Machine Dependent Routine
13C        FDUMP is intended to be replaced by a locally written
14C        version which produces a symbolic dump.  Failing this,
15C        it should be replaced by a version which prints the
16C        subprogram nesting list.  Note that this dump must be
17C        printed on each of up to five files, as indicated by the
18C        XGETUA routine.  See XSETUA and XGETUA for details.
19C
20C     Written by Ron Jones, with SLATEC Common Math Library Subcommittee
21C
22C***REFERENCES  (NONE)
23C***ROUTINES CALLED  (NONE)
24C***REVISION HISTORY  (YYMMDD)
25C   790801  DATE WRITTEN
26C   861211  REVISION DATE from Version 3.2
27C   891214  Prologue converted to Version 4.0 format.  (BAB)
28C***END PROLOGUE  FDUMP
29C***FIRST EXECUTABLE STATEMENT  FDUMP
30      RETURN
31      END
Note: See TracBrowser for help on using the repository browser.