[u/mrichter/AliRoot.git] / TFluka / FLUKA_input.f

*======================================================================*
* Routines to open and close a given file with a given FORTRAN unit    *
* from the C++ world                                                   *
*======================================================================*
*
*=== FLUKA_OPENINP ====================================================*
*
      SUBROUTINE FLUKA_OPENINP(IOUNIT,FILNAM)
*
*----------------------------------------------------------------------*
* Opens a file with a given unit number
*
*
* IOUNIT: Input unit to be assiged to the file
* FILNAM: Name of the file
*
*----------------------------------------------------------------------*
*

      IMPLICIT NONE
      INTEGER IOUNIT
      CHARACTER*(*) FILNAM

      OPEN (UNIT=IOUNIT, FILE=FILNAM, STATUS="OLD")
      RETURN
 9999 END

      SUBROUTINE FLUKA_OPENOUT(IOUNIT,FILNAM)
*
*----------------------------------------------------------------------*
* Opens a file with a given unit number
*
*
* IOUNIT: Input unit to be assiged to the file
* FILNAM: Name of the file
*
*----------------------------------------------------------------------*
*

      IMPLICIT NONE
      INTEGER IOUNIT
      CHARACTER*(*) FILNAM

      OPEN (UNIT=IOUNIT, FILE=FILNAM, STATUS="UNKNOWN")

      RETURN
 9999 END


*
*=== FLUKA_CLOSEINP ====================================================*
*
      SUBROUTINE FLUKA_CLOSEINP(IOUNIT)
*
*----------------------------------------------------------------------*
* Closes the given unit number
*
*
* IOUNIT: Input unit to be assiged to the file
*
*----------------------------------------------------------------------*
*
      IMPLICIT NONE
      INTEGER IOUNIT


      CLOSE (UNIT=IOUNIT)

      RETURN
 9999 END
Commit	Line	Data
b9d0a01d	1	======================================================================
	2	* Routines to open and close a given file with a given FORTRAN unit *
	3	* from the C++ world *
	4	======================================================================
	5	*
	6	=== FLUKA_OPENINP ====================================================
	7	*
	8	SUBROUTINE FLUKA_OPENINP(IOUNIT,FILNAM)
	9	*
	10	----------------------------------------------------------------------
	11	* Opens a file with a given unit number
	12	*
	13	*
	14	* IOUNIT: Input unit to be assiged to the file
	15	* FILNAM: Name of the file
	16	*
	17	----------------------------------------------------------------------
	18	*
	19
	20	IMPLICIT NONE
	21	INTEGER IOUNIT
	22	CHARACTER() FILNAM
	23
b9d0a01d	24	OPEN (UNIT=IOUNIT, FILE=FILNAM, STATUS="OLD")
b9d0a01d	25	RETURN
	26	9999 END
	27
8e5bf079	28	SUBROUTINE FLUKA_OPENOUT(IOUNIT,FILNAM)
	29	*
	30	----------------------------------------------------------------------
	31	* Opens a file with a given unit number
	32	*
	33	*
	34	* IOUNIT: Input unit to be assiged to the file
	35	* FILNAM: Name of the file
	36	*
	37	----------------------------------------------------------------------
	38	*
	39
	40	IMPLICIT NONE
	41	INTEGER IOUNIT
	42	CHARACTER() FILNAM
	43
8e5bf079	44	OPEN (UNIT=IOUNIT, FILE=FILNAM, STATUS="UNKNOWN")
8e5bf079	45
8e5bf079	46	RETURN
8e5bf079	47	9999 END
b9d0a01d	48
	49
	50	*
	51	=== FLUKA_CLOSEINP ====================================================
	52	*
	53	SUBROUTINE FLUKA_CLOSEINP(IOUNIT)
	54	*
	55	----------------------------------------------------------------------
	56	* Closes the given unit number
	57	*
	58	*
	59	* IOUNIT: Input unit to be assiged to the file
	60	*
	61	----------------------------------------------------------------------
	62	*
	63	IMPLICIT NONE
	64	INTEGER IOUNIT
	65
b9d0a01d	66
	67	CLOSE (UNIT=IOUNIT)
	68
b9d0a01d	69	RETURN
b9d0a01d	70	9999 END