!                  *******************
                   SUBROUTINE BORD_WAC
!                  *******************
!
     &(FF,F,NPLAN,NF,NPOIN2,IP)
!
!-----------------------------------------------------------------------
!                             ARGUMENTS
! .________________.____.______________________________________________.
! !      NOM       !MODE!                   ROLE                       !
! !________________!____!______________________________________________!
! !    F           ! <->!  DENSITE SPECTRALE                           !
! !    NPLAN       ! -->!  NOMBRE DE DIRECTIONS                        !
! !    NF          ! -->!  NOMBRE DE FREQUENCES                        !
! !    NPOIN2      ! -->!  NOMBRE DE POINTS 2D                         !
! !________________!____!______________________________________________!
! MODE : -->(DONNEE NON MODIFIEE), <--(RESULTAT), <-->(DONNEE MODIFIEE)
!
!-----------------------------------------------------------------------
!
! SOUS-PROGRAMME APPELE PAR : LIMWAC
!
!***********************************************************************
!
      USE BIEF
      USE DECLARATIONS_TOMAWAC ,ONLY : MESH, NCSIZE
      USE DECLARATIONS_SPECIAL
!
      IMPLICIT NONE
!
      INTEGER NPLAN,NF,NPOIN2,NPTFR,LT,NPRIV
!
      DOUBLE PRECISION F(NPOIN2,NPLAN,NF)
      DOUBLE PRECISION FF(NPOIN2,NPLAN,NF)
!
      INTEGER IFF,IPLAN
      INTEGER IP, IMIL, ILAZ
      DOUBLE PRECISION DUMMY(100,100)
      DOUBLE PRECISION P_DMAX, P_DMIN
      EXTERNAL P_DMAX, P_DMIN
!
!***********************************************************************
!
      IF (IP.LE.136) THEN
      	ILAZ=IP
      ELSE
        ILAZ=3665+IP-137
      ENDIF



      DO IFF=1,NF
         DO IPLAN = 1,NPLAN
            DUMMY(IPLAN,IFF)=FF(ILAZ,IPLAN,IFF)
		 ENDDO
      ENDDO

      ILAZ=GLOBAL_TO_LOCAL_POINT(ILAZ,MESH)
      
      DO IFF=1,NF
      	DO IPLAN=1,NPLAN
			F(ILAZ,IPLAN,IFF)=DUMMY(IPLAN,IFF)
        ENDDO
      ENDDO
!
      RETURN
      END