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