spin Subroutine

public subroutine spin(angl, pos1, pos2)

THIS SUBROUTINE TRANSFORMS A VECTOR FROM ONE COORDINATE SYSTEM TO ANOTHER WITH SAME ORIGIN AND AXES ROTATED ABOUT THE Z AXIS.

 ANGL   = ANGLE OF COORDINATE SYSTEM ROTATION, POSITIVE
          COUNTERCLOCKWISE WHEN VIEWED FROM +Z,
          IN DEGREES (IN)
 POS1   = POSITION VECTOR (IN)
 POS2   = POSITION VECTOR EXPRESSED IN NEW COORDINATE
          SYSTEM ROTATED ABOUT Z BY ANGLE ANG (OUT)

Arguments

Type IntentOptional Attributes Name
real(kind=wp) :: angl
real(kind=wp), dimension(3) :: pos1
real(kind=wp), dimension(3) :: pos2

Called by

proc~~spin~~CalledByGraph proc~spin novas_module::spin proc~celter novas_module::celter proc~celter->proc~spin proc~tercel novas_module::tercel proc~tercel->proc~spin proc~zdaz novas_module::zdaz proc~zdaz->proc~tercel