endrun.F90

SUBROUTINE endrun
  !   Terminate the run

  USE basic
  use prec_const
  IMPLICIT NONE


  IF( nlend ) THEN
     !----------------------------------------------------------------------
     !              1.   Normal end of run
     CALL speak('   Normal exit')

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


END SUBROUTINE endrun