Changeset 5105 for LMDZ6/branches/Amaury_dev/libf/misc/xercnt.f90

Timestamp:

Jul 23, 2024, 7:14:34 PM (8 weeks ago)

Author:

abarral

Message:

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

File:

• LMDZ6/branches/Amaury_dev/libf/misc/xercnt.f90 (moved) (moved from LMDZ6/branches/Amaury_dev/libf/misc/xercnt.F) (1 diff)

LMDZ6/branches/Amaury_dev/libf/misc/xercnt.f90

@@ -1 @@
-*DECK XERCNT
-      SUBROUTINE XERCNT (LIBRAR, SUBROU, MESSG, NERR, LEVEL, KONTRL)
-      IMPLICIT NONE
-C***BEGIN PROLOGUE  XERCNT
-C***SUBSIDIARY
-C***PURPOSE  Allow user control over handling of errors.
-C***LIBRARY   SLATEC (XERROR)
-C***CATEGORY  R3C
-C***TYPE      ALL (XERCNT-A)
-C***KEYWORDS  ERROR, XERROR
-C***AUTHOR  Jones, R. E., (SNLA)
-C***DESCRIPTION
-C
-C     Abstract
-C        Allows user control over handling of individual errors.
-C        Just after each message is recorded, but before it is
-C        processed any further (i.e., before it is printed or
-C        a decision to abort is made), a CALL is made to XERCNT.
-C        If the user has provided his own version of XERCNT, he
-C        can then override the value of KONTROL used in processing
-C        this message by redefining its value.
-C        KONTRL may be set to any value from -2 to 2.
-C        The meanings for KONTRL are the same as in XSETF, except
-C        that the value of KONTRL changes only for this message.
-C        If KONTRL is set to a value outside the range from -2 to 2,
-C        it will be moved back into that range.
-C
-C     Description of Parameters
-C
-C      --Input--
-C        LIBRAR - the library that the routine is in.
-C        SUBROU - the SUBROUTINE that XERMSG is being called from
-C        MESSG  - the first 20 characters of the error message.
-C        NERR   - same as in the CALL to XERMSG.
-C        LEVEL  - same as in the CALL to XERMSG.
-C        KONTRL - the current value of the control flag as set
-C                 by a CALL to XSETF.
-C
-C      --Output--
-C        KONTRL - the new value of KONTRL.  If KONTRL is not
-C                 defined, it will remain at its original value.
-C                 This changed value of control affects only
-C                 the current occurrence of the current message.
-C
-C***REFERENCES  R. E. Jones and D. K. Kahaner, XERROR, the SLATEC
-C                 Error-handling Package, SAND82-0800, Sandia
-C                 Laboratories, 1982.
-C***ROUTINES CALLED  (NONE)
-C***REVISION HISTORY  (YYMMDD)
-C   790801  DATE WRITTEN
-C   861211  REVISION DATE from Version 3.2
-C   891214  Prologue converted to Version 4.0 format.  (BAB)
-C   900206  Routine changed from user-callable to subsidiary.  (WRB)
-C   900510  Changed calling sequence to include LIBRARY and SUBROUTINE
-C           names, changed routine name from XERCTL to XERCNT.  (RWC)
-C   920501  Reformatted the REFERENCES section.  (WRB)
-C***END PROLOGUE  XERCNT
-      CHARACTER*(*) LIBRAR, SUBROU, MESSG
-      INTEGER NERR, LEVEL, KONTRL
-C***FIRST EXECUTABLE STATEMENT  XERCNT
-      RETURN
-      END
+!DECK XERCNT
+SUBROUTINE XERCNT (LIBRAR, SUBROU, MESSG, NERR, LEVEL, KONTRL)
+  IMPLICIT NONE
+  !***BEGIN PROLOGUE  XERCNT
+  !***SUBSIDIARY
+  !***PURPOSE  Allow user control over handling of errors.
+  !***LIBRARY   SLATEC (XERROR)
+  !***CATEGORY  R3C
+  !***TYPE      ALL (XERCNT-A)
+  !***KEYWORDS  ERROR, XERROR
+  !***AUTHOR  Jones, R. E., (SNLA)
+  !***DESCRIPTION
+  !
+  ! Abstract
+  !    Allows user control over handling of individual errors.
+  !    Just after each message is recorded, but before it is
+  !    processed any further (i.e., before it is printed or
+  !    a decision to abort is made), a CALL is made to XERCNT.
+  !    If the user has provided his own version of XERCNT, he
+  !    can then override the value of KONTROL used in processing
+  !    this message by redefining its value.
+  !    KONTRL may be set to any value from -2 to 2.
+  !    The meanings for KONTRL are the same as in XSETF, except
+  !    that the value of KONTRL changes only for this message.
+  !    If KONTRL is set to a value outside the range from -2 to 2,
+  !    it will be moved back into that range.
+  !
+  ! Description of Parameters
+  !
+  !  --Input--
+  !    LIBRAR - the library that the routine is in.
+  !    SUBROU - the SUBROUTINE that XERMSG is being called from
+  !    MESSG  - the first 20 characters of the error message.
+  !    NERR   - same as in the CALL to XERMSG.
+  !    LEVEL  - same as in the CALL to XERMSG.
+  !    KONTRL - the current value of the control flag as set
+  !             by a CALL to XSETF.
+  !
+  !  --Output--
+  !    KONTRL - the new value of KONTRL.  If KONTRL is not
+  !             defined, it will remain at its original value.
+  !             This changed value of control affects only
+  !             the current occurrence of the current message.
+  !
+  !***REFERENCES  R. E. Jones and D. K. Kahaner, XERROR, the SLATEC
+  !             Error-handling Package, SAND82-0800, Sandia
+  !             Laboratories, 1982.
+  !***ROUTINES CALLED  (NONE)
+  !***REVISION HISTORY  (YYMMDD)
+  !   790801  DATE WRITTEN
+  !   861211  REVISION DATE from Version 3.2
+  !   891214  Prologue converted to Version 4.0 format.  (BAB)
+  !   900206  Routine changed from user-callable to subsidiary.  (WRB)
+  !   900510  Changed calling sequence to include LIBRARY and SUBROUTINE
+  !       names, changed routine name from XERCTL to XERCNT.  (RWC)
+  !   920501  Reformatted the REFERENCES section.  (WRB)
+  !***END PROLOGUE  XERCNT
+  CHARACTER(len=*) :: LIBRAR, SUBROU, MESSG
+  INTEGER :: NERR, LEVEL, KONTRL
+  !***FIRST EXECUTABLE STATEMENT  XERCNT
+
+END SUBROUTINE XERCNT