write_error.f

Go to the documentation of this file.

!vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC
!                                                                      C
!  Module name: Write_error(Name, Line, L)                             C                     C
!  Purpose: Write an error message                                     C
!                                                                      C
!                                                                      C
!  Author: M. Syamlal                                 Date: 16-MAY-96  C
!  Reviewer:                                          Date:            C
!                                                                      C
!                                                                      C
!  Literature/Document References:                                     C
!                                                                      C
!  Variables referenced:                                               C
!  Variables modified:                                                 C
!                                                                      C
!  Local variables:                                                    C
!                                                                      C
!^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C
!
      SUBROUTINE write_error(NAME, LINE, LMAX)
!...Translated by Pacific-Sierra Research VAST-90 2.06G5  12:17:31  12/09/98
!...Switches: -xf
!-----------------------------------------------
!   M o d u l e s
!-----------------------------------------------
      USE funits
      USE machine, only: start_log, end_log
      USE param
      USE param1
      IMPLICIT NONE
!-----------------------------------------------
!   D u m m y   A r g u m e n t s
!-----------------------------------------------
!
!                      Subroutine name
      CHARACTER(LEN=*)    Name
!
!                      Message
      CHARACTER(LEN=*)    LINE(*)
!
!                      Dimension of message array
      INTEGER          LMAX
!
!                      Index
      INTEGER          L
!
!-----------------------------------------------
!

      CALL start_log
      IF(dmp_log)WRITE (unit_log, 1000) name
      DO l = 1, lmax
         IF(dmp_log)WRITE (unit_log, 1010) line(l)
      END DO
      IF(dmp_log)WRITE (unit_log, 1020)
      CALL end_log
      RETURN
 1000 FORMAT(1x,70('*'),/,/,1x,'From : ',a)
 1010 FORMAT(1x,a)
 1020 FORMAT(/,/,1x,70('*'))
      END SUBROUTINE write_error