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 param 27 USE param1 28 USE funits 29 IMPLICIT NONE 30 !----------------------------------------------- 31 ! D u m m y A r g u m e n t s 32 !----------------------------------------------- 33 ! 34 ! Subroutine name 35 CHARACTER(LEN=*) Name 36 ! 37 ! Message 38 CHARACTER(LEN=*) LINE(*) 39 ! 40 ! Dimension of message array 41 INTEGER LMAX 42 ! 43 ! Index 44 INTEGER L 45 ! 46 !----------------------------------------------- 47 ! 48 49 CALL START_LOG 50 IF(DMP_LOG)WRITE (UNIT_LOG, 1000) NAME 51 DO L = 1, LMAX 52 IF(DMP_LOG)WRITE (UNIT_LOG, 1010) LINE(L) 53 END DO 54 IF(DMP_LOG)WRITE (UNIT_LOG, 1020) 55 CALL END_LOG 56 RETURN 57 1000 FORMAT(1X,70('*'),/,/,1X,'From : ',A) 58 1010 FORMAT(1X,A) 59 1020 FORMAT(/,/,1X,70('*')) 60 END SUBROUTINE WRITE_ERROR 61