rpm_get.f90

国外大名顶顶的“台风”并行计算流体力学CFD软件的早期版本的源代码

!------------------------------------------------------------------------------!
! rpmgetvalreal : renvoie la valeur du second membre de la ligne (str) en real(sp)
!------------------------------------------------------------------------------!
subroutine rpmgetvalrealsp(str, res)
implicit none 
character(len=*)  :: str  ! ligne contenant la valeur    (entr閑)
real(4)           :: res  ! resultat, valeur de la ligne (sortie)

! -- Declaration des variables internes --
integer           :: i, iores

! -- Debut de la procedure --

  i = index(str, '=')
  read(str(i+1:), *, iostat=iores) res
  if (iores /= 0) call rpmerr("Lecture de nombre r閑l impossible")

endsubroutine rpmgetvalrealsp
!------------------------------------------------------------------------------!


!------------------------------------------------------------------------------!
! rpmgetvalreal : renvoie la valeur du second membre de la ligne (str) en real
!------------------------------------------------------------------------------!
subroutine rpmgetvalrealdp(str, res)
implicit none 
character(len=*)  :: str  ! ligne contenant la valeur    (entr閑)
real(8)           :: res  ! resultat, valeur de la ligne (sortie)

! -- Declaration des variables internes --
integer           :: i, iores

! -- Debut de la procedure --

  i = index(str, '=')
  read(str(i+1:), *, iostat=iores) res
  if (iores /= 0) call rpmerr("Lecture de nombre r閑l impossible")

endsubroutine rpmgetvalrealdp
!------------------------------------------------------------------------------!


!------------------------------------------------------------------------------!
! rpmgetvalstr : renvoie la valeur du second membre de la ligne (str) en chaine
!------------------------------------------------------------------------------!
subroutine rpmgetvalstr(str, res)
implicit none 

! -- Declaration des entr閑s --
character(len=*), intent(in) :: str  ! ligne contenant la valeur
! -- Declaration des sorties --
!character(len=len_trim(str)) :: res  ! resultat, valeur de la ligne
character(len=dimrpmlig) :: res  ! resultat, valeur de la ligne

! -- Declaration des variables internes --
integer i, iores

! -- Debut de la procedure --

  i   = index(str, '=')                   ! extraction de la chaine suivant =
  res = trim(adjustl(str(i+1:len(str))))

  i   = len_trim(res)                     ! test de chaine entre quotes  
  if ((res(1:1) == rpmquotechar).and.(res(i:i) == rpmquotechar)) then
    res = res(2:i-1)
  endif

endsubroutine rpmgetvalstr
!------------------------------------------------------------------------------!


!------------------------------------------------------------------------------!
! rpmgetvalint : renvoie la valeur du second membre de la ligne (str) en entier
!------------------------------------------------------------------------------!
subroutine rpmgetvalint(str, res)
implicit none 

! -- Declaration des entr閑s --
character(len=*)  :: str  ! ligne contenant la valeur
! -- Declaration des sorties --
integer           :: res  ! resultat, valeur de la ligne

! -- Declaration des variables internes --
integer i, iores

! -- Debut de la procedure --

  i = index(str, '=')
  read(str(i+1:), *, iostat=iores) res
  if (iores /= 0) call rpmerr("Lecture d'entier impossible")

endsubroutine rpmgetvalint
!------------------------------------------------------------------------------!



!------------------------------------------------------------------------------!
! Procedure : rpmgetkeyvalrealsp/dp       Auteur : J. Gressier
!                                         Date   : Fevrier 2002
! Fonction                                Modif  : Juillet 2003
!   Cherche dans le block (block), la clef (key) et renvoie le resultat (res)
!   attendu de type real. 
!
! Defauts/Limitations/Divers :
!   La clef est cens閑 阾re unique dans le bloc donn