1 | include(dom.inc)
   2 |       SUBROUTINE projection(n, s, p)
   3 | 
   4 | !       ================================================================!
   5 | !                                                                       !
   6 | !       projection.F : Calculates the projection of one vector on other !
   7 | !                                                                       !
   8 | !       in           : The first vector 'n'                             !
   9 | !                      The second vector 's'                            !
  10 | !       out          : The value of the projection 'p'                  !
  11 | !                                                                       !
  12 | !       author       : J.AMAYA (avril 2007)                             !
  13 | !                                                                       !
  14 | !       ================================================================!
  15 | 
  16 |         IMPLICIT NONE
  17 | 
  18 | !       IN
  19 |         DOM_REAL  :: n(3), s(3)
  20 | 
  21 | !       OUT
  22 |         DOM_REAL  :: p
  23 | 
  24 | !       -----------------------------------------------------------!
  25 | !       The value of the projection of n on s, times the norm of s !
  26 | !       NOTA: if s isn't a normalized vector and if the 'real'     !
  27 | !             value of the projection is needed it's necesary to   !
  28 | !             divide p by the norm of s                            !
  29 | !       -----------------------------------------------------------!
  30 | 
  31 |         p = n(1)*s(1) + n(2)*s(2) + n(3)*s(3)
  32 | 
  33 |       END SUBROUTINE projection