Note on urgent version called from xop
======================================


in the line 132 I placed
        IF(ITYPE.EQ.1)WRITE(6,1000)PERIOD,KX,KY,phase,N
                                                ^^^^^
in order to be an output file with the same variables for the
standard and helical undulator. For the helical we still have:
        IF(ITYPE.EQ.2)WRITE(6,1001)PERIOD,kx,KY,PHASE,N

MSR  Oct 1994


SPLITTED ONE LINE (GIVING PROBLEMS IN HP)
expgi.srio<78> diff UU.F urgent.f 
1232,1234c1232
<         IF(IHARM.GT.0.OR.IDEBUG.EQ.1)THEN
<           WRITE(6,1300)XPMM,YPMM,E,DELTAP,DELTAF
<         ENDIF
---
>
IF(IHARM.GT.0.OR.IDEBUG.EQ.1)WRITE(6,1300)XPMM,YPMM,E,DELTAP,DELTAF
The corrected source is urgent.f (not URGENT.F)
MSR 97/10/07


On 17th July 2000 version 1.5 of WS from R. Dejus has been checked in.
This means that the source code is not longer compatible with Macs.
