[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

      PRINT *, '==> FLUKA_OPENINP(',IOUNIT,',',FILNAM,')'

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

      PRINT *, '<== FLUKA_OPENINP(',IOUNIT,',',FILNAM,')'

      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

      PRINT *, '==> FLUKA_OPENOUT(',IOUNIT,',',FILNAM,')'

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

      PRINT *, '<== FLUKA_OPENOUT(',IOUNIT,',',FILNAM,')'

      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

      PRINT *, '==> FLUKA_CLOSEINP(',IOUNIT,')'

      CLOSE (UNIT=IOUNIT)

      PRINT *, '<== FLUKA_CLOSEINP(',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
	24	PRINT *, '==> FLUKA_OPENINP(',IOUNIT,',',FILNAM,')'
	25
	26	OPEN (UNIT=IOUNIT, FILE=FILNAM, STATUS="OLD")
	27
	28	PRINT *, '<== FLUKA_OPENINP(',IOUNIT,',',FILNAM,')'
	29
	30	RETURN
	31	9999 END
	32
8e5bf079	33	SUBROUTINE FLUKA_OPENOUT(IOUNIT,FILNAM)
	34	*
	35	----------------------------------------------------------------------
	36	* Opens a file with a given unit number
	37	*
	38	*
	39	* IOUNIT: Input unit to be assiged to the file
	40	* FILNAM: Name of the file
	41	*
	42	----------------------------------------------------------------------
	43	*
	44
	45	IMPLICIT NONE
	46	INTEGER IOUNIT
	47	CHARACTER() FILNAM
	48
	49	PRINT *, '==> FLUKA_OPENOUT(',IOUNIT,',',FILNAM,')'
	50
	51	OPEN (UNIT=IOUNIT, FILE=FILNAM, STATUS="UNKNOWN")
	52
	53	PRINT *, '<== FLUKA_OPENOUT(',IOUNIT,',',FILNAM,')'
	54
	55	RETURN
	56	9999 END
b9d0a01d	57
	58
	59	*
	60	=== FLUKA_CLOSEINP ====================================================
	61	*
	62	SUBROUTINE FLUKA_CLOSEINP(IOUNIT)
	63	*
	64	----------------------------------------------------------------------
	65	* Closes the given unit number
	66	*
	67	*
	68	* IOUNIT: Input unit to be assiged to the file
	69	*
	70	----------------------------------------------------------------------
	71	*
	72	IMPLICIT NONE
	73	INTEGER IOUNIT
	74
	75	PRINT *, '==> FLUKA_CLOSEINP(',IOUNIT,')'
	76
	77	CLOSE (UNIT=IOUNIT)
	78
	79	PRINT *, '<== FLUKA_CLOSEINP(',IOUNIT,')'
	80	RETURN
	81	9999 END