Commits

Anonymous committed 54273ec

use f-hepevt instead of herwig65 to get the proper HEPEVT symbol

Comments (0)

Files changed (3)

 package hepevt
 
 /*
- #cgo LDFLAGS: -lc-hepevt
- #cgo LDFLAGS: -lgfortran 
- #cgo LDFLAGS: -lherwig65
+ #cgo LDFLAGS: -lc-hepevt -lf-hepevt -lgfortran
 
  #include "c-hepevt/hepevt.h"
 
 /* VHEP  [IHEP][3] - production time                      */
 /*========================================================*/
 const nmxhep = 4000
-type event struct {
+type Event struct {
 	Nevhep int
 	Nhep   int
 	Isthep []int
 	Encode(v interface{}) os.Error
 }
 
-func WriteTo(enc Encoder) {
-	evt := event{Nevhep: EventNumber(),	Nhep: NumberEntries()}
-	// evt.Isthep = make([nmxhep]int)
-	// evt.Idhep  = make([nmxhep]int, evt.Nhep)
-	// evt.Jmohep = make([nmxhep][2]int, evt.Nhep)
-	// evt.Jdahep = make([nmxhep][2]int, evt.Nhep)
-	// evt.Phep =   make([nmxhep][5]float64, evt.Nhep)
-	// evt.Vhep =   make([nmxhep][4]float64, evt.Nhep)
+func GetEvent() *Event {
+	evt := &Event{Nevhep: EventNumber(),	Nhep: NumberEntries()}
+	evt.Isthep = make([]int, evt.Nhep)
+	evt.Idhep  = make([]int, evt.Nhep)
+	evt.Jmohep = make([][2]int, evt.Nhep)
+	evt.Jdahep = make([][2]int, evt.Nhep)
+	evt.Phep =   make([][5]float64, evt.Nhep)
+	evt.Vhep =   make([][4]float64, evt.Nhep)
 
 	for i:=0; i != evt.Nhep; i++ {
 		j := 1 + i // fortran index...
 		evt.Vhep[i][2] = Z(j)
 		evt.Vhep[i][3] = T(j)
 	}
+	return evt
+}
+
+func WriteTo(enc Encoder) {
+	evt := GetEvent()
 	//fmt.Printf("--- %v ---\n",evt)
 
 	err := enc.Encode(evt)
         source='pkg/hepevt.go pkg/hepevt_io.go',
         target='hepevt',
         use = [
-            'herwig65',
+            'f-hepevt',
             'c-hepevt',
-            'c-herwig',
             ],
         )
 
-
-    ctx(
-        features = 'go goprogram uselib',
-        source   = 'cmd/test-hepevt.go',
-        target   = 'test-hepevt',
-        use      = ['go-hepevt',],
-        )
+    if 0:
+        ctx(
+            features = 'go goprogram uselib',
+            source   = 'cmd/test-hepevt.go',
+            target   = 'test-hepevt',
+            use      = ['go-hepevt','f-hepevt','c-hepevt',],
+            )