scal2surf Subroutine

  1. mod_surfile.f90
  2. surfile
  3. scal2surf

public subroutine scal2surf(scal, surf)

Arguments

Type IntentOptional AttributesName
type(SCALE_SURF), intent(in) :: scal

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

object OBJ_SURF

Called by

proc~~scal2surf~~CalledByGraph proc~scal2surf scal2surf proc~write_surf write_surf proc~write_surf->proc~scal2surf 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

scal2surf

Source Code

   subroutine scal2surf(scal, surf)
   implicit none
   type(SCALE_SURF), intent(in ) :: scal !! *object [[SCALE_SURF]]*
   type(OBJ_SURF),   intent(out) :: surf !! *object [[OBJ_SURF]]*

      call f_c_string(fs=trim(scal%signature),     &
                      cs=     surf%signature)

      call f_c_string(fs=trim(scal%xlength_unit),  &
                      cs=     surf%xlength_unit)

      call f_c_string(fs=trim(scal%ylength_unit),  &
                      cs=     surf%ylength_unit)

      call f_c_string(fs=trim(scal%zlength_unit),  &
                      cs=     surf%zlength_unit)

      call f_c_string(fs=trim(scal%xaxis),         &
                      cs=     surf%xaxis)

      call f_c_string(fs=trim(scal%yaxis),         &
                      cs=     surf%yaxis)

      call f_c_string(fs=trim(scal%zaxis),         &
                      cs=     surf%zaxis)

      call f_c_string(fs=trim(scal%dx_unit),       &
                      cs=     surf%dx_unit)

      call f_c_string(fs=trim(scal%dy_unit),       &
                      cs=     surf%dy_unit)

      call f_c_string(fs=trim(scal%dz_unit),       &
                      cs=     surf%dz_unit)

      call f_c_string(fs=trim(scal%object_name),   &
                      cs=     surf%object_name)

      call f_c_string(fs=trim(scal%operator_name), &
                      cs=     surf%operator_name)

      call f_c_string(fs=trim(scal%client_zone),   &
                      cs=     surf%client_zone)

      call f_c_string(fs=trim(scal%reserved),      &
                      cs=     surf%reserved)

      call f_c_string(fs=trim(scal%reservedzone),  &
                      cs=     surf%reservedzone)

      call f_c_string(fs=trim(scal%obsolete),      &
                      cs=     surf%obsolete)

      call f_c_string(fs=trim(scal%obsolete2),     &
                      cs=     surf%obsolete2)

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

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

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