libf/IOIPSL/errioipsl.f90

MODULE errioipsl

  ! From errioipsl.f90, v 2.0 2004/04/05 14:47:47 adm Exp $

CONTAINS

  SUBROUTINE histerr(plev, pcname, pstr1, pstr2, pstr3)

    !- INPUT
    !- plev   : Category of message to be reported to the user
    !-          1 = Note to the user
    !-          2 = Warning to the user
    !-          3 = Fatal error
    !- pcname : Name of subroutine which has called histerr
    !- pstr1   
    !- pstr2  : String containing the explanations to the user
    !- pstr3

    IMPLICIT NONE

    INTEGER :: plev
    CHARACTER(LEN=*), intent(in):: pcname, pstr1, pstr2, pstr3

    CHARACTER(LEN=30), DIMENSION(3) :: pemsg = &
         (/ "NOTE TO THE USER FROM ROUTINE ", &
         "WARNING FROM ROUTINE          ", &
         "FATAL ERROR FROM ROUTINE      " /)

    !---------------------------------------------------------------------

    IF ((plev >= 1).AND.(plev <= 3)) THEN
       WRITE(*, '("     ")')
       WRITE(*, '(A, " ", A)') TRIM(pemsg(plev)), TRIM(pcname)
       WRITE(*, '(" --> ", a)') pstr1
       WRITE(*, '(" --> ", a)') pstr2
       WRITE(*, '(" --> ", a)') pstr3
    ENDIF
    IF (plev == 3) THEN
       print *, 'Fatal error from IOIPSL'
       STOP 1
    ENDIF

  END SUBROUTINE histerr

END MODULE errioipsl
1	MODULE errioipsl
2
3	! From errioipsl.f90, v 2.0 2004/04/05 14:47:47 adm Exp $
4
5	CONTAINS
6
7	SUBROUTINE histerr(plev, pcname, pstr1, pstr2, pstr3)
8
9	!- INPUT
10	!- plev : Category of message to be reported to the user
11	!- 1 = Note to the user
12	!- 2 = Warning to the user
13	!- 3 = Fatal error
14	!- pcname : Name of subroutine which has called histerr
15	!- pstr1
16	!- pstr2 : String containing the explanations to the user
17	!- pstr3
18
19	IMPLICIT NONE
20
21	INTEGER :: plev
22	CHARACTER(LEN=*), intent(in):: pcname, pstr1, pstr2, pstr3
23
24	CHARACTER(LEN=30), DIMENSION(3) :: pemsg = &
25	(/ "NOTE TO THE USER FROM ROUTINE ", &
26	"WARNING FROM ROUTINE ", &
27	"FATAL ERROR FROM ROUTINE " /)
28
29	!---------------------------------------------------------------------
30
31	IF ((plev >= 1).AND.(plev <= 3)) THEN
32	WRITE(*, '(" ")')
33	WRITE(*, '(A, " ", A)') TRIM(pemsg(plev)), TRIM(pcname)
34	WRITE(*, '(" --> ", a)') pstr1
35	WRITE(*, '(" --> ", a)') pstr2
36	WRITE(*, '(" --> ", a)') pstr3
37	ENDIF
38	IF (plev == 3) THEN
39	print *, 'Fatal error from IOIPSL'
40	STOP 1
41	ENDIF
42
43	END SUBROUTINE histerr
44
45	END MODULE errioipsl