source: LMDZ6/branches/Amaury_dev/libf/misc/fdump.f90 @ 5110

Last change on this file since 5110 was 5105, checked in by abarral, 4 months ago

Replace 1DUTILS.h by module lmdz_1dutils.f90
Replace 1DConv.h by module lmdz_old_1dconv.f90 (it's only used by old_* files)
Convert *.F to *.f90
Fix gradsdef.h formatting
Remove unnecessary "RETURN" at the end of functions/subroutines
  • 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.1 KB
Line 
1!DECK FDUMP
2SUBROUTINE FDUMP
3  !***BEGIN PROLOGUE  FDUMP
4  !***PURPOSE  Symbolic dump (should be locally written).
5  !***LIBRARY   SLATEC (XERROR)
6  !***CATEGORY  R3
7  !***TYPE      ALL (FDUMP-A)
8  !***KEYWORDS  ERROR, XERMSG
9  !***AUTHOR  Jones, R. E., (SNLA)
10  !***DESCRIPTION
11  !
12  !    ***Note*** Machine Dependent Routine
13  !    FDUMP is intended to be replaced by a locally written
14  !    version which produces a symbolic dump.  Failing this,
15  !    it should be replaced by a version which prints the
16  !    subprogram nesting list.  Note that this dump must be
17  !    printed on each of up to five files, as indicated by the
18  !    XGETUA routine.  See XSETUA and XGETUA for details.
19  !
20  ! Written by Ron Jones, with SLATEC Common Math Library Subcommittee
21  !
22  !***REFERENCES  (NONE)
23  !***ROUTINES CALLED  (NONE)
24  !***REVISION HISTORY  (YYMMDD)
25  !   790801  DATE WRITTEN
26  !   861211  REVISION DATE from Version 3.2
27  !   891214  Prologue converted to Version 4.0 format.  (BAB)
28  !***END PROLOGUE  FDUMP
29  !***FIRST EXECUTABLE STATEMENT  FDUMP
30
31END SUBROUTINE FDUMP
Note: See TracBrowser for help on using the repository browser.