SUBROUTINE lmd_swfrac
      RETURN
      END SUBROUTINE lmd_swfrac