*
* $Id: hmapm.F,v 1.2 1996/05/14 10:28:52 couet Exp $
*
* $Log: hmapm.F,v $
* Revision 1.2  1996/05/14 10:28:52  couet
* - Mods for ALPHA OSF
*
* Revision 1.1.1.1  1996/01/16 17:08:09  mclareni
* First import
*
*
#include "hbook/pilot.h"
*CMZ :  4.21/08 05/01/94  09.03.21  by  Rene Brun
*-- Author :    Fons Rademakers   20/03/91
*-- Modified:   Wojtek Burkot     01/03/92
      INTEGER FUNCTION HMAPM(MFILE, IBASE, IOFFST)
************************************************************************
*                                                                      *
* HMAPM                                                                *
*                                                                      *
* Create a global section. This routine causes the pages at ICOMAD     *
* to be mapped from file MFILE. MFILE must have been created in the    *
* /tmp directory. It returns in IOFFST the offset between ICOMAD and   *
* a base common IBASE (typically the PAWC). On successful completion   *
* this function returns 0. In case of an error -ERRNO is returned.     *
*                                                                      *
* HMAPM is an interface routine that calls the C routine HMAPI.        *
*                                                                      *
* After a global section has been created by HCREATEM, other           *
* processes can use the data in the global section via this function   *
* and HFREEM.                                                          *
*                                                                      *
************************************************************************
*
      CHARACTER*(*) MFILE
#if !defined(CERNLIB_ALPHA_OSF)
      INTEGER       ICOMAD(1), IBASE(1), HMAPI
      SAVE ICOMAD
#endif
#if defined(CERNLIB_ALPHA_OSF)
      INTEGER       IBASE(1), HMAPI
      INTEGER*8     ICOMAD(1)
      SAVE ICOMAD
#endif
*
#if defined(CERNLIB_BSD)||defined(CERNLIB_WINNT)
      MFLEN = LENOCC(MFILE)
      HMAPM = HMAPI(MFILE, MFLEN, IBASE, ICOMAD)
#endif
#if defined(CERNLIB_SYS5)
************************************************************************
*  modification: set ICOMAD in input to required starting address of   *
*  mapping. Actual mapping address will be returned in IOFFST.         *
*  This requires also a change in C routine HMAPI.                     *
*                                 02/03/1992    W.B.                   *
************************************************************************
      PARAMETER (MFEN=100000000)
      CALL UCTOH(MFILE,MKEY,4,4)
      ICOMAD(1) = 0
#endif
#if defined(CERNLIB_DECS)
      ICOMAD(1) = 4*LOCF(ICOMAD(1)) + MFEN
      ICOMAD(1) = ((ICOMAD(1)+4095)/4096)*4096
#endif
#if defined(CERNLIB_SGI)
      ICOMAD(1) = 4*LOCF(IBASE(1)) + MFEN
      ICOMAD(1) = ((ICOMAD(1)+4095)/4096)*4096
#endif
#if defined(CERNLIB_ALPHA_OSF)
      ICOMAD(1) = %loc(IBASE(1)) + MFEN
      ICOMAD(1) = ((ICOMAD(1)+8191)/8192)*8192
      HMAPM = HMAPI(MKEY, %val(ICOMAD(1)) )
#endif
#if defined(CERNLIB_SYS5) && !defined(CERNLIB_ALPHA_OSF)
      HMAPM = HMAPI(MKEY, ICOMAD)
#endif
#if !defined(CERNLIB_ALPHA_OSF)
      IOFFST = ICOMAD(1) - LOCF(IBASE(1))
#endif
#if defined(CERNLIB_ALPHA_OSF)
      IOFFST = ( ICOMAD(1) - %LOC(IBASE(1)) ) / 4
#endif
*
      END