Exemple de routine de lecture LPID

Routine de lecture des paramètres spécifiques du PID :

!===============================================================================
!> 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