unit2IUc Function

public function unit2IUc(string) result(met)

Convert a C type unit string into value (m)

Arguments

Type IntentOptional Attributes Name
character(kind=C_CHAR, len=1), 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~build_surf build_surf proc~build_surf->proc~unit2iuc proc~trans_surf_tab trans_surf_tab proc~trans_surf_tab->proc~unit2iuc proc~read_surf~2 read_surf proc~read_surf~2->proc~trans_surf_tab proc~write_surf write_surf proc~write_surf->proc~build_surf program~test_surfile test_surfile program~test_surfile->proc~read_surf~2 program~test_surfile->proc~write_surf

Source Code

   function unit2IUc(string) result (met)
   !! Convert a C type unit string into value (m)
   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