1 !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC 2 ! C 3 ! Module name: Write_error(Name, Line, L) C C 4 ! Purpose: Write an error message C 5 ! C 6 ! C 7 ! Author: M. Syamlal Date: 16-MAY-96 C 8 ! Reviewer: Date: C 9 ! C 10 ! C 11 ! Literature/Document References: C 12 ! C 13 ! Variables referenced: C 14 ! Variables modified: C 15 ! C 16 ! Local variables: C 17 ! C 18 !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C 19 ! 20 SUBROUTINE WRITE_ERROR(NAME, LINE, LMAX) 21 !...Translated by Pacific-Sierra Research VAST-90 2.06G5 12:17:31 12/09/98 22 !...Switches: -xf 23 !----------------------------------------------- 24 ! M o d u l e s 25 !----------------------------------------------- 26 USE funits 27 USE machine, only: start_log, end_log 28 USE param 29 USE param1 30 IMPLICIT NONE 31 !----------------------------------------------- 32 ! D u m m y A r g u m e n t s 33 !----------------------------------------------- 34 ! 35 ! Subroutine name 36 CHARACTER(LEN=*) Name 37 ! 38 ! Message 39 CHARACTER(LEN=*) LINE(*) 40 ! 41 ! Dimension of message array 42 INTEGER LMAX 43 ! 44 ! Index 45 INTEGER L 46 ! 47 !----------------------------------------------- 48 ! 49 50 CALL START_LOG 51 IF(DMP_LOG)WRITE (UNIT_LOG, 1000) NAME 52 DO L = 1, LMAX 53 IF(DMP_LOG)WRITE (UNIT_LOG, 1010) LINE(L) 54 END DO 55 IF(DMP_LOG)WRITE (UNIT_LOG, 1020) 56 CALL END_LOG 57 RETURN 58 1000 FORMAT(1X,70('*'),/,/,1X,'From : ',A) 59 1010 FORMAT(1X,A) 60 1020 FORMAT(/,/,1X,70('*')) 61 END SUBROUTINE WRITE_ERROR 62