944
944
allocate(senlist(stotel * snloc))
945
945
ewrite(1, *) "Calling sam_export_mesh from sam_drive"
946
946
call sam_export_mesh(nonods, totele, stotel, nloc, snloc, &
947
& new_positions%val(1)%ptr, new_positions%val(2)%ptr, new_positions%val(3)%ptr, &
947
& new_positions%val(1,:), new_positions%val(2,:), new_positions%val(3,:), &
948
948
& linear_mesh%ndglno, senlist, surface_ids)
949
949
ewrite(1, *) "Exited sam_export_mesh"
950
950
linear_mesh%option_path = linear_mesh_option_path