code121.f90

来自「Fortran 90 and HPF Programs Related to t」· F90 代码 · 共 21 行

!!!!!!!!!!!!!!!!!!!!!!!!!!    Program 12.1    !!!!!!!!!!!!!!!!!!!!!!!!!!
!                                                                      !
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!                                                                      !
! Please Note:                                                         !
!                                                                      !
! (1) This computer program is part of the book, "An Introduction to   !
!     Computational Physics," written by Tao Pang and published and    !
!     copyrighted by Cambridge University Press in 1997.               !
!                                                                      !
! (2) No warranties, express or implied, are made for this program.    !
!                                                                      !
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
SUBROUTINE RPHI_TO_XY (R,PHI,X,Y)
  IMPLICIT NONE
  REAL, INTENT (IN) :: R,PHI
  REAL, INTENT (OUT) :: X,Y
  X = R*COS(PHI); Y = R*SIN(PHI) ! Assign x and y
END SUBROUTINE RPHI_TO_XY