empty Subroutine

public subroutine empty(charinout)

Just empties a string

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(inout) :: charinout

Called by

proc~~empty~~CalledByGraph proc~empty empty proc~c_f_string c_f_string proc~c_f_string->proc~empty proc~init_scal init_scal proc~init_scal->proc~empty proc~trans_surf_txt trans_surf_txt proc~trans_surf_txt->proc~empty proc~trans_surf_txt->proc~c_f_string proc~open_surffile open_surffile proc~open_surffile->proc~trans_surf_txt proc~surf2scal surf2scal proc~open_surffile->proc~surf2scal proc~surf2scal->proc~c_f_string program~test_surfile test_surfile program~test_surfile->proc~init_scal program~test_surfile->proc~trans_surf_txt proc~read_surf~2 read_surf program~test_surfile->proc~read_surf~2 proc~write_surf write_surf program~test_surfile->proc~write_surf proc~read_surf~2->proc~open_surffile proc~write_surf->proc~surf2scal

Source Code

   subroutine empty(charinout)
   !! Just empties a string
   implicit none
   character(len=*), intent(inout) :: charinout

      charinout = repeat(' ', len(charinout))

   return
   endsubroutine empty