too_much_memory Function

public function too_much_memory(expression)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: expression

Return Value logical


Contents

Source Code

too_much_memory

Source Code

function too_much_memory(expression)
integer,intent(in) :: expression
logical            :: too_much_memory

! ident_35="@(#) too much memory required"

   G_ERR=expression
   if(G_ERR.gt.0)then
      call mat_err(17)
      too_much_memory=.true.
   else
      too_much_memory=.false.
   endif

end function too_much_memory