{ **************************************************************************** } { *** Command line reporter *** } { *** Called with 1 parameters which was *** } { *** 1: input.dat *** } { *** OUTPUT FILE: input.fox *** } { **************************************************************************** } INCLUDE 'COSY' ; PROCEDURE MAIN ; VARIABLE ENERGY 1; VARIABLE MASS 1; VARIABLE CHARGE 1; VARIABLE X 1; VARIABLE A 1; VARIABLE Y 1; VARIABLE B 1; VARIABLE TXA 1; VARIABLE TXB 1; VARIABLE EX 1; VARIABLE TYA 1; VARIABLE TYB 1; VARIABLE EY 1; VARIABLE D 1; VARIABLE G 1; VARIABLE I1 1; VARIABLE I2 1; VARIABLE DL0 1; VARIABLE DL1 1; VARIABLE MQ1 1; VARIABLE MQ2 1; VARIABLE MH1 1; VARIABLE MH2 1; VARIABLE HC1 1; OV 5 3 1; {SN Example_GICOSY_FILE } {*************************************************************} { This is an example GICOSY file obtained from GSI, Darmstadt} {*************************************************************} ENERGY := 17000 ; MASS := 20 ; CHARGE := 10 ; RP ENERGY MASS*PARA(1) CHARGE ; {OC N M L N } FR 3; {CM 2 } X := 1.5E-2 ; A := 20.0E-3 ; Y := 1.0E-2 ; B := 20.0E-3 ; TXA := 0 ; TXB := X/A ; EX := X*A ; TYA := 0 ; TYB := Y/B ; EY := Y*B ; {TX TXA TXB EX } {TY TYA TYB EY } D := 0.025 ; G := 0.0 ; {DP 0.0 D } CO 1; {OO 1 } I1 := 6.5 ; I2 := 6.5 ; DL0 := 1.370282460 ; DL1 := 1.238724022 ; MQ1 := -0.7273705965 ; MQ2 := 0.6394815374 ; MH1 := -0.1185418652 ; MH2 := -0.2950535361 ; HC1 := -7.814452692 ; { System starts here} UM ; DL 4.0 ; {FF 1 } MQ 0.9 MQ1 0.15 ; {FF 1 } DL DL0 ; {FF 1 } M5 1.0 MQ2 0 -0.038 0 0 0.3 ; {FF 1 } DL 0.5 ; MH 0.6 MH1 0.3 ; DL 0.5 ; {FF 1 } IF (I1<0) ; CB ; ENDIF; DI ABS(I1) 45 0.07 0 0 0 0 ; IF (I1<0) ; CB ; ENDIF; {$CONVERTER_MSG: COULD NOT CONVERT!!!!} {$**$-> MS I2 45 0.07 0 HC1 ;} {FF 1 } DL 0.5 ; MH 0.6 MH2 0.3 ; DL DL1 ; { Plotting} {DB 0.5 0.5 100 3 5 1 3 3 5 4 } {DS 0.5 5 80 3 5 1 3 1 1 } {END} {END} ENDPROCEDURE ; MAIN ; END ;