        subroutine freevel
        return
        end
        subroutine frnewton(contin)
        logical contin
        return
        end
        subroutine freepot
        return
        end
        subroutine froutput
        return
        end
        subroutine xforce
        return
        end
