endrun.F90

SUBROUTINE endrun
  !   Terminate the run

  USE basic
  use prec_const
  IMPLICIT NONE


  IF( nlend ) THEN
     !----------------------------------------------------------------------
     !              1.   Normal end of run
     IF(my_id .EQ. 0) WRITE(*,'(/a)') '   Normal exit'

     !----------------------------------------------------------------------
     !              2.   Abnormal exit
  ELSE
     WRITE(*,'(/a)') '   Abnormal exit'
  END IF


END SUBROUTINE endrun