Newer
Older
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
!***********************************************************************
!
!
SUBROUTINE error(message)
!
!
!***********************************************************************
!
!
! Subroutine to terminate the program as the result of a fatal
! error, close the output files, and dump timing information.
!
!
!=======================================================================
USE fly_h
implicit none
INTEGER IZERO
! Declaration of local variables.
! -------------------------------
CHARACTER*(*) message
!=======================================================================
!
! Write error message to the log file.
! ------------------------------------
WRITE(uterm,40)
40 FORMAT(/,1x,72('*'))
WRITE(uterm,*) 'pe = ',me,' ',message
!-----------------------------------------------------------------------
! Stop : terminate the
! simulation.
!-----------------------------------------------------------------------
ierror=1/pos_cell(1,nc_loc) !force abort to the run and core dump
STOP
END