empty Subroutine

  1. mod_surfile.f90
  2. surfile
  3. empty

public subroutine empty(charinout)

Arguments

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

Called by

proc~~empty~~CalledByGraph proc~empty empty proc~init_scal init_scal proc~init_scal->proc~empty proc~c_f_string c_f_string proc~c_f_string->proc~empty proc~save_ms_field save_ms_field proc~save_ms_field->proc~empty proc~save_ms_field->proc~init_scal proc~write_surf write_surf proc~save_ms_field->proc~write_surf proc~save_fe_field save_fe_field proc~save_fe_field->proc~empty proc~save_fe_field->proc~init_scal proc~save_fe_field->proc~write_surf proc~trans_surf_txt trans_surf_txt proc~trans_surf_txt->proc~empty proc~trans_surf_txt->proc~c_f_string proc~solve_ms_prob solve_ms_prob proc~solve_ms_prob->proc~save_ms_field proc~surf2scal surf2scal proc~surf2scal->proc~c_f_string proc~solve_fe_prob solve_fe_prob proc~solve_fe_prob->proc~save_fe_field proc~write_surf->proc~surf2scal proc~test_rough_fe test_rough_fe proc~test_rough_fe->proc~solve_fe_prob proc~test_bearing_x_fe test_bearing_x_fe proc~test_bearing_x_fe->proc~solve_fe_prob proc~test_pocket_fe test_pocket_fe proc~test_pocket_fe->proc~solve_fe_prob proc~test_bearing_y_fe test_bearing_y_fe proc~test_bearing_y_fe->proc~solve_fe_prob proc~test_rough_ms test_rough_ms proc~test_rough_ms->proc~solve_ms_prob proc~test_slider_fe test_slider_fe proc~test_slider_fe->proc~solve_fe_prob proc~test_slider_ms test_slider_ms proc~test_slider_ms->proc~solve_ms_prob proc~open_surffile open_surffile proc~open_surffile->proc~surf2scal proc~run_test run_test proc~run_test->proc~test_rough_fe proc~run_test->proc~test_bearing_x_fe proc~run_test->proc~test_pocket_fe proc~run_test->proc~test_bearing_y_fe proc~run_test->proc~test_rough_ms proc~run_test->proc~test_slider_fe proc~run_test->proc~test_slider_ms program~main main program~main->proc~run_test

Contents

Source Code

empty

Source Code

   subroutine empty(charinout)
   implicit none
   character(len=*), intent(inout) :: charinout
      charinout = repeat(' ', len(charinout))
   return
   endsubroutine empty