--- trunk/IOIPSL/errioipsl.f	2015/02/27 16:44:07	131
+++ trunk/IOIPSL/errioipsl.f	2015/03/20 16:31:06	132
@@ -1,26 +1,26 @@
 MODULE errioipsl
 
-  ! From errioipsl.f90, v 2.0 2004/04/05 14:47:47 adm Exp $
+  ! From errioipsl.f90, version 2.0, 2004/04/05 14:47:47
+
+  IMPLICIT NONE
 
 CONTAINS
 
   SUBROUTINE histerr(plev, pcname, pstr1, pstr2, pstr3)
 
-    !- INPUT
+    INTEGER, intent(in):: plev
     !- 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
+    CHARACTER(LEN=*), intent(in):: pcname 
+    ! name of subroutine which has called histerr
 
-    INTEGER :: plev
-    CHARACTER(LEN=*), intent(in):: pcname, pstr1, pstr2, pstr3
+    CHARACTER(LEN=*), intent(in):: pstr1, pstr2, pstr3
+    ! strings containing the explanations to the user
 
+    ! Local:
     CHARACTER(LEN=30), DIMENSION(3) :: pemsg = &
          (/ "NOTE TO THE USER FROM ROUTINE ", &
          "WARNING FROM ROUTINE          ", &
@@ -29,11 +29,10 @@
     !---------------------------------------------------------------------
 
     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
+       print '(A, " ", A)', TRIM(pemsg(plev)), TRIM(pcname)
+       print '(" --> ", a)', pstr1
+       print '(" --> ", a)', pstr2
+       print '(" --> ", a)', pstr3
     ENDIF
     IF (plev == 3) THEN
        print *, 'Fatal error from IOIPSL'