!===============================================================================
!> Lecture des parametres specifiques pour la methode PID
!===============================================================================
SUBROUTINE LPID(U,PARA)
   USE SIRENE_parametres, ONLY : LONG
   USE F1      , ONLY : IERROR,IWARN,CWARN
 
   IMPLICIT NONE
 
   CHARACTER, INTENT(IN) :: U*(*)
   REAL(KIND=LONG), DIMENSION(*), INTENT(OUT) :: PARA
   INTEGER :: I
 
!-----Debut de la routine
!-----Lecture des parametres specifiques pour cette methode
 
!-----Debut de la routine
      READ(U,'(4(F8.2,1X),F8.2)',ERR=10) (PARA(I),I=1,5)
      PARA(6)=0
      PARA(7)=0
      PARA(8)=0
      RETURN
   10 CONTINUE
      IERROR=2
 
END SUBROUTINE LPID