C****************************************************************
C     DAREALLOS
C     FORTRAN subroutine version of DAREALLO
C++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
      subroutine dareallos(numbel,number,iadres)
      integer dareallo
C----------------------------------------------------------------
C     NUMBEL:  IN size of area.
C     NUMBER:  OUT area identif number.
C     IADRES:  OUT area address.
C----------------------------------------------------------------
      iret = dareallo(%val(numbel),number,iadres)
      if(iret.eq.0) return
      stop
      end


C****************************************************************
C     DAREDEALS
C     FORTRAN subroutine version of DAREDEAL
C++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
      subroutine daredeals(number,iadres)
      integer daredeal
C----------------------------------------------------------------
C     NUMBER:  IN area identif number.
C     IADRES:  IN area address.
C----------------------------------------------------------------
      iret = daredeal(number,iadres)
      return
      end

