allocation_err

INTERFACE:

   subroutine allocation_err( ier, routine_name, array_name, nsize )

DESCRIPTION:

Issue error message after non-zero return from an allocate statement.

ARGUMENTS:

     implicit none
     integer, intent(in) :: ier                   ! status from allocate statement
     character(len=*), intent(in) :: routine_name ! routine name that invoked allocate
     character(len=*), intent(in), optional :: array_name   ! array name
     integer, intent(in), optional :: nsize       ! size of attempted allocation

REVISION HISTORY:

   Created by Mariana Vertenstein