surf2scal Subroutine

  1. mod_surfile.f90
  2. surfile
  3. surf2scal

public subroutine surf2scal(surf, scal)

Arguments

Type IntentOptional AttributesName
type(OBJ_SURF), intent(in) :: surf

object OBJ_SURF
type(SCALE_SURF), intent(out) :: scal

object SCALE_SURF

Calls

proc~~surf2scal~~CallsGraph proc~surf2scal surf2scal proc~c_f_string c_f_string proc~surf2scal->proc~c_f_string proc~empty empty proc~c_f_string->proc~empty

Called by

proc~~surf2scal~~CalledByGraph proc~surf2scal surf2scal proc~write_surf write_surf proc~write_surf->proc~surf2scal proc~open_surffile open_surffile proc~open_surffile->proc~surf2scal proc~save_ms_field save_ms_field proc~save_ms_field->proc~write_surf proc~save_fe_field save_fe_field proc~save_fe_field->proc~write_surf proc~solve_ms_prob solve_ms_prob proc~solve_ms_prob->proc~save_ms_field proc~solve_fe_prob solve_fe_prob proc~solve_fe_prob->proc~save_fe_field 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~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

surf2scal

Source Code

   subroutine surf2scal(surf, scal)
   implicit none
   type(OBJ_SURF),   intent(in ) :: surf !! *object [[OBJ_SURF]]*
   type(SCALE_SURF), intent(out) :: scal !! *object [[SCALE_SURF]]*
      integer(kind=I4) :: i

      call c_f_string(cs = surf%signature,     &
                      fs = scal%signature,     &
                 borne_s = i)

      call c_f_string(cs = surf%xlength_unit,  &
                      fs = scal%xlength_unit,  &
                 borne_s = i)

      call c_f_string(cs = surf%ylength_unit,  &
                      fs = scal%ylength_unit,  &
                 borne_s = i)

      call c_f_string(cs = surf%zlength_unit,  &
                      fs = scal%zlength_unit,  &
                 borne_s = i)

      call c_f_string(cs = surf%xaxis,         &
                      fs = scal%xaxis,         &
                 borne_s = i)

      call c_f_string(cs = surf%yaxis,         &
                      fs = scal%yaxis,         &
                 borne_s = i)

      call c_f_string(cs = surf%zaxis,         &
                      fs = scal%zaxis,         &
                 borne_s = i)

      call c_f_string(cs = surf%dx_unit,       &
                      fs = scal%dx_unit,       &
                 borne_s = i)

      call c_f_string(cs = surf%dy_unit,       &
                      fs = scal%dy_unit,       &
                 borne_s = i)

      call c_f_string(cs = surf%dz_unit,       &
                      fs = scal%dz_unit,       &
                 borne_s = i)

      call c_f_string(cs = surf%object_name,   &
                      fs = scal%object_name,   &
                 borne_s = i)

      call c_f_string(cs = surf%operator_name, &
                      fs = scal%operator_name, &
                 borne_s = i)

      call c_f_string(cs = surf%client_zone,   &
                      fs = scal%client_zone,   &
                 borne_s = i)

      call c_f_string(cs = surf%reserved,      &
                      fs = scal%reserved,      &
                 borne_s = i)

      call c_f_string(cs = surf%reservedzone,  &
                      fs = scal%reservedzone,  &
                 borne_s = i)

      call c_f_string(cs = surf%obsolete,      &
                      fs = scal%obsolete,      &
                 borne_s = i)

      call c_f_string(cs = surf%obsolete2,     &
                      fs = scal%obsolete2,     &
                 borne_s =i)

      scal%dx                    = surf%dx
      scal%dy                    = surf%dy
      scal%dz                    = surf%dz
      scal%xunit_ratio           = surf%xunit_ratio
      scal%yunit_ratio           = surf%yunit_ratio
      scal%zunit_ratio           = surf%zunit_ratio
      scal%XOffset               = surf%XOffset
      scal%YOffset               = surf%YOffset
      scal%ZOffset               = surf%ZOffset
      scal%measurement_duration  = surf%measurement_duration

      scal%zmin      = surf%zmin
      scal%zmax      = surf%zmax
      scal%xres      = surf%xres
      scal%yres      = surf%yres
      scal%nofpoints = surf%nofpoints

      scal%format          = surf%format
      scal%version         = surf%version
      scal%material_code   = surf%material_code
      scal%type            = surf%type
      scal%range           = surf%range
      scal%special_points  = surf%special_points
      scal%absolute        = surf%absolute
      scal%pointsize       = surf%pointsize
      scal%imprint         = surf%imprint
      scal%inversion       = surf%inversion
      scal%leveling        = surf%leveling
      scal%seconds         = surf%seconds
      scal%minutes         = surf%minutes
      scal%hours           = surf%hours
      scal%day             = surf%day
      scal%month           = surf%month
      scal%year            = surf%year
      scal%dayof           = surf%dayof
      scal%comment_size    = surf%comment_size
      scal%private_size    = surf%private_size
      scal%nobjects        = surf%nobjects
      scal%acquisition     = surf%acquisition
   return
   endsubroutine surf2scal