1***********************************************************************
2*     X-DIFFERENTIAL TRANSFORMATION FOR SHLBWM
3***********************************************************************
4*     Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved.
5*-----------------------------------------------------------------------
6      SUBROUTINE SHMDXM(JM,WR,WI)
7
8      REAL WR(-JM:JM),WI(-JM:JM)
9      REAL WRD,WID
10
11      DO 10 J=-JM,JM
12        WRD=WR(J)
13        WID=WI(J)
14        WR(J)=-WID
15        WI(J)= WRD
16   10 CONTINUE
17
18      END
19