program osoci_program
implicit none
   call new_approach
!  call save_natural_mos
end