unit2IUc Function

  1. mod_surfile.f90
  2. surfile
  3. unit2IUc

public function unit2IUc(string) result(met)

Arguments

Type IntentOptional AttributesName
character(kind=C_CHAR), intent(in), dimension(:):: string

Return Value real(kind=R8)


Calls

proc~~unit2iuc~~CallsGraph proc~unit2iuc unit2IUc proc~unit2iuf unit2IUf proc~unit2iuc->proc~unit2iuf

Called by

proc~~unit2iuc~~CalledByGraph proc~unit2iuc unit2IUc proc~trans_surf_tab trans_surf_tab proc~trans_surf_tab->proc~unit2iuc proc~build_surf build_surf proc~build_surf->proc~unit2iuc proc~read_surf read_surf proc~read_surf->proc~trans_surf_tab

Contents

Source Code

unit2IUc

Source Code

   function unit2IUc(string) result (met)
   implicit none
   real(kind=R8) :: met
   character(kind=C_CHAR), dimension(:), intent(in) :: string
      character(len=2) :: chaine
      chaine = string(1)//string(2)
      met    = unit2IUf(chaine)
   return
   endfunction unit2IUc