w3servmd.F90 File Reference

Go to the source code of this file.

Modules
module	w3servmd

Functions/Subroutines
subroutine	w3servmd::itrace (NDS, NMAX)
subroutine	w3servmd::strace (IENT, SNAME)
subroutine	w3servmd::nextln (CHCKC, NDSI, NDSE)
subroutine	w3servmd::w3s2xy (NSEA, MSEA, MX, MY, S, MAPSF, XY)
real function	w3servmd::ej5p (F, ALFA, FP, YLN, SIGA, SIGB)
real function	w3servmd::dist_sphere (lo1, la1, lo2, la2)
subroutine	w3servmd::wwdate (STRNG)
subroutine	w3servmd::wwtime (STRNG)
subroutine	w3servmd::extcde (IEXIT, UNIT, MSG, FILE, LINE, COMM)
subroutine	w3servmd::w3spectn (NFreq, NDirc, Alpha, Spectr)
subroutine	w3servmd::w3acturn (NDirc, NFreq, Alpha, Spectr)
subroutine	w3servmd::w3lltoeq (PHI, LAMBDA, PHI_EQ, LAMBDA_EQ, ANGLED, PHI_POLE, LAMBDA_POLE, POINTS)
subroutine	w3servmd::w3eqtoll (PHI_EQ, LAMBDA_EQ, PHI, LAMBDA, ANGLED, PHI_POLE, LAMBDA_POLE, POINTS)
subroutine	w3servmd::w3thrtn (NSEA, THETA, AnglD, Degrees)
subroutine	w3servmd::w3xyrtn (NSEA, XVEC, YVEC, AnglD)
subroutine	w3servmd::strsplit (STRING, TAB)
subroutine	w3servmd::str_to_upper (STR)
subroutine	w3servmd::ssort1 (X, Y, N, KFLAG)
subroutine	w3servmd::diagonalize (a1, d, v, nrot)
subroutine	rotate (X1, X2)
subroutine	w3servmd::uv_to_mag_dir (U, V, NSEA, MAG, DIR, TOLERANCE, CONV)
subroutine	w3servmd::print_memcheck (iun, msg)
	Write memory statistics if requested. More...

Function/Subroutine Documentation

rotate()

subroutine diagonalize::rotate	(	double precision, dimension(:), intent(inout)	X1,
		double precision, dimension(:), intent(inout)	X2
	)

Definition at line 1912 of file w3servmd.F90.

      DOUBLE PRECISION, DIMENSION(:), INTENT(INOUT) :: X1,X2
      DOUBLE PRECISION, DIMENSION(size(X1)) :: MEM
      mem(:)=x1(:)
      x1(:)=x1(:)-s*(x2(:)+x1(:)*tau)
      x2(:)=x2(:)+s*(mem(:)-x2(:)*tau)

Referenced by w3servmd::diagonalize().