[u/mrichter/AliRoot.git] / GEANT321 / block / fdpree.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1995/10/24 10:19:36  cernlib
* Geant
*
*
#include "geant321/pilot.h"
*CMZ :  3.21/02 29/03/94  15.41.45  by  S.Giani
*-- Author :
*=== bdpree ===========================================================*
*
      SUBROUTINE FDPREE
 
#include "geant321/dblprc.inc"
#include "geant321/dimpar.inc"
#include "geant321/iounit.inc"
*
*----------------------------------------------------------------------*
*                                                                      *
*     Created on 16 september 1991 by    Alfredo Ferrari & Paola Sala  *
*                                                   Infn - Milan       *
*                                                                      *
*     Last change on 23-feb-93     by    Alfredo Ferrari               *
*                                                                      *
*                                                                      *
*----------------------------------------------------------------------*
*
#include "geant321/nucgeo.inc"
#include "geant321/nuclev.inc"
      LOGICAL LABRS1,LELST1,LINEL1, LCHEX1, LBSRP1, LABST1
      DIMENSION JUSNU1(160,2), MAGNU1(8)
*
*
      DATA LABRS1, LELST1, LINEL1, LCHEX1, LBSRP1, LABST1 / 6*.FALSE. /
      DATA POTBA1 / POTBA0 /, POTME1 / POTME0 /, WLLRE1 / 0.D+00 /
      DATA JUSNU1 / 320 * 0 /, INUCL1 / 1 /, IEVPR1 / 0 /
      DATA MAGNU1 / 2, 8, 20, 28, 50, 82, 126, 160 /
*
      LABRST = LABRS1
      LELSTC = LELST1
      LINELS = LINEL1
      LCHEXC = LCHEX1
      LABSRP = LBSRP1
      LABSTH = LABST1
*
      POTBAR = POTBA1
      POTMES = POTME1
      WLLRES = WLLRE1
*
      DO 10 I=1,160
        JUSNUC(I,1) = JUSNU1(I,1)
        JUSNUC(I,2) = JUSNU1(I,2)
  10  CONTINUE
      INUCLV = INUCL1
      IEVPRE = IEVPR1
*
      DO 20 I=1,8
        MAGNUM(I) = MAGNU1(I)
 20   CONTINUE
*=== End of Block Data Bdpree =========================================*
      END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1995/10/24 10:19:36 cernlib
	6	* Geant
	7	*
	8	*
	9	#include "geant321/pilot.h"
	10	*CMZ : 3.21/02 29/03/94 15.41.45 by S.Giani
	11	*-- Author :
	12	=== bdpree ===========================================================
	13	*
	14	SUBROUTINE FDPREE
	15
	16	#include "geant321/dblprc.inc"
	17	#include "geant321/dimpar.inc"
	18	#include "geant321/iounit.inc"
	19	*
	20	----------------------------------------------------------------------
	21	* *
	22	* Created on 16 september 1991 by Alfredo Ferrari & Paola Sala *
	23	* Infn - Milan *
	24	* *
	25	* Last change on 23-feb-93 by Alfredo Ferrari *
	26	* *
	27	* *
	28	----------------------------------------------------------------------
	29	*
	30	#include "geant321/nucgeo.inc"
	31	#include "geant321/nuclev.inc"
	32	LOGICAL LABRS1,LELST1,LINEL1, LCHEX1, LBSRP1, LABST1
	33	DIMENSION JUSNU1(160,2), MAGNU1(8)
	34	*
	35	*
	36	DATA LABRS1, LELST1, LINEL1, LCHEX1, LBSRP1, LABST1 / 6*.FALSE. /
	37	DATA POTBA1 / POTBA0 /, POTME1 / POTME0 /, WLLRE1 / 0.D+00 /
	38	DATA JUSNU1 / 320 * 0 /, INUCL1 / 1 /, IEVPR1 / 0 /
	39	DATA MAGNU1 / 2, 8, 20, 28, 50, 82, 126, 160 /
	40	*
	41	LABRST = LABRS1
	42	LELSTC = LELST1
	43	LINELS = LINEL1
	44	LCHEXC = LCHEX1
	45	LABSRP = LBSRP1
	46	LABSTH = LABST1
	47	*
	48	POTBAR = POTBA1
	49	POTMES = POTME1
	50	WLLRES = WLLRE1
	51	*
	52	DO 10 I=1,160
	53	JUSNUC(I,1) = JUSNU1(I,1)
	54	JUSNUC(I,2) = JUSNU1(I,2)
	55	10 CONTINUE
	56	INUCLV = INUCL1
	57	IEVPRE = IEVPR1
	58	*
	59	DO 20 I=1,8
	60	MAGNUM(I) = MAGNU1(I)
	61	20 CONTINUE
	62	=== End of Block Data Bdpree =========================================
	63	END